Posted to tcl by tcl027 at Sun Oct 22 10:57:37 GMT 2017view pretty
grid [button .b]
bind .b <Motion> {
scan [wm geometry .] %%s+%%d+%%d s x y
tk_messageBox -message $s
#wm geometry . +[expr $x+5]+[expr $y+5]
}
grid [button .b]
bind .b <Motion> {
scan [wm geometry .] %%s+%%d+%%d s x y
tk_messageBox -message $s
#wm geometry . +[expr $x+5]+[expr $y+5]
}