summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-07-31 17:56:18 +0000
committerNorbert Preining <preining@logic.at>2008-07-31 17:56:18 +0000
commitde1bfd13bbd7772d49a1bbf6f5a5aa6d447150c7 (patch)
tree7d7deef1f07adf73c9ba5a3e24f74cbadefd8b2b /Master/tlpkg/installer
parent8c584ce95bb89188d17952c247b24040c6536627 (diff)
GUI installer: try to work around darwin problems
git-svn-id: svn://tug.org/texlive/trunk@9949 c570f23f-e606-0410-a88d-b1316a301751
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();