summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive_gtk.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-08-17 11:14:04 +0000
committerdamien <damien@mandriva.com>2001-08-17 11:14:04 +0000
commit08c73d71e15c7894f6d0b504999550b090e7e279 (patch)
tree9ac7bb44f87a211f6dcbf1205a4f4bcf1ec98b5e /perl-install/interactive_gtk.pm
parent9d026054bbb21cb8b73a78693bc3d89649c869e3 (diff)
downloaddrakx-08c73d71e15c7894f6d0b504999550b090e7e279.tar
drakx-08c73d71e15c7894f6d0b504999550b090e7e279.tar.gz
drakx-08c73d71e15c7894f6d0b504999550b090e7e279.tar.bz2
drakx-08c73d71e15c7894f6d0b504999550b090e7e279.tar.xz
drakx-08c73d71e15c7894f6d0b504999550b090e7e279.zip
no scrollbar if list <= 10 and the list is alone
Diffstat (limited to 'perl-install/interactive_gtk.pm')
-rw-r--r--perl-install/interactive_gtk.pm2
1 files changed, 1 insertions, 1 deletions
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);