r38607 - in /trunk/libconfig-model-tkui-perl: Build.PL ChangeLog META.yml debian/changelog debian/control lib/Config/Model/Tk/LeafViewer.pm lib/Config/Model/TkUI.pm t/big_model.pm t/config-model-ui.t

ddumont-guest at users.alioth.debian.org ddumont-guest at users.alioth.debian.org
Thu Jun 25 16:09:47 UTC 2009


Author: ddumont-guest
Date: Thu Jun 25 16:09:41 2009
New Revision: 38607

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=38607
Log:
ready for release

Modified:
    trunk/libconfig-model-tkui-perl/Build.PL
    trunk/libconfig-model-tkui-perl/ChangeLog
    trunk/libconfig-model-tkui-perl/META.yml
    trunk/libconfig-model-tkui-perl/debian/changelog
    trunk/libconfig-model-tkui-perl/debian/control
    trunk/libconfig-model-tkui-perl/lib/Config/Model/Tk/LeafViewer.pm
    trunk/libconfig-model-tkui-perl/lib/Config/Model/TkUI.pm
    trunk/libconfig-model-tkui-perl/t/big_model.pm
    trunk/libconfig-model-tkui-perl/t/config-model-ui.t

Modified: trunk/libconfig-model-tkui-perl/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-tkui-perl/Build.PL?rev=38607&op=diff
==============================================================================
--- trunk/libconfig-model-tkui-perl/Build.PL (original)
+++ trunk/libconfig-model-tkui-perl/Build.PL Thu Jun 25 16:09:41 2009
@@ -1,6 +1,6 @@
 # $Author: ddumont $
-# $Date: 2009-03-31 13:41:21 +0200 (Tue, 31 Mar 2009) $
-# $Revision: 910 $
+# $Date: 2009-06-23 14:19:05 +0200 (Tue, 23 Jun 2009) $
+# $Revision: 983 $
 
 #    Copyright (c) 2007-2009 Dominique Dumont.
 #
@@ -23,7 +23,7 @@
 
 use Module::Build;
 
