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

ddumont-guest at users.alioth.debian.org ddumont-guest at users.alioth.debian.org
Tue Apr 21 11:52:44 UTC 2009


Author: ddumont-guest
Date: Tue Apr 21 11:52:39 2009
New Revision: 33639

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

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/CheckListEditor.pm
    branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/CheckListViewer.pm
    branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/HashEditor.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/ListEditor.pm
    branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/ListViewer.pm
    branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/NodeViewer.pm
    branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/TkUI.pm
    branches/upstream/libconfig-model-tkui-perl/current/t/big_model.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=33639&op=diff
==============================================================================
--- branches/upstream/libconfig-model-tkui-perl/current/Build.PL (original)
+++ branches/upstream/libconfig-model-tkui-perl/current/Build.PL Tue Apr 21 11:52:39 2009
@@ -1,8 +1,8 @@
 # $Author: ddumont $
-# $Date: 2008-12-22 14:36:03 +0100 (Mon, 22 Dec 2008) $
-# $Revision: 818 $
+# $Date: 2009-03-31 13:41:21 +0200 (Tue, 31 Mar 2009) $
+# $Revision: 910 $
 
-#    Copyright (c) 2007,2008 Dominique Dumont.
+#    Copyright (c) 2007-2009 Dominique Dumont.
 #
 #    This file is part of Config-Model-TkUI.
 #
@@ -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.629',
+		'Config::Model'    => '0.635',
 		'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=33639&op=diff
