Using Perl Tk Waitbox module

Holly3g has asked for the wisdom of the Perl Monks concerning the following question:

Hi! I was just wondering if anyone knew how of window management options for the perl Tk module WaitBox. (It can be found on cpan at http://search.cpan.org/~bpowers/Tk-WaitBox-1.3/WaitBox.pm .) As it is now, the wait box pops up in the middle of my screen, but I'd like it in the bottom center. Any suggestions?? Thanks!

Comment on Using Perl Tk Waitbox module

Replies are listed 'Best First'.
Re: Using Perl Tk Waitbox module by archfool (Monk) on Jul 03, 2007 at 17:54 UTC
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");` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re: Using Perl Tk Waitbox module
by archfool (Monk) on Jul 03, 2007 at 17:54 UTC

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");
[download]

[reply]
[d/l]