Posted to tcl by tcl027 at Sun Oct 22 10:57:37 GMT 2017view raw

  1. grid [button .b]
  2. bind .b <Motion> {
  3. scan [wm geometry .] %%s+%%d+%%d s x y
  4. tk_messageBox -message $s
  5. #wm geometry . +[expr $x+5]+[expr $y+5]
  6. }