summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-02-23 13:18:48 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-02-23 13:18:48 +0000
commit24f8b57f04273cbfab21ba00b01c828a91506b9b (patch)
tree4772a40a8618e9fa152ae6e28b7fae03aa682bf9 /perl-install/my_gtk.pm
parent24dda9b78fbe61e569bfb65818b823a4f65af87d (diff)
downloaddrakx-24f8b57f04273cbfab21ba00b01c828a91506b9b.tar
drakx-24f8b57f04273cbfab21ba00b01c828a91506b9b.tar.gz
drakx-24f8b57f04273cbfab21ba00b01c828a91506b9b.tar.bz2
drakx-24f8b57f04273cbfab21ba00b01c828a91506b9b.tar.xz
drakx-24f8b57f04273cbfab21ba00b01c828a91506b9b.zip
no_comment
Diffstat (limited to 'perl-install/my_gtk.pm')
-rw-r--r--perl-install/my_gtk.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 97030b29d..9cf9a7551 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -513,7 +513,7 @@ sub _ask_from_list {
gtkadd($o->{window},
gtkpack($o->create_box_with_title(@$messages),
gtkpack_(new Gtk::VBox(0,7),
- 1, @$l > 15 ? gtkset_usize(createScrolledWindow($list), 200, 280) : $list,
+ 1, @$l > 15 ? gtkset_usize(createScrolledWindow($list), 200, min(400, $::windowheight - 60)) : $list,
@okcancel || !ref $title ? (0, create_okcancel($o, @okcancel)) : ())
));
$o->show; #- otherwise the moveto is not done