Label + Ellipse

I have slightly improved the composite shape to enable text to be inserted in an ellipse. I am surprised to have wait for so long before adding this.

This fixes Issue 915 (https://code.google.com/p/moose-technology/issues/detail?id=915)

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

v := RTView new.

s := RTEllipse new + (RTLabel new text: #name).
s allOfSameSize.
es := s elementsOn: Collection withAllSubclasses.
es @ RTDraggable.

RTEdgeBuilder new
view: v;
elements: es;
connectFrom: #superclass.

v addAll: es.

RTClusterLayout on: es.
v

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

Cheers,

Alexandre