From e1922243bd426cc4af43aa806027d3c8e1c2a810 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 22 Dec 1999 20:07:36 +0000
Subject: no_comment

---
 perl-install/interactive_gtk.pm | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

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

diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index faa26a7e3..0b330bfdd 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -31,12 +31,8 @@ sub ask_from_listW {
     if (@$l < 5) { #- really ? : && sum(map { length $_ } @$l) < 90) {
 	my $defW;
 	my $f = sub { $w->{retval} = $_[1]; Gtk->main_quit };
-	my $box = (@$l <= 2 && (map { split "\n" } @$messages) > 6) ?
-	  gtkpack(new Gtk::VBox(0,0),
-		  gtkset_usize(createScrolledWindow(gtktext_insert(new Gtk::Text, join "\n", @$messages)), 400, 250)) :
-	  create_box_with_title($w, @$messages);
 	gtkadd($w->{window},
-	       gtkpack($box,
+	       gtkpack(create_box_with_title($w, @$messages),
 		       gtkadd((@$l < 3 ? create_hbox() : create_vbox()),
 			      map {
 				  my $b = new Gtk::Button($_);
-- 
cgit v1.2.1