mhx
Enthusiast
/ Moderator
Oct 20, 2001, 10:04 AM
Views: 1340
|
|
Re: Tk Module main window size
|
|
|
Variable interpolation is a bit difficult here, because $widthx instead of $width will be treated as an identifier. The following code works:
use strict;
use Tk;
my $mw = MainWindow->new;
my $width = $mw->screenwidth();
my $height = $mw->screenheight();
$mw->geometry("${width}x${height}+0+0");
$mw->title("WOProj");
MainLoop;
-- Marcus
s$$ab21b8d15c3d97bd6317286d$;$"=547269736;split'i',join$,,map{chr(($*+=
($">>=1)&1?-hex:hex)+0140)}/./g;$"=chr$";s;.;\u$&;for@_[0,2];print"@_,"
(This post was edited by mhx on Oct 20, 2001, 12:19 PM)
|
MAIN
SEARCH
WHO'S 
LOG 
