Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re: Using Perl Tk Waitbox module

by archfool (Monk)
on Jul 03, 2007 at 17:54 UTC ( [id://624743]=note: print w/replies, xml ) Need Help??


in reply to Using Perl Tk Waitbox module

Assuming your Tk::WaitBox is a toplevel widget (which it probably is)....

my $screenheight = $mw->screenheight; my $screenwidth = $mw->screenwidth; # Force it on the screen and to take a size if it # hasn't already $waitbox->update(); my $wbwidth = $waitbox->width(); my $wbheight = $waitbox->height(); my $x = ($screenwidth - $wbwidth) / 2; my $y = $screenheight - $wbheight; $waitbox->geometry("+$x+$y");

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://624743]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others surveying the Monastery: (4)
As of 2024-03-29 12:09 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found