summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive_gtk.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-07-27 11:58:30 +0000
committerFrancois Pons <fpons@mandriva.com>2001-07-27 11:58:30 +0000
commitad69c6747c992c1822e03a30107a28551d221189 (patch)
treeba5081f51fbd751d9d1b0513d5445f2c851105e9 /perl-install/interactive_gtk.pm
parentae5e320636cfce57271172c0a3aded74689a6a54 (diff)
downloaddrakx-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.pm9
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});
}
} ]);