summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive_gtk.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/interactive_gtk.pm')
-rw-r--r--perl-install/interactive_gtk.pm3
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index 6b9d89fb9..6e5e8eb4f 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -98,13 +98,12 @@ sub ask_from_treelistW {
$w->{retval} = join $separator, @l;
Gtk->main_quit;
};
-
$w->{ok_clicked} = $leave;
$w->{cancel_clicked} = sub { $o->destroy; die "ask_from_list cancel" }; #- make sure windows doesn't live any more.
gtkadd($w->{window},
gtkpack($w->create_box_with_title(@$messages),
gtkpack_(new Gtk::VBox(0,7),
- 1, gtkset_usize(createScrolledWindow($tree), 300, 350),
+ 1, gtkset_usize(createScrolledWindow($tree), 300, min(400, $::windowheight - 60)),
0, $w->create_okcancel)));
$tree->set_column_auto_resize(0, 1);
$tree->set_selection_mode('browse');