Comment #8 on issue 574 by alexandr...(a)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
A simpler and less confusing example is:
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
| shape1 builder1 builder2 shape2 |
builder1 := MOFormsBuilder new.
builder1 column; fill; row; fill; row; fill.
builder1 x:1 y:1 add: (MORectangleShape new).
builder1 x:1 y:2 add: (MORectangleShape new).
builder1 x:1 y:2 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; row; fill.
builder2 x:1 y:1 add: (MORectangleShape new).
builder2 x:1 y:2 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]
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Sharing the shape should not be a problem, but I prefer to check that
later. I am working on this now.