r67287 - in /branches/upstream/libconfig-model-tkui-perl/current: ./ lib/Config/Model/ lib/Config/Model/Tk/ wr_data/
ddumont-guest at users.alioth.debian.org
ddumont-guest at users.alioth.debian.org
Tue Jan 11 18:24:00 UTC 2011
Author: ddumont-guest
Date: Tue Jan 11 18:23:37 2011
New Revision: 67287
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=67287
Log:
[svn-upgrade] new version libconfig-model-tkui-perl (1.320)
Removed:
branches/upstream/libconfig-model-tkui-perl/current/wr_data/
Modified:
branches/upstream/libconfig-model-tkui-perl/current/ChangeLog
branches/upstream/libconfig-model-tkui-perl/current/MANIFEST
branches/upstream/libconfig-model-tkui-perl/current/MANIFEST.SKIP
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/NodeEditor.pm
branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/NodeViewer.pm
branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/NoteEditor.pm
branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/Wizard.pm
branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/TkUI.pm
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=67287&op=diff
==============================================================================
--- branches/upstream/libconfig-model-tkui-perl/current/ChangeLog (original)
+++ branches/upstream/libconfig-model-tkui-perl/current/ChangeLog Tue Jan 11 18:23:37 2011
@@ -1,3 +1,8 @@
+2011-01-11 Dominique Dumont <domi.dumont at free.fr> 1.320
+
+ * LeafViewer: removed 'apply fix' button. This one is reserved for
+ LeafEditor
+
2011-01-09 Dominique Dumont <domi.dumont at free.fr> 1.319
* LeafEditor: added fix button to fix warnings (if model provides a fix)
Modified: branches/upstream/libconfig-model-tkui-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-tkui-perl/current/MANIFEST?rev=67287&op=diff
==============================================================================
--- branches/upstream/libconfig-model-tkui-perl/current/MANIFEST (original)
+++ branches/upstream/libconfig-model-tkui-perl/current/MANIFEST Tue Jan 11 18:23:37 2011
@@ -33,4 +33,3 @@
t/config-model-wizard.t
t/pod.t
t/release-pod-syntax.t
-wr_data/foo/test1.cds
Modified: branches/upstream/libconfig-model-tkui-perl/current/MANIFEST.SKIP
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-tkui-perl/current/MANIFEST.SKIP?rev=67287&op=diff
==============================================================================
--- branches/upstream/libconfig-model-tkui-perl/current/MANIFEST.SKIP (original)
+++ branches/upstream/libconfig-model-tkui-perl/current/MANIFEST.SKIP Tue Jan 11 18:23:37 2011
@@ -6,3 +6,4 @@
_build
dist.ini
blib
+wr_data
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=67287&op=diff
==============================================================================
--- branches/upstream/libconfig-model-tkui-perl/current/META.yml (original)
+++ branches/upstream/libconfig-model-tkui-perl/current/META.yml Tue Jan 11 18:23:37 2011
@@ -26,4 +26,4 @@
Tk: 0
Tk::DirSelect: 0
Tk::Tree: 0
-version: 1.319
+version: 1.320
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=67287&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 Jan 11 18:23:37 2011
@@ -27,7 +27,7 @@
package Config::Model::Tk::AnyViewer ;
BEGIN {
- $Config::Model::Tk::AnyViewer::VERSION = '1.319';
+ $Config::Model::Tk::AnyViewer::VERSION = '1.320';
}
use strict;
@@ -168,7 +168,7 @@
}
sub add_warning {
- my ($cw, $elt_obj) = @_ ;
+ my ($cw, $elt_obj,$usage) = @_ ;
my $msg = $elt_obj->warning_msg || '' . "with " . $elt_obj->has_fixes." fixes";
@@ -180,13 +180,16 @@
-text => 'Warning',
) ->pack(-anchor => 'w', -side => 'left', -fill =>'x');
- my $nb_fixes = $elt_obj->has_fixes ;
-
- my $fix_widget = $label_button_frame -> Button(
- -text => "Apply $nb_fixes fixes",
- -state => $nb_fixes ? 'normal' : 'disabled'
- );
- $fix_widget ->pack(-anchor => 'e', -side => 'right');
+ if ($usage eq 'edit') {
+ my $nb_fixes = $elt_obj->has_fixes ;
+
+ my $fix_widget = $label_button_frame -> Button(
+ -text => "Apply $nb_fixes fixes",
+ -state => $nb_fixes ? 'normal' : 'disabled'
+ );
+ $fix_widget ->pack(-anchor => 'e', -side => 'right');
+ $cw->Advertise(fix_widget => $fix_widget) ;
+ }
my $warn_widget = $inner_frame->Scrolled('ROText',
-scrollbars => 'ow',
@@ -200,7 +203,6 @@
$warn_widget ->tagConfigure(qw/warning -lmargin1 2 -lmargin2 2 -rmargin 2 -background orange/);
$cw->Advertise(warn_widget => $warn_widget) ;
- $cw->Advertise(fix_widget => $fix_widget) ;
$cw->Advertise(warn_frame => $inner_frame ) ;
$cw->update_warning($elt_obj) ;
@@ -209,7 +211,7 @@
}
sub update_warning {
- my ($cw, $elt_obj) = @_ ;
+ my ($cw, $elt_obj,$usage) = @_ ;
my $msg = $elt_obj->warning_msg ;
if (ref ($msg) eq 'HASH') {
@@ -224,17 +226,20 @@
$ww->delete('0.0', 'end') ;
$ww->insert('end',$msg,'warning') ;
$wf->pack(@fbe1) ;
- my $nb_fixes = $elt_obj->has_fixes ;
- $fw->configure(
- -text => "Apply $nb_fixes fixes",
- -command => sub{
- $elt_obj -> apply_fixes ;
- $cw->reset_value ;
- $cw->update_warning($elt_obj) ;
- $cw->{store_cb}->() ;
- } ,
- -state => $nb_fixes ? 'normal' : 'disabled'
- ) ;
+
+ if ( defined $fw ) {
+ my $nb_fixes = $elt_obj->has_fixes;
+ $fw->configure(
+ -text => "Apply $nb_fixes fixes",
+ -command => sub {
+ $elt_obj->apply_fixes;
+ $cw->reset_value;
+ $cw->update_warning($elt_obj);
+ $cw->{store_cb}->();
+ },
+ -state => $nb_fixes ? 'normal' : 'disabled'
+ );
+ }
}
else {
$wf->packForget ;
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=67287&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 Jan 11 18:23:37 2011
@@ -9,7 +9,7 @@
#
package Config::Model::Tk::CheckListEditor ;
BEGIN {
- $Config::Model::Tk::CheckListEditor::VERSION = '1.319';
+ $Config::Model::Tk::CheckListEditor::VERSION = '1.320';
}
use strict;
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=67287&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 Jan 11 18:23:37 2011
@@ -9,7 +9,7 @@
#
package Config::Model::Tk::CheckListViewer ;
BEGIN {
- $Config::Model::Tk::CheckListViewer::VERSION = '1.319';
+ $Config::Model::Tk::CheckListViewer::VERSION = '1.320';
}
use strict;
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=67287&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 Jan 11 18:23:37 2011
@@ -9,7 +9,7 @@
#
package Config::Model::Tk::HashEditor ;
BEGIN {
- $Config::Model::Tk::HashEditor::VERSION = '1.319';
+ $Config::Model::Tk::HashEditor::VERSION = '1.320';
}
use strict;
@@ -211,7 +211,7 @@
# set all buttons to their default state
$cw->update_state(tklist => '', entry => '') ;
- $cw->add_warning($hash)->pack(@fx) ;
+ $cw->add_warning($hash,'edit')->pack(@fx) ;
$cw->add_info_button()->pack( @fx,qw/-anchor n/) ;
$cw->add_summary($hash)->pack(@fx) ;
$cw->add_description($hash)->pack(@fx) ;
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=67287&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 Jan 11 18:23:37 2011
@@ -9,7 +9,7 @@
#
package Config::Model::Tk::HashViewer ;
BEGIN {
- $Config::Model::Tk::HashViewer::VERSION = '1.319';
+ $Config::Model::Tk::HashViewer::VERSION = '1.320';
}
use strict;
@@ -59,7 +59,7 @@
}
$cw->add_annotation($hash) -> pack(@fx);
- $cw->add_warning($hash)->pack(@fx) ;
+ $cw->add_warning($hash,'view')->pack(@fx) ;
$cw->add_summary($hash) -> pack(@fx) ;
$cw->add_description($hash)-> pack(@fx) ;
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=67287&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 Jan 11 18:23:37 2011
@@ -9,7 +9,7 @@
#
package Config::Model::Tk::LeafEditor ;
BEGIN {
- $Config::Model::Tk::LeafEditor::VERSION = '1.319';
+ $Config::Model::Tk::LeafEditor::VERSION = '1.320';
}
use strict;
@@ -121,7 +121,7 @@
}
$cw->ConfigModelNoteEditor( -object => $leaf )->pack;
- $cw->add_warning($leaf)->pack(@fx) ;
+ $cw->add_warning($leaf, 'edit')->pack(@fx) ;
$cw->add_info_button()->pack( @fx,qw/-anchor n/) ;
$cw->add_summary($leaf)->pack(@fx) ;
$cw->add_description($leaf)->pack(@fx) ;
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=67287&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 Jan 11 18:23:37 2011
@@ -9,7 +9,7 @@
#
package Config::Model::Tk::LeafViewer ;
BEGIN {
- $Config::Model::Tk::LeafViewer::VERSION = '1.319';
+ $Config::Model::Tk::LeafViewer::VERSION = '1.320';
}
use strict;
@@ -77,7 +77,7 @@
$cw->add_annotation($leaf)->pack(@fx);
$cw->add_summary($leaf)->pack(@fx) ;
$cw->add_description($leaf)->pack(@fx) ;
- $cw->add_warning($leaf)->pack(@fx) ;
+ $cw->add_warning($leaf,'view')->pack(@fx) ;
$cw->add_help('value help' => $leaf->get_help($cw->{value}))->pack(@fx) ;
$cw->add_info_button() -> pack(@fxe1, -side => 'left' , -anchor => 'n') ;
$cw->add_editor_button($path)-> pack(@fxe1, -side => 'right', -anchor => 'n') ;
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=67287&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 Jan 11 18:23:37 2011
@@ -9,7 +9,7 @@
#
package Config::Model::Tk::ListEditor ;
BEGIN {
- $Config::Model::Tk::ListEditor::VERSION = '1.319';
+ $Config::Model::Tk::ListEditor::VERSION = '1.320';
}
use strict;
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=67287&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 Jan 11 18:23:37 2011
@@ -9,7 +9,7 @@
#
package Config::Model::Tk::ListViewer ;
BEGIN {
- $Config::Model::Tk::ListViewer::VERSION = '1.319';
+ $Config::Model::Tk::ListViewer::VERSION = '1.320';
}
use strict;
Modified: branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/NodeEditor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/NodeEditor.pm?rev=67287&op=diff
==============================================================================
--- branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/NodeEditor.pm (original)
+++ branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/NodeEditor.pm Tue Jan 11 18:23:37 2011
@@ -9,7 +9,7 @@
#
package Config::Model::Tk::NodeEditor ;
BEGIN {
- $Config::Model::Tk::NodeEditor::VERSION = '1.319';
+ $Config::Model::Tk::NodeEditor::VERSION = '1.320';
}
use strict;
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=67287&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 Jan 11 18:23:37 2011
@@ -9,7 +9,7 @@
#
package Config::Model::Tk::NodeViewer ;
BEGIN {
- $Config::Model::Tk::NodeViewer::VERSION = '1.319';
+ $Config::Model::Tk::NodeViewer::VERSION = '1.320';
}
use strict;
Modified: branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/NoteEditor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/NoteEditor.pm?rev=67287&op=diff
==============================================================================
--- branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/NoteEditor.pm (original)
+++ branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/NoteEditor.pm Tue Jan 11 18:23:37 2011
@@ -9,7 +9,7 @@
#
package Config::Model::Tk::NoteEditor ;
BEGIN {
- $Config::Model::Tk::NoteEditor::VERSION = '1.319';
+ $Config::Model::Tk::NoteEditor::VERSION = '1.320';
}
use strict;
Modified: branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/Wizard.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/Wizard.pm?rev=67287&op=diff
==============================================================================
--- branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/Wizard.pm (original)
+++ branches/upstream/libconfig-model-tkui-perl/current/lib/Config/Model/Tk/Wizard.pm Tue Jan 11 18:23:37 2011
@@ -10,7 +10,7 @@
package Config::Model::Tk::Wizard ;
BEGIN {
- $Config::Model::Tk::Wizard::VERSION = '1.319';
+ $Config::Model::Tk::Wizard::VERSION = '1.320';
}
use strict;
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=67287&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 Jan 11 18:23:37 2011
@@ -11,7 +11,7 @@
package Config::Model::TkUI ;
BEGIN {
- $Config::Model::TkUI::VERSION = '1.319';
+ $Config::Model::TkUI::VERSION = '1.320';
}
use strict;
More information about the Pkg-perl-cvs-commits
mailing list