From 9ff7de045d43481f087f30db037992341c09680a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 5 Nov 1999 16:45:20 +0000
Subject: no_comment

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

(limited to 'perl-install/interactive_gtk.pm')

diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index 7074e6664..3063a2d19 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -48,14 +48,13 @@ sub ask_from_listW {
 
 sub ask_many_from_list_refW($$$$$) {
     my ($o, $title, $messages, $list, $val) = @_;
-    my $n = 0;
     my $w = my_gtk->new('', %$o);
     my $box = gtkpack(new Gtk::VBox(0,0),
 	map {
-	    my $nn = $n++;
+	    my $i = $::i;
 	    my $o = Gtk::CheckButton->new($_);
-	    $o->set_active(${$val->[$nn]});
-	    $o->signal_connect(clicked => sub { invbool \${$val->[$nn]} });
+	    $o->set_active(${$val->[$i]});
+	    $o->signal_connect(clicked => sub { invbool \${$val->[$i]} });
 	    $o;
 	} @$list);
     gtkadd($w->{window},
-- 
cgit v1.2.1