From 08c73d71e15c7894f6d0b504999550b090e7e279 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Fri, 17 Aug 2001 11:14:04 +0000
Subject: no scrollbar if list <= 10 and the list is alone

---
 perl-install/interactive_gtk.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index 0e4ec437d..6373494f0 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -415,7 +415,7 @@ sub ask_from_entries_refW {
 	    } else {
 		($w, $set) = $use_boxradio ? create_boxradio(@para) : create_clist(@para);
 	    }
-	    if (@{$e->{list}} > 4) {
+	    if (@{$e->{list}} > (@$l == 1 ? 10 : 4)) {
 		$has_scroll = 1;
 		$expand = 1;
 		$real_w = createScrolledWindow($w);
-- 
cgit v1.2.1