[Moose-dev] Label + Ellipse

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 -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.