summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Master/tlpkg/installer/install-menu-perltk.pl8
1 files changed, 5 insertions, 3 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl
index 86e7f0f3f50..73e77f7550b 100644
--- a/Master/tlpkg/installer/install-menu-perltk.pl
+++ b/Master/tlpkg/installer/install-menu-perltk.pl
@@ -376,12 +376,14 @@ sub run_menu {
$mw->pack(-expand => 1, -fill => "both");
$mw->update;
my $rh = $mw->reqheight;
+ my $rw = $mw->reqwidth;
my $maxheight = $mainwindow->screenheight() - 20;
if ($rh > $maxheight) {
- $subframe->configure(-height => $maxheight);
- } else {
- $subframe->configure(-height => $rh);
+ $rh = $maxheight;
+ $rw += 20; # for the scrollbar
}
+ $mainwindow->configure(-height => $rh, -width=>$rw);
+ $subframe->configure(-height => $rh);
$subframe->pack;
#$mw->pack(-expand => 1, -fill => "both");
Tk::MainLoop();