From 21b1a2b5034602da85a80fa253ae915e95184741 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Wed, 11 Jun 2003 16:35:02 +0000 Subject: 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) --- perl-install/ugtk2.pm | 9 +++++---- 1 file 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 { -- cgit v1.2.1