# -*- tcl -*- tcl.tk//DSL diagram//EN//1.0

set A [box "first" "object"]
move
set B [ellipse "second" "object"]
move
arrow right from [$A r]