summaryrefslogtreecommitdiff
path: root/Master/tlpkg
diff options
context:
space:
mode:
authorTaco Hoekwater <taco@elvenkind.com>2008-07-08 14:44:01 +0000
committerTaco Hoekwater <taco@elvenkind.com>2008-07-08 14:44:01 +0000
commitae1032a5722968174e18b570a51e15c79d102606 (patch)
tree9ea7f5ce34bf2d36332dc367595ca35cfad84c89 /Master/tlpkg
parentf9aeb9d70ece7b5831c2e21ccf1094112c9ae738 (diff)
how to handle small screen sizes on unix
git-svn-id: svn://tug.org/texlive/trunk@9372 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
-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();