summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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});
}
} ]);