Center a Tk window on the screen

Description:

This function centers a Tk::Toplevel on the screen, taking into account the window's width and height.

Caveat: To get the correct window size, the function has to force the window to update, which causes the window to be displayed if it wasn't. If you want the window to end hidden, leave out the deiconify, near the end.

sub center {
  my $win = shift;

  $win->withdraw;   # Hide the window while we move it about
  $win->update;     # Make sure width and height are current

  # Center window
  my $xpos = int(($win->screenwidth  - $win->width ) / 2);
  my $ypos = int(($win->screenheight - $win->height) / 2);
  $win->geometry("+$xpos+$ypos");

  $win->deiconify;  # Show the window again
}

Comment on Center a Tk window on the screen Download Code

Replies are listed 'Best First'.
Re: Center a Tk window on the screen by zentara (Archbishop) on Jan 04, 2003 at 15:32 UTC
Here's something to try, it centers as well: `#!/usr/bin/perl use Tk; use strict; my $mw=tkinit; $mw->withdraw; #avoid the jumping window bug $mw->Popup; MainLoop;` [download]	[reply] [d/l]
(bbfu) (Popup() method) Re2: Center a Tk window on the screen by bbfu (Curate) on Jan 04, 2003 at 20:03 UTC
Interesting! Can you point me to where the Popup() method is documented? bbfu Black flowers blossum Fearless on my breath	[reply]
Re: (bbfu) (Popup() method) Re2: Center a Tk window on the screen by zentara (Archbishop) on Jan 05, 2003 at 15:48 UTC
Hmm, Mastering Perl/Tk has a section on it in Chapter 12. Otherwise, a good source of info is doing a http://groups.google.com search for "tk Popup methods"	[reply]
Re: Center a Tk window on the screen by {NULE} (Hermit) on Jan 04, 2003 at 15:05 UTC
Sweet. How coincidental - I was pondering exactly this the other day. I've been rewritting the old windows video-game Gazillionaire (http://www.lavamind.com/gaz.html) in Perl/Tk for my own amusement recently and I was thinking about how to do a fullscreen mode using just Tk. Between this and your other node on removing decorations, this is perfect! `$w->{main}->overrideredirect(1); $w->{main}->geometry($w->{main}->screenwidth."x".$w->{main}->screenwid +th."+0+0");` [download] {NULE} -- http://www.nule.org	[reply] [d/l]
(bbfu) (fullscreen considerations) Re3: Center a Tk window on the screen by bbfu (Curate) on Jan 04, 2003 at 20:02 UTC
Of course, if you're running it in MS win32, you should be aware that any "stay on top" windows (such as the taskbar and, on my computer anyway, Trillian) will still be in front. You'll have to do something using Win32 or Win32::API to move them to the back, probably. Although, it's possible Tk has some way to force a z-order for your window (I haven't checked). bbfu Black flowers blossum Fearless on my breath	[reply]
Re: (bbfu) (fullscreen considerations) Re3: Center a Tk window on the screen by {NULE} (Hermit) on Jan 04, 2003 at 22:45 UTC
Yeah - that's fine. I was going to put something in the help about how you could turn autohide on if you want to use fullscreen. At any rate, it's nice to have the option, for those that don't mind tweaking things a bit to use it. This is what I ended up using and it works well, excluding the stay-on-top thing (tested on SuSE 8.0 (5.6.1) and Win98 (ActiveState-5.8.0): `if ($s->{fullscreen}) { $s->{fullscreen} = 0; $w->{main}->withdraw; $w->{main}->update; $w->{main}->overrideredirect(0); $w->{main}->geometry($s->{windowed}\|\|"800x600+20+20"); $w->{main}->deiconify; $w->{main}->update; } else { $s->{fullscreen} = 1; $s->{windowed} = $w->{main}->geometry; $w->{main}->withdraw; $w->{main}->update; $w->{main}->overrideredirect(1); $w->{main}->geometry($w->{main}->screenwidth."x".$w->{main}->scree +nheight."+0+0"); $w->{main}->deiconify; $w->{main}->update; }` [download] {NULE} -- http://www.nule.org	[reply] [d/l]


more useful options
	PerlMonks