-require 5.006 ;
+require 5.008 ;
 
 my $build = Module::Build->new
   (
@@ -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.635',
+		'Config::Model'    => '0.637',
 		'Exception::Class' => 0,
 		'Tk'               => 0,
 		'Tk::DirSelect'    => 0,

Modified: trunk/libconfig-model-tkui-perl/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-tkui-perl/ChangeLog?rev=38607&op=diff
==============================================================================
--- trunk/libconfig-model-tkui-perl/ChangeLog (original)
+++ trunk/libconfig-model-tkui-perl/ChangeLog Thu Jun 25 16:09:41 2009
@@ -1,9 +1,19 @@
+2009-06-23  Dominique Dumont  <dominique.dumont at hp.com> v1.210
+
+	* lib/Config/Model/Tk/LeafViewer.pm (add_info): use
+	upstream_default() method instead of deprecated built_in().
+
+2009-05-30  Dominique Dumont  <dominique.dumont at hp.com> 
+
+	* lib/Config/Model/TkUI.pm (Populate): added -title option so the
+	application can set the title of the TkUI window
+
 2009-04-07  Dominique Dumont  <dominique.dumont at hp.com> v1.208
 
 	* lib/Config/Model/Tk/HashEditor.pm (Populate): Improved widget
 	ergonomy. Added some balloon help.
 
-2009-03-31  Dominique Dumont  <dominique.dumont at hp.com> unreleased
+2009-03-31  Dominique Dumont  <dominique.dumont at hp.com>
 
 	* lib/Config/Model/Tk/*.pm (): Added display of summary 
 

Modified: trunk/libconfig-model-tkui-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-tkui-perl/META.yml?rev=38607&op=diff
==============================================================================
--- trunk/libconfig-model-tkui-perl/META.yml (original)
+++ trunk/libconfig-model-tkui-perl/META.yml Thu Jun 25 16:09:41 2009
@@ -1,6 +1,6 @@
 ---
 name: Config-Model-TkUI
-version: 1.208
+version: 1.210
 author:
   - Dominique Dumont (ddumont at cpan dot org)
 abstract: Tk GUI to edit config data through Config::Model
@@ -8,7 +8,7 @@
 resources:
   license: http://opensource.org/licenses/lgpl-license.php
 requires:
-  Config::Model: 0.635
+  Config::Model: 0.637
   Exception::Class: 0
   Log::Log4perl: 1.11
   Tk: 0
@@ -37,7 +37,7 @@
     version: 1.0910
   Config::Model::Tk::LeafViewer:
     file: lib/Config/Model/Tk/LeafViewer.pm
-    version: 1.0910
+    version: 1.0979
   Config::Model::Tk::ListEditor:
     file: lib/Config/Model/Tk/ListEditor.pm
     version: 1.0910
@@ -49,8 +49,8 @@
     version: 1.0910
   Config::Model::TkUI:
     file: lib/Config/Model/TkUI.pm
-    version: 1.208
-generated_by: Module::Build version 0.3
+    version: 1.210
+generated_by: Module::Build version 0.33
 meta-spec:
-  url: http://module-build.sourceforge.net/META-spec-v1.2.html
-  version: 1.2
+  url: http://module-build.sourceforge.net/META-spec-v1.4.html
+  version: 1.4

Modified: trunk/libconfig-model-tkui-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-tkui-perl/debian/changelog?rev=38607&op=diff
==============================================================================
--- trunk/libconfig-model-tkui-perl/debian/changelog (original)
+++ trunk/libconfig-model-tkui-perl/debian/changelog Thu Jun 25 16:09:41 2009
@@ -1,8 +1,14 @@
-libconfig-model-tkui-perl (1.208-2) UNRELEASED; urgency=low
+libconfig-model-tkui-perl (1.210-1) unstable; urgency=low
 
+  [ Nathan Handler ]
   * debian/watch: Update to ignore development releases.
 
- -- Nathan Handler <nhandler at ubuntu.com>  Sat, 06 Jun 2009 01:33:22 +0000
+  [ Dominique Dumont ]
+  * New upstream release
+  * control: depends on libconfig-model-perl >= 0.637
+  * control: Updated to policy 3.8.2
+
+ -- Dominique Dumont <dominique.dumont at hp.com>  Thu, 25 Jun 2009 18:08:29 +0200
 
 libconfig-model-tkui-perl (1.208-1) unstable; urgency=low
 

Modified: trunk/libconfig-model-tkui-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-tkui-perl/debian/control?rev=38607&op=diff
==============================================================================
--- trunk/libconfig-model-tkui-perl/debian/control (original)
+++ trunk/libconfig-model-tkui-perl/debian/control Thu Jun 25 16:09:41 2009
@@ -5,7 +5,7 @@
 	       perl-modules (>= 5.10) | libmodule-build-perl
 Build-Depends-Indep: perl (>= 5.8.8-12), 
 		     perl-tk (>= 800),
-		     libconfig-model-perl (>= 0.635), 
+		     libconfig-model-perl (>= 0.637), 
 	 	     libexception-class-perl,
 		     libtest-pod-perl,
 		     libtk-dirselect-perl, 
@@ -13,7 +13,7 @@
 		     liblog-log4perl-perl (>= 1.11)
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
 Uploaders: Dominique Dumont <dominique.dumont at hp.com>
-Standards-Version: 3.8.1
+Standards-Version: 3.8.2
 Homepage: http://search.cpan.org/dist/Config-Model-TkUI/
 Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libconfig-model-tkui-perl/
 Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libconfig-model-tkui-perl/
@@ -22,7 +22,7 @@
 Architecture: all
 Depends: ${perl:Depends}, ${misc:Depends}, 
 	 perl-tk,
-	 libconfig-model-perl (>= 0.635), 
+	 libconfig-model-perl (>= 0.637), 
 	 libexception-class-perl,
 	 libtk-dirselect-perl, 
   	 liblog-log4perl-perl (>= 1.11)

Modified: trunk/libconfig-model-tkui-perl/lib/Config/Model/Tk/LeafViewer.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-tkui-perl/lib/Config/Model/Tk/LeafViewer.pm?rev=38607&op=diff
==============================================================================
--- trunk/libconfig-model-tkui-perl/lib/Config/Model/Tk/LeafViewer.pm (original)
+++ trunk/libconfig-model-tkui-perl/lib/Config/Model/Tk/LeafViewer.pm Thu Jun 25 16:09:41 2009
@@ -1,6 +1,6 @@
 # $Author: ddumont $
-# $Date: 2009-03-31 13:41:21 +0200 (Tue, 31 Mar 2009) $
-# $Revision: 910 $
+# $Date: 2009-06-23 13:41:22 +0200 (Tue, 23 Jun 2009) $
+# $Revision: 979 $
 
 #    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: 910 $ =~ /(\d+)/;
+$VERSION = sprintf "1.%04d", q$Revision: 979 $ =~ /(\d+)/;
 
 Construct Tk::Widget 'ConfigModelLeafViewer';
 
@@ -118,8 +118,8 @@
 		 'type : '.$leaf->value_type.$choice_str,
 		);
 
-    if (defined $leaf->built_in) {
-	push @items, "built_in value: " . $leaf->built_in ;
+    if (defined $leaf->upstream_default) {
+	push @items, "upstream_default value: " . $leaf->upstream_default ;
     }
     elsif (defined $leaf->fetch('standard')) {
 	push @items, "default value: " . $leaf->fetch('standard') ;

Modified: trunk/libconfig-model-tkui-perl/lib/Config/Model/TkUI.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-tkui-perl/lib/Config/Model/TkUI.pm?rev=38607&op=diff
==============================================================================
--- trunk/libconfig-model-tkui-perl/lib/Config/Model/TkUI.pm (original)
+++ trunk/libconfig-model-tkui-perl/lib/Config/Model/TkUI.pm Thu Jun 25 16:09:41 2009
@@ -1,6 +1,6 @@
 # $Author: ddumont $
-# $Date: 2009-04-07 13:16:38 +0200 (Tue, 07 Apr 2009) $
-# $Revision: 920 $
+# $Date: 2009-06-23 13:41:22 +0200 (Tue, 23 Jun 2009) $
+# $Revision: 979 $
 
 #    Copyright (c) 2007,2009 Dominique Dumont.
 #
@@ -53,7 +53,7 @@
 use Config::Model::Tk::NodeViewer ;
 
 
-$VERSION = '1.208' ;
+$VERSION = '1.210' ;
 
 Construct Tk::Widget 'ConfigModelUI';
 
@@ -101,6 +101,9 @@
     }
 
     my $extra_menu = delete $args->{'-extra-menu'} || [] ;
+
+    my $title = delete $args->{'-title'} 
+              || "config-edit ".$cw->{root}->config_class_name ;
 
     # check unknown parameters
     croak "Unknown parameter ",join(' ',keys %$args) if %$args;
@@ -206,6 +209,7 @@
 		     $cw->on_select($item)} ;
     $tree->bind('<Button-3>', $b3_sub) ;
 
+    $args->{-title} = $title;
     $cw->SUPER::Populate($args) ;
 
     $cw->ConfigSpecs

Modified: trunk/libconfig-model-tkui-perl/t/big_model.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-tkui-perl/t/big_model.pm?rev=38607&op=diff
==============================================================================
--- trunk/libconfig-model-tkui-perl/t/big_model.pm (original)
+++ trunk/libconfig-model-tkui-perl/t/big_model.pm Thu Jun 25 16:09:41 2009
@@ -1,7 +1,7 @@
 # -*- cperl -*-
 # $Author: ddumont $
-# $Date: 2009-03-31 13:41:21 +0200 (Tue, 31 Mar 2009) $
-# $Revision: 910 $
+# $Date: 2009-06-23 14:34:38 +0200 (Tue, 23 Jun 2009) $
+# $Revision: 984 $
 
 # this file is used by test script
 
@@ -65,8 +65,10 @@
 	       std_id => {
 			  type => 'hash',
 			  index_type  => 'string',
-			  cargo_type => 'node',
-			  config_class_name => 'SlaveZ' ,
+			  cargo => {
+				    type => 'node',
+				    config_class_name => 'SlaveZ'
+				   } ,
 			 },
 	       sub_slave => { type => 'node' ,
 			      config_class_name => 'SubSlave',
@@ -97,47 +99,54 @@
 
   [
    name => 'Master',
-   permission => [ [qw/tree_macro warp/] => 'advanced'] ,
+   experience => [ [qw/tree_macro warp/] => 'advanced'] ,
    class_description => "Master description",
    level      => [ [qw/hash_a tree_macro int_v/] => 'important' ],
    element => [
 	       std_id => { type => 'hash',
 			   index_type  => 'string',
-			   cargo_type => 'node',
-			   config_class_name => 'SlaveZ' ,
+			   cargo => { type => 'node',
+				      config_class_name => 'SlaveZ'
+				    } ,
 			 },
 	       [qw/lista listb/] => { type => 'list',
-				      cargo_type => 'leaf',
-				      cargo_args => {value_type => 'uniline'},
+				      cargo => { type => 'leaf',
+						 value_type => 'uniline'
+					       },
 				    },
 	       [qw/hash_a hash_b/] => { type => 'hash',
 			  index_type => 'string',
-			  cargo_type => 'leaf',
-			  cargo_args => {value_type => 'uniline'},
+			  cargo => { type => 'leaf',
+				     value_type => 'uniline'
+				   },
 			},
 	       ordered_hash => { type => 'hash',
 				 index_type => 'string',
 				 ordered => 1 ,
-				 cargo_type => 'leaf',
-				 cargo_args => {value_type => 'uniline'},
+				 cargo => { type => 'leaf',
+					    value_type => 'uniline'
+					  },
 			       },
 	       ordered_hash_of_mandatory => { type => 'hash',
 				 index_type => 'string',
 				 ordered => 1 ,
-				 cargo_type => 'leaf',
-				 cargo_args => {value_type => 'uniline',
-						mandatory => 1,
-					       },
+				 cargo => { type => 'leaf',
+					    value_type => 'uniline',
+					    mandatory => 1,
+					  },
 			       },
-	       ordered_hash_of_nodes => { type => 'hash',
-					  index_type => 'string',
-					  ordered => 1 ,
-					  cargo_type => 'node',
-					  config_class_name => 'SlaveZ'
-					},
+	       'ordered_hash_of_nodes'
+	       => { type => 'hash',
+		    index_type => 'string',
+		    ordered => 1 ,
+		    cargo => { type => 'node',
+			       config_class_name => 'SlaveZ'
+			     },
+		  },
 	       olist => { type => 'list',
-			  cargo_type => 'node',
-			  config_class_name => 'SlaveZ' ,
+			  cargo => { type => 'node',
+				     config_class_name => 'SlaveZ' ,
+				   },
 			},
 	       enum_list => { type => 'list',
 			      cargo => { type => 'leaf',
@@ -195,9 +204,9 @@
 			  min        => 5,
 			  max        => 15
 			},
-	       built_in_default => { type => 'leaf',
+	       upstream_default => { type => 'leaf',
 			  value_type => 'integer',
-			  built_in    => '10',
+			  upstream_default  => '10',
 			},
 	       my_plain_check_list => { type => 'check_list',
 					choice => ['AA' .. 'AE'],

Modified: trunk/libconfig-model-tkui-perl/t/config-model-ui.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-tkui-perl/t/config-model-ui.t?rev=38607&op=diff
==============================================================================
--- trunk/libconfig-model-tkui-perl/t/config-model-ui.t (original)
+++ trunk/libconfig-model-tkui-perl/t/config-model-ui.t Thu Jun 25 16:09:41 2009
@@ -1,7 +1,7 @@
 # -*- cperl -*-
 # $Author: ddumont $
-# $Date: 2008-12-22 13:19:00 +0100 (Mon, 22 Dec 2008) $
-# $Revision: 815 $
+# $Date: 2009-06-23 13:41:22 +0200 (Tue, 23 Jun 2009) $
+# $Revision: 979 $
 use warnings FATAL => qw(all);
 
 use ExtUtils::testlib;
@@ -32,7 +32,7 @@
 
 ok(1,"Compilation done");
 
-my $model = Config::Model -> new (legacy => 'ignore') ;
+my $model = Config::Model -> new () ;
 
 my $inst = $model->instance (root_class_name => 'Master',
                              model_file => 't/big_model.pm',




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