r53380 - in /branches/upstream/libconfig-model-tkui-perl/current: ./ lib/Config/Model/ lib/Config/Model/Tk/

ddumont-guest at users.alioth.debian.org ddumont-guest at users.alioth.debian.org
Sat Feb 27 15:12:09 UTC 2010


Author: ddumont-guest
Date: Sat Feb 27 15:08:25 2010
New Revision: 53380

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=53380
Log:
[svn-upgrade] Integrating new upstream version, libconfig-model-tkui-perl (1.303)

Modified:
    branches/upstream/libconfig-model-tkui-perl/current/Build.PL
    branches/upstream/libconfig-model-tkui-perl/current/ChangeLog
    branches/upstream/libconfig-model-tkui-perl/current/META.yml
    branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/AnyViewer.pm
    branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/HashViewer.pm
    branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/LeafEditor.pm
    branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/LeafViewer.pm
    branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/ListViewer.pm
    branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/TkUI.pm

Modified: branches/upstream/libconfig-model-tkui-perl/current/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-tkui-perl/current/Build.PL?rev=53380&op=diff
==============================================================================
--- branches/upstream/libconfig-model-tkui-perl/current/Build.PL (original)
+++ branches/upstream/libconfig-model-tkui-perl/current/Build.PL Sat Feb 27 15:08:25 2010
@@ -1,6 +1,6 @@
 # $Author: ddumont $
-# $Date: 2009-06-29 14:41:07 +0200 (Mon, 29 Jun 2009) $
-# $Revision: 994 $
+# $Date: 2010-02-26 14:08:10 +0100 (Fri, 26 Feb 2010) $
+# $Revision: 1098 $
 
 #    Copyright (c) 2007-2009 Dominique Dumont.
 #
@@ -32,7 +32,7 @@
    dist_abstract => "Tk GUI to edit config data through Config::Model",
    dist_author  => "Dominique Dumont (ddumont at cpan dot org)",
    requires => {
-		'Config::Model'    => '0.638',
+		'Config::Model'    => '0.643',
 		'Exception::Class' => 0,
 		'Tk'               => 0,
 		'Tk::DirSelect'    => 0,

Modified: branches/upstream/libconfig-model-tkui-perl/current/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-tkui-perl/current/ChangeLog?rev=53380&op=diff
==============================================================================
--- branches/upstream/libconfig-model-tkui-perl/current/ChangeLog (original)
+++ branches/upstream/libconfig-model-tkui-perl/current/ChangeLog Sat Feb 27 15:08:25 2010
@@ -1,3 +1,18 @@
+2010-02-26  Dominique Dumont  <dominique.dumont at hp.com> 1.303
+
+	* Build.PL: Depends on Config::Model 0.643
+
+2010-02-18  Dominique Dumont  <dominique.dumont at hp.com>
+
+	* lib/Config/Model/Tk/HashViewer.pm (): Changed min and max calls
+	to min_index and max_index
+
+2010-01-29  Dominique Dumont  <dominique.dumont at hp.com>
+
+	* lib/Config/Model/Tk/AnyViewer.pm (add_help): added some padding
+	aroung help text. Thanks to Eva Ganglbauer for the usability
+	advice. (More advices are left to implement :-p )
+
 2010-01-21  Dominique Dumont  <dominique.dumont at hp.com> 1.302
 
 	* lib/Config/Model/Tk/NodeViewer.pm (reload): Correctly update

Modified: branches/upstream/libconfig-model-tkui-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-tkui-perl/current/META.yml?rev=53380&op=diff
==============================================================================
--- branches/upstream/libconfig-model-tkui-perl/current/META.yml (original)
+++ branches/upstream/libconfig-model-tkui-perl/current/META.yml Sat Feb 27 15:08:25 2010
@@ -4,7 +4,7 @@
   - 'Dominique Dumont (ddumont at cpan dot org)'
 configure_requires:
   Module::Build: 0.36
-generated_by: 'Module::Build version 0.3601'
+generated_by: 'Module::Build version 0.3603'
 license: lgpl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -13,7 +13,7 @@
 provides:
   Config::Model::Tk::AnyViewer:
     file: lib/Config/Model/Tk/AnyViewer.pm
-    version: 1.1022
+    version: 1.1061
   Config::Model::Tk::CheckListEditor:
     file: lib/Config/Model/Tk/CheckListEditor.pm
     version: 1.1009
@@ -25,19 +25,19 @@
     version: 1.1050
   Config::Model::Tk::HashViewer:
     file: lib/Config/Model/Tk/HashViewer.pm
-    version: 1.0910
+    version: 1.1086
   Config::Model::Tk::LeafEditor:
     file: lib/Config/Model/Tk/LeafEditor.pm
-    version: 1.1034
+    version: 1.1061
   Config::Model::Tk::LeafViewer:
     file: lib/Config/Model/Tk/LeafViewer.pm
-    version: 1.1021
+    version: 1.1061
   Config::Model::Tk::ListEditor:
     file: lib/Config/Model/Tk/ListEditor.pm
     version: 1.1009
   Config::Model::Tk::ListViewer:
     file: lib/Config/Model/Tk/ListViewer.pm
-    version: 1.0910
+    version: 1.1086
   Config::Model::Tk::NodeEditor:
     file: lib/Config/Model/Tk/NodeEditor.pm
     version: 1.1013
@@ -48,11 +48,11 @@
     file: lib/Config/Model/Tk/Wizard.pm
   Config::Model::TkUI:
     file: lib/Config/Model/TkUI.pm
-    version: 1.302
+    version: 1.303
 recommends:
   Tk::ObjScanner: 0
 requires:
-  Config::Model: 0.638
+  Config::Model: 0.643
   Exception::Class: 0
   Log::Log4perl: 1.11
   Tk: 0
@@ -60,4 +60,4 @@
   Tk::Tree: 0
 resources:
   license: http://opensource.org/licenses/lgpl-license.php
-version: 1.302
+version: 1.303

Modified: branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/AnyViewer.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/AnyViewer.pm?rev=53380&op=diff
==============================================================================
--- branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/AnyViewer.pm (original)
+++ branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/AnyViewer.pm Sat Feb 27 15:08:25 2010
@@ -1,6 +1,6 @@
 # $Author: ddumont $
-# $Date: 2009-09-06 17:08:25 +0200 (Sun, 06 Sep 2009) $
-# $Revision: 1022 $
+# $Date: 2010-01-29 14:22:45 +0100 (Fri, 29 Jan 2010) $
+# $Revision: 1061 $
 
 #    Copyright (c) 2008-2009 Dominique Dumont.
 #
@@ -32,7 +32,7 @@
 
 use vars qw/$VERSION $icon_path/ ;
 
-$VERSION = sprintf "1.%04d", q$Revision: 1022 $ =~ /(\d+)/;
+$VERSION = sprintf "1.%04d", q$Revision: 1061 $ =~ /(\d+)/;
 
 my @fbe1 = qw/-fill both -expand 1/ ;
 my @fxe1 = qw/-fill x    -expand 1/ ;
@@ -119,7 +119,9 @@
 					-height => 4,
 				       );
 
