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