v := RTView new.

shape := RTEllipse new size: 20; color: Color red. shape := shape + RTLabel.

es := shape elementOn:'hello'. v add: es.

line := RTDirectedLine new pointsFrom: 20@20 To: 30@30.��

es2 := line element.v add: es2.��

es @ RTDraggable.

v @ RTDraggableView .

v open.