[Moose-dev] Nesting and composed shape

"Nesting and composed shape”. Not really a new topic isn’t it? I have worked on a way to indicate where in a composed shape inner elements can be inserted. -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= | v | v := RTView new. v @ RTDraggableView. shape := RTMultiCompositeShape new. shape add: RTLabel new. shape add: (RTBox new size: 20; color: (Color blue alpha: 0.3)). es := shape elementsOn: RTShape withAllSubclasses. v addAll: es. es do: [ :e | methodElements := RTBox new elementsOn: e model methods. RTGridLayout on: methodElements. RTNest new on: e inShape: #second nest: methodElements layout: #vertical. v addAll: methodElements. ]. RTFlowLayout on: es. es @ RTDraggable. v open -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= The call of RTNest, indicated in bold, is the new thing. The #vertical says we what to have the two shapes added to RTMultiCompositeShape have to use a vertical layout. Here is the result: Any comment? Cheers, Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.