-	$widget ->pack( @fbe1 ) ->insert('end',$help) ;
+	$widget ->pack( @fbe1 ) ->insert('end',$help,'help') ;
+	$widget
+	  ->tagConfigure(qw/help -lmargin1 2 -lmargin2 2 -rmargin 2/);
     }
     else {
 	$widget = $help_frame->Label( -text => $help,

Modified: branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/HashViewer.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/HashViewer.pm?rev=53380&op=diff
==============================================================================
--- branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/HashViewer.pm (original)
+++ branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/HashViewer.pm Sat Feb 27 15:08:25 2010
@@ -1,6 +1,6 @@
 # $Author: ddumont $
-# $Date: 2009-03-31 13:41:21 +0200 (Tue, 31 Mar 2009) $
-# $Revision: 910 $
+# $Date: 2010-02-18 18:29:48 +0100 (Thu, 18 Feb 2010) $
+# $Revision: 1086 $
 
 #    Copyright (c) 2008 Dominique Dumont.
 #
@@ -30,7 +30,7 @@
 use vars qw/$VERSION/ ;
 use subs qw/menu_struct/ ;
 
-$VERSION = sprintf "1.%04d", q$Revision: 910 $ =~ /(\d+)/;
+$VERSION = sprintf "1.%04d", q$Revision: 1086 $ =~ /(\d+)/;
 
 Construct Tk::Widget 'ConfigModelHashViewer';
 
@@ -93,7 +93,7 @@
 	push @items, "cargo class: " . $hash->config_class_name ;
     }
 
-    foreach my $what (qw/min max max_nb/) {
+    foreach my $what (qw/min_index max_index max_nb/) {
 	my $v = $hash->$what() ;
 	my $str = $what ;
 	$str =~ s/_/ /g;

Modified: branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/LeafEditor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/LeafEditor.pm?rev=53380&op=diff
==============================================================================
--- branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/LeafEditor.pm (original)
+++ branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/LeafEditor.pm Sat Feb 27 15:08:25 2010
@@ -1,6 +1,6 @@
 # $Author: ddumont $
-# $Date: 2009-09-25 15:18:13 +0200 (Fri, 25 Sep 2009) $
-# $Revision: 1034 $
+# $Date: 2010-01-29 14:22:45 +0100 (Fri, 29 Jan 2010) $
+# $Revision: 1061 $
 
 #    Copyright (c) 2008-2009 Dominique Dumont.
 #
@@ -30,7 +30,7 @@
 use base qw/Config::Model::Tk::LeafViewer/;
 use vars qw/$VERSION/ ;
 
-$VERSION = sprintf "1.%04d", q$Revision: 1034 $ =~ /(\d+)/;
+$VERSION = sprintf "1.%04d", q$Revision: 1061 $ =~ /(\d+)/;
 
 Construct Tk::Widget 'ConfigModelLeafEditor';
 
@@ -80,6 +80,8 @@
 						-scrollbars => 'ow',
 					      )
                              ->pack(@fbe1);
+	$cw->{e_widget}
+	  ->tagConfigure(qw/value -lmargin1 2 -lmargin2 2 -rmargin 2/);
 	$cw->reset_value ;
 	my $bframe = $cw->add_buttons($ed_frame) ;
 	$bframe -> Button ( -text => 'Cleanup',
@@ -260,7 +262,7 @@
     $cw->{value} = $cw->{leaf}->fetch ;
     if (defined $cw->{e_widget}) {
 	$cw->{e_widget}->delete('1.0','end') ;
-	$cw->{e_widget}->insert('end',$cw->{value}) ;
+	$cw->{e_widget}->insert('end',$cw->{value},'value') ;
     }
     $cw->set_value_help if defined $cw->{value_help_widget};
 }

Modified: branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/LeafViewer.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/LeafViewer.pm?rev=53380&op=diff
==============================================================================
--- branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/LeafViewer.pm (original)
+++ branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/LeafViewer.pm Sat Feb 27 15:08:25 2010
@@ -1,6 +1,6 @@
 # $Author: ddumont $
-# $Date: 2009-09-06 14:13:25 +0200 (Sun, 06 Sep 2009) $
-# $Revision: 1021 $
+# $Date: 2010-01-29 14:22:45 +0100 (Fri, 29 Jan 2010) $
+# $Revision: 1061 $
 
 #    Copyright (c) 2008 Dominique Dumont.
 #
@@ -30,7 +30,7 @@
 use base qw/Tk::Frame Config::Model::Tk::AnyViewer/;
 use vars qw/$VERSION/ ;
 
-$VERSION = sprintf "1.%04d", q$Revision: 1021 $ =~ /(\d+)/;
+$VERSION = sprintf "1.%04d", q$Revision: 1061 $ =~ /(\d+)/;
 
 Construct Tk::Widget 'ConfigModelLeafViewer';
 
@@ -79,7 +79,9 @@
 					       -scrollbars => 'ow',
 					      )
 	  ->pack(@fbe1);
-	$cw->{e_widget}->insert('end',$v) ;
+	$cw->{e_widget}->insert('end',$v,'value') ;
+	$cw->{e_widget}
+	  ->tagConfigure(qw/value -lmargin1 2 -lmargin2 2 -rmargin 2/);
     }
     else {
 	my $v_frame = $lv_frame->Frame(qw/-relief sunken -borderwidth 1/)

Modified: branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/ListViewer.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/ListViewer.pm?rev=53380&op=diff
==============================================================================
--- branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/ListViewer.pm (original)
+++ branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/ListViewer.pm Sat Feb 27 15:08:25 2010
@@ -1,6 +1,6 @@
 # $Author: ddumont $
-# $Date: 2009-03-31 13:41:21 +0200 (Tue, 31 Mar 2009) $
-# $Revision: 910 $
+# $Date: 2010-02-18 18:29:48 +0100 (Thu, 18 Feb 2010) $
+# $Revision: 1086 $
 
 #    Copyright (c) 2008 Dominique Dumont.
 #
@@ -30,7 +30,7 @@
 use vars qw/$VERSION/ ;
 use subs qw/menu_struct/ ;
 
-$VERSION = sprintf "1.%04d", q$Revision: 910 $ =~ /(\d+)/;
+$VERSION = sprintf "1.%04d", q$Revision: 1086 $ =~ /(\d+)/;
 
 Construct Tk::Widget 'ConfigModelListViewer';
 
@@ -98,7 +98,7 @@
 	push @items, "leaf value type: " . ($list->get_cargo_info('value_type') || '') ;
     }
 
-    foreach my $what (qw//) {
+    foreach my $what (qw/min_index max_index/) {
 	my $v = $list->$what() ;
 	my $str = $what ;
 	$str =~ s/_/ /g;

Modified: branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/TkUI.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/TkUI.pm?rev=53380&op=diff
==============================================================================
--- branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/TkUI.pm (original)
+++ branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/TkUI.pm Sat Feb 27 15:08:25 2010
@@ -1,6 +1,6 @@
 # $Author: ddumont $
-# $Date: 2010-01-21 18:17:54 +0100 (Thu, 21 Jan 2010) $
-# $Revision: 1053 $
+# $Date: 2010-02-26 14:08:10 +0100 (Fri, 26 Feb 2010) $
+# $Revision: 1098 $
 
 package Config::Model::TkUI ;
 
@@ -38,7 +38,7 @@
 use Config::Model::Tk::Wizard ;
 
 
-$VERSION = '1.302' ;
+$VERSION = '1.303' ;
 
 Construct Tk::Widget 'ConfigModelUI';
 




More information about the Pkg-perl-cvs-commits mailing list