Posted to tcl by evilotto at Fri Apr 22 17:28:37 GMT 2011view pretty

 canvas .a
 pack .a
 .a create polygon 0 0 0 10 10 0
 .a dchars 1 2 end
 .a coords