From ad69c6747c992c1822e03a30107a28551d221189 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 27 Jul 2001 11:58:30 +0000
Subject: fixed wrong reference to added icons to ask_browse_tree_info_refW.

---
 perl-install/interactive_gtk.pm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'perl-install')

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});
 					     }
 					 } ]);
-- 
cgit v1.2.1