r54268 - in /trunk/libconfig-model-tkui-perl: ChangeLog META.yml debian/changelog debian/control debian/copyright lib/Config/Model/TkUI.pm
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sat Mar 13 22:58:21 UTC 2010
Author: jawnsy-guest
Date: Sat Mar 13 22:58:16 2010
New Revision: 54268
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=54268
Log:
* New upstream release
* Add myself to Uploaders and Copyright
* Drop perl version requirement (satisfied by oldstable)
Modified:
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/debian/copyright
trunk/libconfig-model-tkui-perl/lib/Config/Model/TkUI.pm
Modified: trunk/libconfig-model-tkui-perl/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-tkui-perl/ChangeLog?rev=54268&op=diff
==============================================================================
--- trunk/libconfig-model-tkui-perl/ChangeLog (original)
+++ trunk/libconfig-model-tkui-perl/ChangeLog Sat Mar 13 22:58:16 2010
@@ -1,3 +1,8 @@
+2010-03-12 Dominique Dumont <dominique.dumont at hp.com> 1.304
+
+ * lib/Config/Model/TkUI.pm (disp_hash): Fix bug that messed tk
+ tree content after deletion of list elements
+
2010-02-26 Dominique Dumont <dominique.dumont at hp.com> 1.303
* Build.PL: Depends on Config::Model 0.643
Modified: trunk/libconfig-model-tkui-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-tkui-perl/META.yml?rev=54268&op=diff
==============================================================================
--- trunk/libconfig-model-tkui-perl/META.yml (original)
+++ trunk/libconfig-model-tkui-perl/META.yml Sat Mar 13 22:58:16 2010
@@ -48,7 +48,7 @@
file: lib/Config/Model/Tk/Wizard.pm
Config::Model::TkUI:
file: lib/Config/Model/TkUI.pm
- version: 1.303
+ version: 1.304
recommends:
Tk::ObjScanner: 0
requires:
@@ -60,4 +60,4 @@
Tk::Tree: 0
resources:
license: http://opensource.org/licenses/lgpl-license.php
-version: 1.303
+version: 1.304
Modified: trunk/libconfig-model-tkui-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-tkui-perl/debian/changelog?rev=54268&op=diff
==============================================================================
--- trunk/libconfig-model-tkui-perl/debian/changelog (original)
+++ trunk/libconfig-model-tkui-perl/debian/changelog Sat Mar 13 22:58:16 2010
@@ -1,3 +1,11 @@
+libconfig-model-tkui-perl (1.304-1) UNRELEASED; urgency=low
+
+ * New upstream release
+ * Add myself to Uploaders and Copyright
+ * Drop perl version requirement (satisfied by oldstable)
+
+ -- Jonathan Yu <jawnsy at cpan.org> Sat, 13 Mar 2010 18:25:58 -0500
+
libconfig-model-tkui-perl (1.303-1) unstable; urgency=low
* New upstream release
Modified: trunk/libconfig-model-tkui-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-tkui-perl/debian/control?rev=54268&op=diff
==============================================================================
--- trunk/libconfig-model-tkui-perl/debian/control (original)
+++ trunk/libconfig-model-tkui-perl/debian/control Sat Mar 13 22:58:16 2010
@@ -1,18 +1,18 @@
Source: libconfig-model-tkui-perl
Section: perl
Priority: optional
-Build-Depends: debhelper (>= 7),
- perl (>= 5.10) | libmodule-build-perl
-Build-Depends-Indep: perl (>= 5.8.8-12),
+Build-Depends: debhelper (>= 7), perl (>= 5.10) | libmodule-build-perl
+Build-Depends-Indep: perl,
perl-tk (>= 800),
- libconfig-model-perl (>= 0.643),
+ libconfig-model-perl (>= 0.643),
libexception-class-perl,
libtest-pod-perl,
- libtk-dirselect-perl,
+ libtk-dirselect-perl,
libtk-objscanner-perl,
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>
+Uploaders: Dominique Dumont <dominique.dumont at hp.com>,
+ Jonathan Yu <jawnsy at cpan.org>
Standards-Version: 3.8.4
Homepage: http://search.cpan.org/dist/Config-Model-TkUI/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libconfig-model-tkui-perl/
Modified: trunk/libconfig-model-tkui-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-tkui-perl/debian/copyright?rev=54268&op=diff
==============================================================================
--- trunk/libconfig-model-tkui-perl/debian/copyright (original)
+++ trunk/libconfig-model-tkui-perl/debian/copyright Sat Mar 13 22:58:16 2010
@@ -9,13 +9,14 @@
License: LGPL-2+
Files: examples/model.pl
-Copyright: 2009, Alexander Becker <asb_ehb at yahoo.de>
- 2009, Dominique Dumont <ddumont at cpan.org>
+Copyright: 2009, Alexander Becker <asb_ehb at yahoo.de>
+ 2009, Dominique Dumont <ddumont at cpan.org>
License: LGPL-2+
Files: debian/*
Copyright: 2008-2010, Dominique Dumont <dominique.dumont at hp.com>
-License: LGPL-2+
+ 2010, Jonathan Yu <jawnsy at cpan.org>
+License: LGPL-2+
License: LGPL-2+
This program is free software; you can redistribute it and/or
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=54268&op=diff
==============================================================================
--- trunk/libconfig-model-tkui-perl/lib/Config/Model/TkUI.pm (original)
+++ trunk/libconfig-model-tkui-perl/lib/Config/Model/TkUI.pm Sat Mar 13 22:58:16 2010
@@ -38,7 +38,7 @@
use Config::Model::Tk::Wizard ;
-$VERSION = '1.303' ;
+$VERSION = '1.304' ;
Construct Tk::Widget 'ConfigModelUI';
@@ -579,7 +579,6 @@
my $node_loc = $node->location ;
my $prevpath = '' ;
- my $idx_nb = 0 ; # used to keep track of tktree item order
foreach my $idx (@idx) {
my $newpath = $path.'.'. to_path($idx) ;
my $scan_sub = sub {
@@ -587,15 +586,20 @@
};
my $eltmode = $elt_mode{$elt_type};
+ my $sub_elt = $elt->fetch_with_id($idx) ;
if ($tkt->infoExists($newpath) ) {
my $previous_data = $tkt->info(data => $newpath);
- my $previous_idx_nb = $previous_data->[2] ;
+ my $previous_elt = $previous_data->[1] ;
$eltmode = $tkt->getmode($newpath); # will reuse mode below
- if ($idx_nb != $previous_idx_nb) {
+ $logger->trace("disp_hash reuse $newpath mode $eltmode cargo_type $elt_type"
+ ." obj $previous_elt" );
+
+ # string comparison of objects is intentional to check that the tree
+ # refers to the correct Config::Model object
+ if ($sub_elt ne $previous_elt) {
$logger->trace( "disp_hash delete $newpath mode $eltmode (got "
- .$previous_idx_nb
- ." expected $idx_nb)" );
+ . "$previous_elt expected $sub_elt)" );
# wrong order, delete the entry
$tkt->delete(entry => $newpath) ;
}
@@ -603,8 +607,9 @@
if (not $tkt->infoExists($newpath)) {
my @opt = $prevpath ? (-after => $prevpath) : (-at => 0 ) ;
- $logger->trace( "disp_hash add $newpath mode $eltmode cargo_type $elt_type" );
- my @data = ( $scan_sub, $elt->fetch_with_id($idx), $idx_nb );
+ $logger->trace( "disp_hash add $newpath mode $eltmode cargo_type $elt_type"
+ ." elt $sub_elt" );
+ my @data = ( $scan_sub, $sub_elt );
weaken($data[1]) ;
$tkt->add($newpath, -data => \@data, @opt) ;
$tkt->itemCreate($newpath,0, -text => $idx ) ;
@@ -619,7 +624,6 @@
$cw->setmode('hash',$newpath,$eltmode,$elt_loc,$fdp_obj,$opening,$scan_sub) ;
$prevpath = $newpath ;
- $idx_nb++ ;
} ;
}
@@ -804,6 +808,7 @@
return;
}
$obj = $data_ref->[1] ;
+ weaken($obj) ;
#my $loc = $data_ref->[1]->location;
#$obj = $cw->{root}->grab($loc);
More information about the Pkg-perl-cvs-commits
mailing list