Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
tk_messageBox screen location
- Thread starter srhoads
- Start date
This is probably not the most elegant way but I center windows like this:
set sw [lindex [wm maxsize <window name>] 0]
set sh [lindex [wm maxsize <window name>] 1]
set ww [winfo width <window name>]
set wh [winfo height <window name>]
set newx [expr ($sw-$ww)/2]
set newy [expr ($sh-$wh)/2]
wm geometry <window name> "+$newx+$newy" Bob Rashkin
rrashkin@csc.com
set sw [lindex [wm maxsize <window name>] 0]
set sh [lindex [wm maxsize <window name>] 1]
set ww [winfo width <window name>]
set wh [winfo height <window name>]
set newx [expr ($sw-$ww)/2]
set newy [expr ($sh-$wh)/2]
wm geometry <window name> "+$newx+$newy" Bob Rashkin
rrashkin@csc.com
- Thread starter
- #3
- Status
