summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-08-18 09:31:19 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-08-18 09:31:19 +0000
commita9f79a5dd73567daf73a969f7c2b21a22e9935b9 (patch)
tree66d578810e59b2d92f75b7f164ae7043098e93bf /perl-install
parent5ff1e05787636680f50387406072d82123154942 (diff)
downloaddrakx-a9f79a5dd73567daf73a969f7c2b21a22e9935b9.tar
drakx-a9f79a5dd73567daf73a969f7c2b21a22e9935b9.tar.gz
drakx-a9f79a5dd73567daf73a969f7c2b21a22e9935b9.tar.bz2
drakx-a9f79a5dd73567daf73a969f7c2b21a22e9935b9.tar.xz
drakx-a9f79a5dd73567daf73a969f7c2b21a22e9935b9.zip
Make the status field optional in treeviews
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk2.pm6
1 files changed, 4 insertions, 2 deletions
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 {