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