From 0f16f9693f47687136e5058916d0d04dcb611217 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 8 Nov 1999 01:48:28 +0000
Subject: no_comment

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

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

diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index 3063a2d19..dea36ff77 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -27,8 +27,12 @@ sub ask_from_listW {
     if (@$l < 5 && sum(map { length $_ } @$l) < 70) {
 	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(create_box_with_title($w, @$messages),
+	       gtkpack($box,
 		       gtkadd((@$l < 3 ? create_hbox() : create_vbox()),
 			      map {
 				  my $b = new Gtk::Button($_);
-- 
cgit v1.2.1