how to handle small screen sizes on unix

git-svn-id: svn://tug.org/texlive/trunk@9372 c570f23f-e606-0410-a88d-b1316a301751

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();