Evaluated proc magic:new {what {name ""}} { if {$name != ""} {img magic create $what $name} {img magic create $what} }