Evaluated proc magic:textup {canvas x y text args} { set d [magic:new draw]; magic:apply $d [args]; @$d annotation $x $y $text; @@$canvas draw $d }