From 7b2fc2637d30c36d50e0c6a4006c3bf6d594c1cd Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Mon, 5 Aug 2002 13:31:54 +0000 Subject: the state can be XXX also in flat mode, for disabling the setting of the state --- perl-install/my_gtk.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index f5064c898..458164a8f 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -405,6 +405,7 @@ sub ask_browse_tree_info_given_widgets { my $set_node_state_flat = sub { my ($node, $state) = @_; + $state eq 'XXX' and return; $pix{$state} ||= [ gtkcreate_png($state) ]; $w->{tree}->node_set_pixmap($node, 1, $pix{$state}[0], $pix{$state}[1]); }; -- cgit v1.2.1