[tcl tk] fenster zentrieren

[Captain_America]

moin.
mit


proc centerWindow {w} {
wm withdraw $w
update idletasks
set x [expr [winfo screenwidth $w]/2 - [winfo reqwidth $w]/2 \
- [winfo vrootx [winfo parent $w]]]
set y [expr [winfo screenheight $w]/2 - [winfo reqheight $w]/2 \
- [winfo vrooty [winfo parent $w]]]
wm geom $w +$x+$y
wm deiconify $w
}

kann ich ein fenster zentrieren. aufrufen muss ich das mit centerWindow meinFenster

wenn ich am anfang des script folgendes schreibe
wm title . bla

und dann bla übergebe funktioniert es nicht. warum?