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