diff options
| author | Norbert Preining <preining@logic.at> | 2008-07-31 17:56:18 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2008-07-31 17:56:18 +0000 |
| commit | de1bfd13bbd7772d49a1bbf6f5a5aa6d447150c7 (patch) | |
| tree | 7d7deef1f07adf73c9ba5a3e24f74cbadefd8b2b | |
| parent | 8c584ce95bb89188d17952c247b24040c6536627 (diff) | |
GUI installer: try to work around darwin problems
git-svn-id: svn://tug.org/texlive/trunk@9949 c570f23f-e606-0410-a88d-b1316a301751
| -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(); |