Evaluated proc magic:textup {canvas x y text args} { magic:text $canvas $x $y $text $args; save $canvas }