From 10b649b6503f47388f1548c8ba9391dd6ce0284e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 24 Aug 1999 19:02:16 +0000
Subject: no_comment

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

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

diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index 7c52e0d97..94456e9c0 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -52,9 +52,8 @@ sub ask_from_listW {
     }
 }
 
-sub ask_many_from_listW {
-    my ($o, $title, $messages, $list, $default) = @_;
-    my @rr = @$default;
+sub ask_many_from_list_refW {
+    my ($o, $title, $messages, $list, $val) = @_;
     my $n = 0;
     my $w = my_gtk->new('', %$o);
     gtkadd($w->{window}, 
@@ -63,16 +62,15 @@ sub ask_many_from_listW {
 			   map { 
 			       my $nn = $n++; 
 			       my $o = Gtk::CheckButton->new($_);
-			       $o->set_active($rr[$nn]);
-			       $o->signal_connect(clicked => sub { $rr[$nn] = !$rr[$nn] });
+			       $o->set_active(${$val->[$nn]});
+			       $o->signal_connect(clicked => sub { ${$val->[$nn]} = !${$val->[$nn]} });
 			       $o;
 			   } @$list),
 		   $w->create_okcancel,
 		  )
 	  );
     $w->{ok}->grab_focus;
-    $w->main or return;
-    @rr;
+    $w->main && $val;
 }
 
 sub wait_messageW($$$) {
-- 
cgit v1.2.1