diff options
| author | Francois Pons <fpons@mandriva.com> | 2001-07-27 11:58:30 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2001-07-27 11:58:30 +0000 |
| commit | ad69c6747c992c1822e03a30107a28551d221189 (patch) | |
| tree | ba5081f51fbd751d9d1b0513d5445f2c851105e9 /perl-install/interactive_gtk.pm | |
| parent | ae5e320636cfce57271172c0a3aded74689a6a54 (diff) | |
| download | drakx-ad69c6747c992c1822e03a30107a28551d221189.tar drakx-ad69c6747c992c1822e03a30107a28551d221189.tar.gz drakx-ad69c6747c992c1822e03a30107a28551d221189.tar.bz2 drakx-ad69c6747c992c1822e03a30107a28551d221189.tar.xz drakx-ad69c6747c992c1822e03a30107a28551d221189.zip | |
fixed wrong reference to added icons to ask_browse_tree_info_refW.
Diffstat (limited to 'perl-install/interactive_gtk.pm')
| -rw-r--r-- | perl-install/interactive_gtk.pm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm index 033e882c8..fd2917950 100644 --- a/perl-install/interactive_gtk.pm +++ b/perl-install/interactive_gtk.pm @@ -633,10 +633,11 @@ sub ask_browse_tree_info_refW { my @toolbar = (ftout => [ _("Expand Tree") , sub { $tree->expand_recursive(undef) } ], ftin => [ _("Collapse Tree") , sub { $tree->collapse_recursive(undef) } ], reload => [ _("Toggle between flat and group sorted"), sub { $add_nodes->(!$common->{state}{flat}) } ]); - foreach (@{$common->{icons} || []}) { - push @toolbar, ( $_->{icon} => [ $_->{help}, sub { - if ($_->{code}) { - my $w = $_->{wait_msg} && $o->wait_message('', $_->{wait_msg}); + foreach my $ic (@{$common->{icons} || []}) { + push @toolbar, ( $ic->{icon} => [ $ic->{help}, sub { + if ($ic->{code}) { + my $w = $ic->{wait_msg} && $o->wait_message('', $ic->{wait_msg}); + $ic->{code}(); $add_nodes->($common->{state}{flat}); } } ]); |