From a9f79a5dd73567daf73a969f7c2b21a22e9935b9 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Wed, 18 Aug 2004 09:31:19 +0000 Subject: Make the status field optional in treeviews --- perl-install/ugtk2.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'perl-install/ugtk2.pm') diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index dd50615f5..ab7b59bd4 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -1275,8 +1275,10 @@ sub ask_browse_tree_info_given_widgets { my ($curr, $prev_label, $idle, $mouse_toggle_pending); my (%wtree, %ptree, %pix, %node_state, %state_stats); my $update_size = sub { - my $new_label = $common->{get_status}(); - $prev_label ne $new_label and $w->{status}->set($prev_label = $new_label); + if ($w->{status}) { + my $new_label = $common->{get_status}(); + $prev_label ne $new_label and $w->{status}->set($prev_label = $new_label); + } }; my $set_node_state_flat = sub { -- cgit v1.2.1