diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-06-11 16:35:02 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-06-11 16:35:02 +0000 |
| commit | 21b1a2b5034602da85a80fa253ae915e95184741 (patch) | |
| tree | ae19148e1182560660a0982a3983a07ca5fb24da | |
| parent | 11b4e9065e9f0d2d8e91eaa38b1d548effca4fd4 (diff) | |
| download | drakx-21b1a2b5034602da85a80fa253ae915e95184741.tar drakx-21b1a2b5034602da85a80fa253ae915e95184741.tar.gz drakx-21b1a2b5034602da85a80fa253ae915e95184741.tar.bz2 drakx-21b1a2b5034602da85a80fa253ae915e95184741.tar.xz drakx-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.pm | 9 |
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 { |