center a toplevel
iu2
I want to center a toplevel on the screen. I create it, and then
center it, for example:
package require Tk
# center a window on the screen
proc center_win {win} {
wm geometry $win +[expr {([winfo screenwidth $win] - [winfo width
$win]) / 2}]+[\
expr {([winfo screenheight $win] - [winfo height $win]) / 2}]
}
# create some widgets
proc create_toplevel {} {
set f [ttk::labelframe .f -text " Example "]
pack $f -padx 5 -pady 5 -ipadx 5 -ipady 5
set e [ttk::entry $f.e -width 50]
pack $e
for {set i 0} {$i < 5} {incr i} {
set b [ttk::button $f.b$i -text "Button $i"]
pack $b
}
update
}
create_toplevel
center_win .
What happens is that the window is created at an arbitrary position,
and then quickly snapped to the center. My question is, is it possible
to make it appear in the center of the screen in the first place,
without the quick snap.
Thanks
Jeff Godfrey
The right answer could be OS / Win manager specific, but at least for
me, using Windows XP, I can make the above work correctly by changing
"update" to "update idletasks"...
Jeff
Donal K. Fellows
> What happens is that the window is created at an arbitrary position,
> and then quickly snapped to the center. My question is, is it possible
> to make it appear in the center of the screen in the first place,
> without the quick snap.
Yes. Put it first deliberately a long way off the screen, then call
[update idletasks] (you don't need a full [update]) before calling the
centering code you posted.
Donal.
Gerhard Reithofer
Isn't the way to [withdraw] it 1st and [deiconify] at end a portable
solution?
--
Gerhard Reithofer
Tech-EDV Support Forum - http://support.tech-edv.co.at
Donal K. Fellows
wrote:
> Isn't the way to [withdraw] it 1st and [deiconify] at end a portable
> solution?
Depends on the window manager... :-(
Donal.
Gerhard Reithofer
THX