Posted to tcl by schelte at Sat Sep 06 14:13:28 GMT 2014view raw

  1. canvas .c
  2. set id [.c create text 0 0 -text hello]
  3. .c moveto $id 10 10
  4. puts [.c coords $id]
  5.