summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2003-06-11 16:35:02 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2003-06-11 16:35:02 +0000
commit21b1a2b5034602da85a80fa253ae915e95184741 (patch)
treeae19148e1182560660a0982a3983a07ca5fb24da
parent11b4e9065e9f0d2d8e91eaa38b1d548effca4fd4 (diff)
downloaddrakx-backup-do-not-use-21b1a2b5034602da85a80fa253ae915e95184741.tar
drakx-backup-do-not-use-21b1a2b5034602da85a80fa253ae915e95184741.tar.gz
drakx-backup-do-not-use-21b1a2b5034602da85a80fa253ae915e95184741.tar.bz2
drakx-backup-do-not-use-21b1a2b5034602da85a80fa253ae915e95184741.tar.xz
drakx-backup-do-not-use-21b1a2b5034602da85a80fa253ae915e95184741.zip
change ask_browse_tree_info_given_widgets and
ask_browse_tree_info API's so that widgets can be reachable from ask_browse_tree_info clients (install_steps_gtk.pm)
-rw-r--r--perl-install/ugtk2.pm9
1 files changed, 5 insertions, 4 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index d49bdaa40..5c581ed54 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -1062,13 +1062,14 @@ sub ask_browse_tree_info {
$toolbar->append_item(undef, $toolbar{$_}[0], undef, gtkcreate_img("$_.png"), $toolbar{$_}[1]);
}
- my $widgets = { w => $w, tree => $tree, tree_model => $tree_model, textcolumn => $textcolumn, pixcolumn => $pixcolumn,
- info => $info, status => $status };
- ask_browse_tree_info_given_widgets($common, $widgets);
+ $common->{widgets} = { w => $w, tree => $tree, tree_model => $tree_model, textcolumn => $textcolumn, pixcolumn => $pixcolumn,
+ info => $info, status => $status };
+ ask_browse_tree_info_given_widgets($common);
}
sub ask_browse_tree_info_given_widgets {
- my ($common, $w) = @_;
+ my ($common) = @_;
+ my $w = $common->{widgets};
my ($curr, $prev_label, $idle, $mouse_toggle_pending);
my (%wtree, %ptree, %pix, %node_state, %state_stats);
my $update_size = sub {