From f438f4f5caf143c0c6f263e09c9702b6876b91cf Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 28 Oct 1999 09:41:32 +0000
Subject: no_comment

---
 perl-install/interactive_gtk.pm | 8 ++++----
 1 file changed, 4 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 49b4313ed..85840438e 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -57,16 +57,16 @@ sub ask_many_from_list_refW($$$$$) {
     my $n = 0;
     my $w = my_gtk->new('', %$o);
     gtkadd($w->{window},
-	   gtkpack(create_box_with_title($w, @$messages),
-		   gtkpack(new Gtk::VBox(0,0),
+	   gtkpack_(create_box_with_title($w, @$messages),
+		   1, gtkset_usize(createScrolledWindow(gtkpack(new Gtk::VBox(0,0),
 			   map {
 			       my $nn = $n++;
 			       my $o = Gtk::CheckButton->new($_);
 			       $o->set_active(${$val->[$nn]});
 			       $o->signal_connect(clicked => sub { invbool \${$val->[$nn]} });
 			       $o;
-			   } @$list),
-		   $w->create_okcancel,
+			   } @$list)), 0, @$list > 11 ? 250 : @$list * 260 / 11 + 10),
+		   0, $w->create_okcancel,
 		  )
 	  );
     $w->{ok}->grab_focus;
-- 
cgit v1.2.1