summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/installer')
-rw-r--r--Master/tlpkg/installer/install-menu-perltk.pl3
1 files changed, 2 insertions, 1 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl
index 20ae51e274c..0fad9d32b50 100644
--- a/Master/tlpkg/installer/install-menu-perltk.pl
+++ b/Master/tlpkg/installer/install-menu-perltk.pl
@@ -392,12 +392,13 @@ sub run_menu {
my $rh = $mw->reqheight;
my $rw = $mw->reqwidth;
my $maxheight = $mainwindow->screenheight() - 20;
+ debug("Requested height: $rh, requested width: $rw, max height: $maxheight\n");
if ($rh > $maxheight) {
$rh = $maxheight;
$rw += 20; # for the scrollbar
}
$mainwindow->configure(-height => $rh, -width=>$rw);
- $subframe->configure(-height => $rh);
+ $subframe->configure(-height => $rh, -width=>$rw);
$subframe->pack;
#$mw->pack(-expand => 1, -fill => "both");
Tk::MainLoop();