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