diff options
Diffstat (limited to 'Master')
| -rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 3 |
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(); |