Comment #9 on issue 574 by alexandr...@gmail.com: Nodes with complex shapes do not position the children nodes with complex shapes properly http://code.google.com/p/moose-technology/issues/detail?id=574
Simpler example:
| shape1 builder1 builder2 shape2 | builder1 := MOFormsBuilder new. builder1 column; fill; row; fill. builder1 x:1 y:1 add: (MORectangleShape new). builder1 x:1 y:1 add: (MOChildrenShape new) . shape1 := builder1 asShape. view nodeShape: shape1.
view nodes: (10 to: 30 by: 10) forEach: [:y | builder2 := MOFormsBuilder new. builder2 column; fill; row; fill. builder2 x:1 y:1 add: (MORectangleShape new). builder2 x:1 y:1 add: (MOChildrenShape new) . shape2 := builder2 asShape. view nodeShape: shape2. view node: $a forIt: [ view nodes: (1 to: 2) ]. view verticalLineLayout]