==============================================================================
--- branches/upstream/libconfig-model-tkui-perl/current/ChangeLog (original)
+++ branches/upstream/libconfig-model-tkui-perl/current/ChangeLog Tue Apr 21 11:52:39 2009
@@ -1,3 +1,12 @@
+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
+
+	* lib/Config/Model/Tk/*.pm (): Added display of summary 
+
 2009-03-12  Dominique Dumont  <dominique.dumont at hp.com> v1.207
 
 	* lib/Config/Model/Tk/LeafEditor.pm (cleanup): new method (and

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=33639&op=diff
==============================================================================
--- branches/upstream/libconfig-model-tkui-perl/current/META.yml (original)
+++ branches/upstream/libconfig-model-tkui-perl/current/META.yml Tue Apr 21 11:52:39 2009
@@ -1,6 +1,6 @@
 ---
 name: Config-Model-TkUI
-version: 1.207
+version: 1.208
 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.629
+  Config::Model: 0.635
   Exception::Class: 0
   Log::Log4perl: 1.11
   Tk: 0
@@ -19,37 +19,37 @@
 provides:
   Config::Model::Tk::AnyViewer:
     file: lib/Config/Model/Tk/AnyViewer.pm
-    version: 1.0893
+    version: 1.0910
   Config::Model::Tk::CheckListEditor:
     file: lib/Config/Model/Tk/CheckListEditor.pm
-    version: 1.0893
+    version: 1.0910
   Config::Model::Tk::CheckListViewer:
     file: lib/Config/Model/Tk/CheckListViewer.pm
-    version: 1.0893
+    version: 1.0910
   Config::Model::Tk::HashEditor:
     file: lib/Config/Model/Tk/HashEditor.pm
-    version: 1.0893
+    version: 1.0920
   Config::Model::Tk::HashViewer:
     file: lib/Config/Model/Tk/HashViewer.pm
-    version: 1.0893
+    version: 1.0910
   Config::Model::Tk::LeafEditor:
     file: lib/Config/Model/Tk/LeafEditor.pm
-    version: 1.0893
+    version: 1.0910
   Config::Model::Tk::LeafViewer:
     file: lib/Config/Model/Tk/LeafViewer.pm
-    version: 1.0893
+    version: 1.0910
   Config::Model::Tk::ListEditor:
     file: lib/Config/Model/Tk/ListEditor.pm
-    version: 1.0893
+    version: 1.0910
   Config::Model::Tk::ListViewer:
     file: lib/Config/Model/Tk/ListViewer.pm
-    version: 1.0893
+    version: 1.0910
   Config::Model::Tk::NodeViewer:
     file: lib/Config/Model/Tk/NodeViewer.pm
-    version: 1.0893
+    version: 1.0910
   Config::Model::TkUI:
     file: lib/Config/Model/TkUI.pm
-    version: 1.207
+    version: 1.208
 generated_by: Module::Build version 0.3
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.2.html

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=33639&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 Tue Apr 21 11:52:39 2009
@@ -1,8 +1,8 @@
 # $Author: ddumont $
-# $Date: 2009-03-12 13:33:03 +0100 (Thu, 12 Mar 2009) $
-# $Revision: 893 $
+# $Date: 2009-03-31 13:41:21 +0200 (Tue, 31 Mar 2009) $
+# $Revision: 910 $
 
-#    Copyright (c) 2008 Dominique Dumont.
+#    Copyright (c) 2008-2009 Dominique Dumont.
 #
 #    This file is part of Config-Model-TkUi.
 #
@@ -32,7 +32,7 @@
 
 use vars qw/$VERSION $icon_path/ ;
 
-$VERSION = sprintf "1.%04d", q$Revision: 893 $ =~ /(\d+)/;
+$VERSION = sprintf "1.%04d", q$Revision: 910 $ =~ /(\d+)/;
 
 my @fbe1 = qw/-fill both -expand 1/ ;
 my @fxe1 = qw/-fill x    -expand 1/ ;
@@ -93,21 +93,10 @@
 }
 
 
-sub add_help_frame {
-    my $cw = shift ;
-
-    # FIXME: remove this method
-
-    #my $htop_frame = $cw->Frame()->pack(@fb) ;
-    #$htop_frame -> Label(-text => 'Help', -anchor => 'w' ) ->pack(@f) ;
-
-    #$cw->{help_f} = $htop_frame#->Frame()->pack(@fb) ;
-}
-
 # returns the help widget (Label or ROText)
 sub add_help {
     my $cw = shift ;
-    my $type = shift ;
+    my $help_label = shift ;
     my $help = shift || '' ;
     my $force_text_widget = shift || 0;
 
@@ -116,7 +105,7 @@
     my $help_frame = $cw-> Frame()->pack(@fbe1);
 
     $help_frame ->Label(
-			 -text => "Help on $type: ", 
+			 -text => $help_label, 
 			) ->pack(-anchor => 'w');
 
     my $widget ;
@@ -145,6 +134,16 @@
     return $widget ;
 }
 
+sub add_summary_and_description {
+    my ($cw, $elt_obj) = @_ ;
+
+    my $p    = $elt_obj->parent ;
+    my $name = $elt_obj->element_name ;
+    foreach my $topic (qw/summary description/) {
+	$cw->add_help( ucfirst($topic), $p->get_help($topic => $name)) ;
+    }
+}
+
 sub add_editor_button {
     my ($cw,$path) = @_ ;
 

Modified: branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/CheckListEditor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/CheckListEditor.pm?rev=33639&op=diff
==============================================================================
--- branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/CheckListEditor.pm (original)
+++ branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/CheckListEditor.pm Tue Apr 21 11:52:39 2009
@@ -1,6 +1,6 @@
 # $Author: ddumont $
-# $Date: 2009-03-12 13:33:03 +0100 (Thu, 12 Mar 2009) $
-# $Revision: 893 $
+# $Date: 2009-03-31 13:41:21 +0200 (Tue, 31 Mar 2009) $
+# $Revision: 910 $
 
 #    Copyright (c) 2008 Dominique Dumont.
 #
@@ -32,7 +32,7 @@
 
 use Tk::NoteBook;
 
-$VERSION = sprintf "1.%04d", q$Revision: 893 $ =~ /(\d+)/;
+$VERSION = sprintf "1.%04d", q$Revision: 910 $ =~ /(\d+)/;
 
 Construct Tk::Widget 'ConfigModelCheckListEditor';
 
@@ -105,9 +105,7 @@
 			-command => sub { $cw->store ( &$get_selected )},
 		      ) -> pack(-side => 'left') ;
 
-    $cw->add_help_frame() ;
-    $cw->add_help(class   => $leaf->parent->get_help) ;
-    $cw->add_help(element => $leaf->parent->get_help($leaf->element_name)) ;
+    $cw->add_summary_and_description($leaf) ;
     $cw->{value_help_widget} = $cw->add_help(value => '',1);
     $b_sub->() ;
 

Modified: branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/CheckListViewer.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/CheckListViewer.pm?rev=33639&op=diff
==============================================================================
--- branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/CheckListViewer.pm (original)
+++ branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/CheckListViewer.pm Tue Apr 21 11:52:39 2009
@@ -1,6 +1,6 @@
 # $Author: ddumont $
-# $Date: 2009-03-12 13:33:03 +0100 (Thu, 12 Mar 2009) $
-# $Revision: 893 $
+# $Date: 2009-03-31 13:41:21 +0200 (Tue, 31 Mar 2009) $
+# $Revision: 910 $
 
 #    Copyright (c) 2008-2009 Dominique Dumont.
 #
@@ -31,7 +31,7 @@
 use subs qw/menu_struct/ ;
 use Tk::ROText ;
 
-$VERSION = sprintf "1.%04d", q$Revision: 893 $ =~ /(\d+)/;
+$VERSION = sprintf "1.%04d", q$Revision: 910 $ =~ /(\d+)/;
 
 Construct Tk::Widget 'ConfigModelCheckListViewer';
 
@@ -63,9 +63,7 @@
     $rt->tagConfigure('in',-background => 'black', -foreground => 'white') ;
 
     $cw->add_info() ;
-    $cw->add_help_frame() ;
-    $cw->add_help(class   => $leaf->parent->get_help) ;
-    $cw->add_help(element => $leaf->parent->get_help($leaf->element_name)) ;
+    $cw->add_summary_and_description($leaf) ;
     $cw->{value_help_widget} = $cw->add_help(value => '',1);
 
     my %h = $leaf->get_checked_list_as_hash ;

Modified: branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/HashEditor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/HashEditor.pm?rev=33639&op=diff
==============================================================================
--- branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/HashEditor.pm (original)
+++ branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/HashEditor.pm Tue Apr 21 11:52:39 2009
@@ -1,6 +1,6 @@
 # $Author: ddumont $
-# $Date: 2009-03-12 13:33:03 +0100 (Thu, 12 Mar 2009) $
-# $Revision: 893 $
+# $Date: 2009-04-07 13:16:38 +0200 (Tue, 07 Apr 2009) $
+# $Revision: 920 $
 
 #    Copyright (c) 2008 Dominique Dumont.
 #
@@ -32,8 +32,9 @@
 use subs qw/menu_struct/ ;
 use Tk::Dialog ;
 use Tk::Photo ;
-
-$VERSION = sprintf "1.%04d", q$Revision: 893 $ =~ /(\d+)/;
+use Tk::Balloon ;
+
+$VERSION = sprintf "1.%04d", q$Revision: 920 $ =~ /(\d+)/;
 
 Construct Tk::Widget 'ConfigModelHashEditor';
 
@@ -42,7 +43,7 @@
 my @fx   = qw/-fill x    / ;
 my $logger = Log::Log4perl::get_logger(__PACKAGE__);
 
-my $entry_width = 20 ;
+my $entry_width = 15 ;
 
 my $up_img;
 my $down_img;
@@ -90,41 +91,61 @@
     my $right_frame = $elt_button_frame->Frame->pack(@fxe1, -side => 'left');
 
     $cw->add_info($cw) ;
-    $cw->add_help_frame() ;
-    $cw->add_help(class   => $hash->parent->get_help) ;
-    $cw->add_help(element => $hash->parent->get_help($hash->element_name)) ;
-
-    my $add_item = '';
-    my $add_frame = $right_frame->Frame->pack( @fxe1);
-
-    my $add_str = $hash->ordered ? "after selection " : '' ;
-    $add_frame -> Button(-text => "Add item $add_str:",
-			 -command => sub {$cw->add_entry($add_item);},
-			 -anchor => 'e',
-			)->pack(-side => 'left', @fx);
-    $add_frame -> Entry (-textvariable => \$add_item, -width => $entry_width)
-               -> pack  (-side => 'left') ;
-
-    my $cp_frame = $right_frame->Frame->pack( @fxe1);
-    my $cp_item = '';
-    $cp_frame -> Button(-text => 'Copy selected item into:',
-			-command => sub {$cw->copy_selected_in($cp_item);},
-			-anchor => 'e',
-		       )
-              -> pack(-side => 'left', @fx);
-    $cp_frame -> Entry (-textvariable => \$cp_item, -width => $entry_width)
-              -> pack  (-side => 'left') ;
-
-
-    my $mv_frame = $right_frame->Frame->pack( @fxe1);
-    my $mv_item = '';
-    $mv_frame -> Button(-text => 'Move selected item into:',
-			-command => sub {$cw->move_selected_to($mv_item);},
-		      	-anchor => 'e',
-		       )
-              -> pack(-side => 'left', @fxe1);
-    $mv_frame -> Entry (-textvariable => \$mv_item, -width => $entry_width)
-              -> pack  (-side => 'left') ;
+    $cw->add_summary_and_description($hash) ;
+
+    my $item_frame = $right_frame->Frame(-relief => 'groove',-bd => 4 )
+      ->pack( @fxe1);
+
+    my $balloon = $cw->Balloon(-state => 'balloon') ;
+
+    my $item = '';
+    my $keep = 0 ;
+    my $label_frame = $item_frame->Frame->pack( @fxe1);
+    $label_frame -> Label (-text => 'Item:')->pack(@fxe1,-side => 'left') ;
+    my $keep_b = $label_frame -> Checkbutton (-variable => \$keep, 
+					    -text => 'keep')
+      -> pack  (-side => 'left') ;
+    $balloon->attach($keep_b, 
+		     -msg => 'keep entry in widget after add, move or copy');
+
+    my $entry = $item_frame -> Entry (-textvariable => \$item )
+      -> pack  (@fxe1) ;
+    $balloon -> attach($entry, 
+		       -msg => 'enter item name to add, copy to, or move to') ;
+
+    my $button_frame = $item_frame->Frame->pack( );
+
+    my $addb = $button_frame 
+      -> Button(-text => "Add",
+		-command => sub { $cw->add_entry($item); 
+				  $item = '' unless $keep;
+			      },
+		-anchor => 'e',
+	       )->pack(-side => 'left');
+    my $add_str = $hash->ordered ? " after selection" : '' ;
+    $balloon->attach($addb,
+		     -msg => "add entry".$add_str);
+
+    my $cp_b = $button_frame 
+      -> Button(-text => 'Copy',
+		-command => sub { $cw->copy_selected_in($item); 
+				  $item = '' unless $keep;},
+		-anchor => 'e',
+	       )
+	-> pack(-side => 'left');
+    $balloon->attach($cp_b,
+		     -msg => "copy selected item in entry");
+
+
+    my $mv_b = $button_frame 
+      -> Button(-text => 'Move',
+		-command => sub { $cw->move_selected_to($item); 
+				  $item = '' unless $keep; },
+		-anchor => 'e',
+	       )
+	-> pack(-side => 'left');
+    $balloon->attach($mv_b,
+		     -msg => "move selected item in entry");
 
     if ($hash->ordered) {
 	my $mv_up_down_frame = $right_frame->Frame->pack( @fxe1);
@@ -140,13 +161,15 @@
     my $del_rm_frame =  $right_frame->Frame->pack( @fxe1);
 
     $del_rm_frame->Button(-text => 'Delete selected',
-			  -command => sub { $cw->delete_selection ;} ,
+			  -command => sub { $cw->delete_selection; 
+					    $item = '' unless $keep;} ,
 			 )-> pack( -side =>'left' , @fxe1);
 
-    $del_rm_frame -> Button ( -text => 'Remove all elements',
+    $del_rm_frame -> Button ( -text => 'Remove all',
 			      -command => sub { $hash->clear ; 
 						$tklist->delete(0,'end');
 						$cw->reload_tree;
+						$item = '';
 					    },
 			    ) -> pack(-side => 'left', @fxe1) ;
 

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=33639&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 Tue Apr 21 11:52:39 2009
@@ -1,6 +1,6 @@
 # $Author: ddumont $
-# $Date: 2009-03-12 13:33:03 +0100 (Thu, 12 Mar 2009) $
-# $Revision: 893 $
+# $Date: 2009-03-31 13:41:21 +0200 (Tue, 31 Mar 2009) $
+# $Revision: 910 $
 
 #    Copyright (c) 2008 Dominique Dumont.
 #
@@ -30,7 +30,7 @@
 use vars qw/$VERSION/ ;
 use subs qw/menu_struct/ ;
 
-$VERSION = sprintf "1.%04d", q$Revision: 893 $ =~ /(\d+)/;
+$VERSION = sprintf "1.%04d", q$Revision: 910 $ =~ /(\d+)/;
 
 Construct Tk::Widget 'ConfigModelHashViewer';
 
@@ -70,9 +70,7 @@
     }
 
     $cw->add_info($cw) ;
-    $cw->add_help_frame() ;
-    $cw->add_help(class   => $hash->parent->get_help) ;
-    $cw->add_help(element => $hash->parent->get_help($hash->element_name)) ;
+    $cw->add_summary_and_description($hash) ;
     $cw->add_editor_button($path) ;
 
     $cw->SUPER::Populate($args) ;

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=33639&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 Tue Apr 21 11:52:39 2009
@@ -1,6 +1,6 @@
 # $Author: ddumont $
-# $Date: 2009-03-12 13:33:03 +0100 (Thu, 12 Mar 2009) $
-# $Revision: 893 $
+# $Date: 2009-03-31 13:41:21 +0200 (Tue, 31 Mar 2009) $
+# $Revision: 910 $
 
 #    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: 893 $ =~ /(\d+)/;
+$VERSION = sprintf "1.%04d", q$Revision: 910 $ =~ /(\d+)/;
 
 Construct Tk::Widget 'ConfigModelLeafEditor';
 
@@ -117,9 +117,7 @@
     $inst->pop_no_value_check ;
 
     $cw->add_info() ;
-    $cw->add_help_frame() ;
-    $cw->add_help(class   => $leaf->parent->get_help) ;
-    $cw->add_help(element => $leaf->parent->get_help($leaf->element_name)) ;
+    $cw->add_summary_and_description($leaf) ;
     $cw->{value_help_widget} = $cw->add_help(value => '',1);
     $cw->set_value_help ;
 

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=33639&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 Tue Apr 21 11:52:39 2009
@@ -1,6 +1,6 @@
 # $Author: ddumont $
-# $Date: 2009-03-12 13:33:03 +0100 (Thu, 12 Mar 2009) $
-# $Revision: 893 $
+# $Date: 2009-03-31 13:41:21 +0200 (Tue, 31 Mar 2009) $
+# $Revision: 910 $
 
 #    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: 893 $ =~ /(\d+)/;
+$VERSION = sprintf "1.%04d", q$Revision: 910 $ =~ /(\d+)/;
 
 Construct Tk::Widget 'ConfigModelLeafViewer';
 
@@ -90,9 +90,7 @@
     }
 
     $cw->add_info() ;
-    $cw->add_help_frame;
-    $cw->add_help(class   => $leaf->parent->get_help) ;
-    $cw->add_help(element => $leaf->parent->get_help($leaf->element_name)) ;
+    $cw->add_summary_and_description($leaf) ;
     $cw->add_help(value   => $leaf->get_help($cw->{value})) ;
     $cw->add_editor_button($path) ;
 

Modified: branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/ListEditor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/ListEditor.pm?rev=33639&op=diff
==============================================================================
--- branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/ListEditor.pm (original)
+++ branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/ListEditor.pm Tue Apr 21 11:52:39 2009
@@ -1,6 +1,6 @@
 # $Author: ddumont $
-# $Date: 2009-03-12 13:33:03 +0100 (Thu, 12 Mar 2009) $
-# $Revision: 893 $
+# $Date: 2009-03-31 13:41:21 +0200 (Tue, 31 Mar 2009) $
+# $Revision: 910 $
 
 #    Copyright (c) 2008 Dominique Dumont.
 #
@@ -32,7 +32,7 @@
 use subs qw/menu_struct/ ;
 use Tk::Dialog ;
 
-$VERSION = sprintf "1.%04d", q$Revision: 893 $ =~ /(\d+)/;
+$VERSION = sprintf "1.%04d", q$Revision: 910 $ =~ /(\d+)/;
 
 Construct Tk::Widget 'ConfigModelListEditor';
 
@@ -81,9 +81,7 @@
     my $right_frame = $elt_button_frame->Frame->pack(@fxe1, -side => 'left');
 
     $cw->add_info($cw) ;
-    $cw->add_help_frame() ;
-    $cw->add_help(class   => $list->parent->get_help) ;
-    $cw->add_help(element => $list->parent->get_help($list->element_name)) ;
+    $cw->add_summary_and_description($list) ;
 
     my $value_type = $list->get_cargo_info('value_type') ; # may be undef
     if ($cargo_type eq 'leaf' and $value_type ne 'enum' and $value_type ne 'reference') {

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=33639&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 Tue Apr 21 11:52:39 2009
@@ -1,6 +1,6 @@
 # $Author: ddumont $
-# $Date: 2009-03-12 13:33:03 +0100 (Thu, 12 Mar 2009) $
-# $Revision: 893 $
+# $Date: 2009-03-31 13:41:21 +0200 (Tue, 31 Mar 2009) $
+# $Revision: 910 $
 
 #    Copyright (c) 2008 Dominique Dumont.
 #
@@ -30,7 +30,7 @@
 use vars qw/$VERSION/ ;
 use subs qw/menu_struct/ ;
 
-$VERSION = sprintf "1.%04d", q$Revision: 893 $ =~ /(\d+)/;
+$VERSION = sprintf "1.%04d", q$Revision: 910 $ =~ /(\d+)/;
 
 Construct Tk::Widget 'ConfigModelListViewer';
 
@@ -72,9 +72,7 @@
     }
 
     $cw->add_info($cw) ;
-    $cw->add_help_frame() ;
-    $cw->add_help(class   => $list->parent->get_help) ;
-    $cw->add_help(element => $list->parent->get_help($list->element_name)) ;
+    $cw->add_summary_and_description($list) ;
     $cw->add_editor_button($path) ;
 
     $cw->SUPER::Populate($args) ;

Modified: branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/NodeViewer.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/NodeViewer.pm?rev=33639&op=diff
==============================================================================
--- branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/NodeViewer.pm (original)
+++ branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/NodeViewer.pm Tue Apr 21 11:52:39 2009
@@ -1,6 +1,6 @@
 # $Author: ddumont $
-# $Date: 2009-03-12 13:33:03 +0100 (Thu, 12 Mar 2009) $
-# $Revision: 893 $
+# $Date: 2009-03-31 13:41:21 +0200 (Tue, 31 Mar 2009) $
+# $Revision: 910 $
 
 #    Copyright (c) 2008 Dominique Dumont.
 #
@@ -30,7 +30,7 @@
 use vars qw/$VERSION/ ;
 use subs qw/menu_struct/ ;
 
-$VERSION = sprintf "1.%04d", q$Revision: 893 $ =~ /(\d+)/;
+$VERSION = sprintf "1.%04d", q$Revision: 910 $ =~ /(\d+)/;
 
 Construct Tk::Widget 'ConfigModelNodeViewer';
 
@@ -70,12 +70,9 @@
     }
 
     $cw->add_info($cw) ;
-    my $parent = $node->parent ;
 
-    $cw->add_help_frame() ;
-    if (defined $parent) {
-	$cw->add_help(class   => $parent->get_help) ;
-	$cw->add_help(element => $parent->get_help($node->element_name)) ;
+    if ($node->parent) {
+	$cw->add_summary_and_description($node) ;
     }
     else {
 	$cw->add_help(class   => $node->get_help) ;

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=33639&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 Tue Apr 21 11:52:39 2009
@@ -1,6 +1,6 @@
 # $Author: ddumont $
-# $Date: 2009-03-12 13:36:55 +0100 (Thu, 12 Mar 2009) $
-# $Revision: 894 $
+# $Date: 2009-04-07 13:16:38 +0200 (Tue, 07 Apr 2009) $
+# $Revision: 920 $
 
 #    Copyright (c) 2007,2009 Dominique Dumont.
 #
@@ -53,7 +53,7 @@
 use Config::Model::Tk::NodeViewer ;
 
 
-$VERSION = '1.207' ;
+$VERSION = '1.208' ;
 
 Construct Tk::Widget 'ConfigModelUI';
 

Modified: branches/upstream/libconfig-model-tkui-perl/current/t/big_model.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-tkui-perl/current/t/big_model.pm?rev=33639&op=diff
==============================================================================
--- branches/upstream/libconfig-model-tkui-perl/current/t/big_model.pm (original)
+++ branches/upstream/libconfig-model-tkui-perl/current/t/big_model.pm Tue Apr 21 11:52:39 2009
@@ -1,8 +1,7 @@
 # -*- cperl -*-
 # $Author: ddumont $
-# $Date: 2008-12-22 13:19:00 +0100 (Mon, 22 Dec 2008) $
-# $Name: not supported by cvs2svn $
-# $Revision: 815 $
+# $Date: 2009-03-31 13:41:21 +0200 (Tue, 31 Mar 2009) $
+# $Revision: 910 $
 
 # this file is used by test script
 
@@ -216,11 +215,13 @@
 		    choice     => ['A' .. 'Z'],
 		    ordered => 1 ,
 		    help => { A => 'A help', E => 'E help' } ,
+		    summary => 'will checklist be served ? ;-) ',
 		  },
 
 	       my_reference => { type => 'leaf',
 				 value_type => 'reference',
 				 refer_to => '- hash_a + ! hash_b',
+				 summary => 'justify a long help ;-) ',
 			       }
 	      ],
    description => [




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