Hi!

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