[tex-live] trouble starting context on latest tl2008 developer snapshot

[Norbert Preining]

On Di, 08 Jul 2008, Taco Hoekwater wrote:
> the if (...) block doesn't work for me (Suse 11.0 and Mandriva 2008.1)

Ok, not here. I have fixed it, finally.

The idea is:

$mainwindow = Tk::MainWindow->new;
if (!win32()) {
  require Tk::Pane;
  # this creates a 100 px height frame and stays at 100px, grrr
  $subframe = $mainwindow->Scrolled("Frame", -scrollbars => "oe");
} else {
  $subframe = $mainwindow->Frame;
}
$mw = $subframe->Frame;
..
do all the rest
..
menu_update_texts();
$mw->pack(-expand => 1, -fill => "both");
$mw->update;
my $rh = $mw->reqheight;
my $maxheight = $mainwindow->screenheight() - 20;
if ($rh > $maxheight) {
  $subframe->configure(-height => $maxheight);
} else {
  $subframe->configure(-height => $rh);
}
$subframe->pack;

On Windows that should not happen anyway since there is much less text
on the windows GUI installer. On Unix it will resize itself to a size
that fits the screen, and thus will also show the scrollbars.

Please give it a twist, install-menu-perltk.pl revision 9369, if you
find time. Thanks.

Best wishes

Norbert

-------------------------------------------------------------------------------
Dr. Norbert Preining <preining at logic.at>        Vienna University of Technology
Debian Developer <preining at debian.org>                         Debian TeX Group
gpg DSA: 0x09C5B094      fp: 14DF 2E6C 0307 BE6D AD76  A9C0 D2BF 4AA3 09C5 B094
-------------------------------------------------------------------------------
GIPPING (participial vb.)
The fish-like opening and closing of the jaws seen amongst people who
have recently been to the dentist and are puzzled as to whether their
teeth have been put back the right way up.
			--- Douglas Adams, The Meaning of Liff