r39029 - in /trunk/libconfig-model-tkui-perl: Build.PL ChangeLog META.yml debian/changelog 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
Wed Jul 1 13:29:29 UTC 2009
Author: ddumont-guest
Date: Wed Jul 1 13:29:24 2009
New Revision: 39029
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=39029
Log:
ready for upload
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/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=39029&op=diff
==============================================================================
--- trunk/libconfig-model-tkui-perl/Build.PL (original)
+++ trunk/libconfig-model-tkui-perl/Build.PL Wed Jul 1 13:29:24 2009
@@ -1,6 +1,6 @@
# $Author: ddumont $
-# $Date: 2009-06-23 14:19:05 +0200 (Tue, 23 Jun 2009) $
-# $Revision: 983 $
+# $Date: 2009-06-29 14:41:07 +0200 (Mon, 29 Jun 2009) $
+# $Revision: 994 $
# 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.637',
+ 'Config::Model' => '0.638',
'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=39029&op=diff
==============================================================================
--- trunk/libconfig-model-tkui-perl/ChangeLog (original)
+++ trunk/libconfig-model-tkui-perl/ChangeLog Wed Jul 1 13:29:24 2009
@@ -1,3 +1,9 @@
+2009-06-28 Dominique Dumont <domi at ylum.gre.hp.com> v1.211
+
+ * lib/Config/Model/TkUI.pm (save): don't pass undefined dir
+ parameter to avoid breaking write back function. (Fixes save
+ problem Config::Mode::OpenSsh 1.206)
+
2009-06-23 Dominique Dumont <dominique.dumont at hp.com> v1.210
* lib/Config/Model/Tk/LeafViewer.pm (add_info): use
Modified: trunk/libconfig-model-tkui-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-tkui-perl/META.yml?rev=39029&op=diff
==============================================================================
--- trunk/libconfig-model-tkui-perl/META.yml (original)
+++ trunk/libconfig-model-tkui-perl/META.yml Wed Jul 1 13:29:24 2009
@@ -1,6 +1,6 @@
---
name: Config-Model-TkUI
-version: 1.210
+version: 1.211
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.637
+ Config::Model: 0.638
Exception::Class: 0
Log::Log4perl: 1.11
Tk: 0
@@ -49,7 +49,7 @@
version: 1.0910
Config::Model::TkUI:
file: lib/Config/Model/TkUI.pm
- version: 1.210
+ version: 1.211
generated_by: Module::Build version 0.33
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
Modified: trunk/libconfig-model-tkui-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-tkui-perl/debian/changelog?rev=39029&op=diff
==============================================================================
--- trunk/libconfig-model-tkui-perl/debian/changelog (original)
+++ trunk/libconfig-model-tkui-perl/debian/changelog Wed Jul 1 13:29:24 2009
@@ -1,3 +1,9 @@
+libconfig-model-tkui-perl (1.211-1) unstable; urgency=low
+
+ * New upstream release: Fix broken save in config-edit-ssh
+
+ -- Dominique Dumont <dominique.dumont at hp.com> Wed, 01 Jul 2009 15:28:10 +0200
+
libconfig-model-tkui-perl (1.210-1) unstable; urgency=low
[ Nathan Handler ]
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=39029&op=diff
==============================================================================
--- trunk/libconfig-model-tkui-perl/lib/Config/Model/TkUI.pm (original)
+++ trunk/libconfig-model-tkui-perl/lib/Config/Model/TkUI.pm Wed Jul 1 13:29:24 2009
@@ -1,6 +1,6 @@
# $Author: ddumont $
-# $Date: 2009-06-23 13:41:22 +0200 (Tue, 23 Jun 2009) $
-# $Revision: 979 $
+# $Date: 2009-06-29 14:41:07 +0200 (Mon, 29 Jun 2009) $
+# $Revision: 994 $
# Copyright (c) 2007,2009 Dominique Dumont.
#
@@ -53,7 +53,7 @@
use Config::Model::Tk::NodeViewer ;
-$VERSION = '1.210' ;
+$VERSION = '1.211' ;
Construct Tk::Widget 'ConfigModelUI';
@@ -382,6 +382,7 @@
my $dir = $cw->{save_dir} ;
my $trace_dir = defined $dir ? $dir : 'default' ;
+ my @wb_args = defined $dir ? (config_dir => $dir) : () ;
$cw->check() ;
@@ -391,7 +392,7 @@
}
else {
$logger->info( "Saving data in $trace_dir directory with instance write_back" );
- $cw->{root}->instance->write_back($dir);
+ $cw->{root}->instance->write_back(@wb_args);
}
$cw->{modified_data} = 0 ;
}
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=39029&op=diff
==============================================================================
--- trunk/libconfig-model-tkui-perl/t/big_model.pm (original)
+++ trunk/libconfig-model-tkui-perl/t/big_model.pm Wed Jul 1 13:29:24 2009
@@ -1,7 +1,7 @@
# -*- cperl -*-
# $Author: ddumont $
-# $Date: 2009-06-23 14:34:38 +0200 (Tue, 23 Jun 2009) $
-# $Revision: 984 $
+# $Date: 2009-06-29 14:41:07 +0200 (Mon, 29 Jun 2009) $
+# $Revision: 994 $
# this file is used by test script
@@ -102,6 +102,8 @@
experience => [ [qw/tree_macro warp/] => 'advanced'] ,
class_description => "Master description",
level => [ [qw/hash_a tree_macro int_v/] => 'important' ],
+ write_config => [ { backend => 'cds_file' , config_dir => '/foo', auto_create => 1},
+ ],
element => [
std_id => { type => 'hash',
index_type => 'string',
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=39029&op=diff
==============================================================================
--- trunk/libconfig-model-tkui-perl/t/config-model-ui.t (original)
+++ trunk/libconfig-model-tkui-perl/t/config-model-ui.t Wed Jul 1 13:29:24 2009
@@ -1,7 +1,7 @@
# -*- cperl -*-
# $Author: ddumont $
-# $Date: 2009-06-23 13:41:22 +0200 (Tue, 23 Jun 2009) $
-# $Revision: 979 $
+# $Date: 2009-06-29 14:41:07 +0200 (Mon, 29 Jun 2009) $
+# $Revision: 994 $
use warnings FATAL => qw(all);
use ExtUtils::testlib;
@@ -22,7 +22,7 @@
$::verbose = 1 if $arg =~ /v/;
$::debug = 1 if $arg =~ /d/;
$log = 1 if $arg =~ /l/;
-$show = 1 if $arg =~ /s/;
+$show = 1 if $arg =~ /s|i/;
print "You can play with the widget if you run the test with 's' argument\n";
@@ -36,7 +36,9 @@
my $inst = $model->instance (root_class_name => 'Master',
model_file => 't/big_model.pm',
- instance_name => 'test1');
+ instance_name => 'test1',
+ root_dir => 'wr_data',
+ );
ok($inst,"created dummy instance") ;
@@ -72,6 +74,11 @@
ok( $root->load( step => $step, permission => 'advanced' ),
"set up data in tree");
+
+my $load_fix = "a_mandatory_string=foo1 another_mandatory_string=foo2
+ ordered_hash_of_mandatory:foo=hashfoo
+ warp a_string=warpfoo a_long_string=longfoo another_string=anotherfoo -
+ slave_y a_string=slave_y_foo a_long_string=sylongfoo another_string=sy_anotherfoo" ;
#$root->load(step => "tree_macro=XZ", permission => 'advanced') ;
@@ -110,7 +117,6 @@
sub { $cmu->edit_copy('test1.std_id')},
sub { $cmu->force_element_display($root->grab('hash_a:titi')) },
sub { $cmu->edit_copy('test1.hash_a.titi')},
-
#sub { $cmu->edit_paste('test1.hash_b')},
#sub { $cmu->force_element_display($root->grab('hash_b:titi')) },
) ;
@@ -150,6 +156,11 @@
sub { $widget->Subwidget('notebook')->raise('order') ;},
sub { $widget->{order_list}->selectionSet(1,1) ;}, # Z
sub { $widget->move_selected_down ;},
+ sub { $cmu->save()},
+ sub {
+ for ($cmu->children) { $_->destroy if $_->name =~ /dialog/i; } ;
+ $root->load($load_fix);},
+ sub { $cmu->save()},
sub { exit; }
);
More information about the Pkg-perl-cvs-commits
mailing list