Help for this page

Select Code to Download


  1. or download this
    sub Popup
{
...
 $mh = $minheight if (defined $minheight and $minheight >$mh); #JD#
 my ($rx,$ry,$rw,$rh) = (0,0,0,0);
...
  2. or download this
    $mw -> minsize (qw(600 400));
  3. or download this
    use strict;
use warnings;
...
            -popanchor => 'c',
            );
MainLoop;