Hi!

With Usman we are pair programming today on Moose and Roassal. We have just implemented the following:

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

| v l e1 e2 eShape |
v := RTView new.
eShape := RTEllipse new size: 8; color: (Color blue alpha: 0.3).
e1 := eShape element.
e2 := eShape element.
e2 translateBy: 50 @ 30.
v add: e1; add: e2.
e1 @ RTDraggable.
e2 @ RTDraggable.

l := (RTDoubleArrowedLine new color: Color red) edgeFrom: e1 to: e2.
v add: l.

v

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

Yeah, not groundbreaking, but a small and positive step.

Cheers,

Alexandre

--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.