using tk simple ->geometry question 1

[NEVERSLEEP]

hi
i just want to know how to center a tk application
or get the screen width & height
curently i use a geometry method to place it on the screen

use strict;
require Tk;
use Tk;
my $main = new MainWindow
# ...
$main->geometry('+30+100');
#...

---------------------------------------

someone knowledge ends where
someone else knowledge starts

 

[raider2001]

The following should center the main window.
use Tk;
my $main = MainWindow->new();
$main->withdraw(); # Hide window move to center
#...fill $main with widgets...
$main->Popup(); # Default is center of screen
MainLoop();

 

[NEVERSLEEP]

thanks but...not working...
os = win2kpro
perl -v = v5.6.1 built for MSWin32-x86-multi-thread

was

use strict;
require Tk;
use Tk;

my $main = new MainWindow;
$main->minsize( qw(500 500));
$main->title("the title");
$main->configure(
 -background => 'lightgrey'
);
$main->geometry('+30+100');
# ...

i tried this

use strict;
require Tk;
use Tk;

my $main = new MainWindow;
$main->withdraw();
$main->minsize( qw(500 500));
$main->title("the title");
$main->configure(
 -background => 'lightgrey'
);
$main->Popup();
# ...

this always opened the tk window at same place but not the center...

im a newbie with tk
help me! thanks ---------------------------------------

someone knowledge ends where
someone else knowledge starts

 

[raider2001]

Here's another way that I found at http:/perltk.org

use strict;
require Tk;
use Tk;

my $main = new MainWindow;
$main->minsize( qw(500 500));
$main->title("the title");
$main->configure(-background => 'lightgrey');
CenterWindow($main, 500, 500);

#################################################### 
sub CenterWindow { 
#################################################### 
# Args: (0) window to center 
# (1) [optional] desired width 
# (2) [optional] desired height 
# 
# Returns: *nothing* 
#################################################### 
my($window, $width, $height) = @_; 

$window->idletasks; 
$width = $window->reqwidth unless $width; 
$height = $window->reqheight unless $height; 
my $x = int(($window->screenwidth / 2) - ($width / 2)); 
my $y = int(($window->screenheight / 2) - ($height / 2)); 
$window->geometry($width . "x" . $height . "+" . $x . "+" . $y); 
} 
MainLoop();

 

[NEVERSLEEP]

thanks ---------------------------------------

someone knowledge ends where
someone else knowledge starts