Perl TK (Centering Windows)

[clueo8]

# Create Main window
my $window = MainWindow -> new();
$window -> minsize(qw(450 250));
$window -> title (" Perl Conversion Tool");
$window -> configure (-background => 'grey');
$window -> geometry('+280+150');

The geometry tag sets the position of the window on the screen. Is there a way to automatically center the window on the screen (so it will be centered on all resolutions)?

 

[dmazzini]

Try it:


#!/usr/local/bin/perl
use Tk;

my $mw1 = MainWindow->new;
$mw1->configure(-title=>'What is this?');
$mw1->geometry('0x0+0+0');
CenterWindow($mw1);
MainLoop;


#------------------------------------------------------------------------------
# CenterWindow
#------------------------------------------------------------------------------
sub CenterWindow
{
my($window) = @_;
$window->idletasks;
my $width = $window->screenwidth;
my $height = $window->screenheight;
$window->geometry($width . "x" . $height . "+" . 0 . "+" . 0);
}


dmazzini
GSM System and Telecomm Consultant

 

[clueo8]

That made it maximize the window.

 

[dmazzini]

Hellooooooooooo!

It took me some time...but here I came up with it:

#!/usr/local/bin/perl
use Tk;

my $mw = MainWindow -> new ( -title => "MY WINDOW" ) ;
my $width = 300;
my $height = 200;
my $xpos = int(($mw->winfo('screenwidth')-$width)/2);
my $ypos = int(($mw->winfo('screenheight')-$height)/2);
$mw->wm(geometry => "$width"."x$height+$xpos+$ypos");

MainLoop;

dmazzini
GSM System and Telecomm Consultant

 

[clueo8]

Thank you very much, this seemed to have done the job!