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