diff options
| -rw-r--r-- | perl-install/interactive_gtk.pm | 2 |
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); |