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