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