Hi!
I fixed a bug uncovered by Doru. Not easy to get this formsshape properly working. If you fix any bugs, let me know.
Does anyone needs to nest a formsshape into another formsshape ? The following script does not work.
-=-=-=-=-=-=-=-=-=-=-=-= | builder1 builder2 | builder1 := MOFormsBuilder new. builder1 row; fill; pref; grow; row; pref. builder1 column; pref. builder1 x: 1 y: 1 add: (MORectangleShape new text: [:each | each printString]). builder1 x: 1 y: 2 add: (MOChildrenShape new).
builder2 := MOFormsBuilder new. builder2 row; fill; pref; grow; row; pref; row; pref. builder2 column; pref. builder2 x: 1 y: 1 add: (MORectangleShape new text: [:each | each printString]). builder2 x: 1 y: 2 add: (MOChildrenShape new). builder2 x: 1 y: 3 add: (builder1 asShape).
view shape: builder2 asShape. view nodes: #(10 20 30 ) forEach: [:each | view nodes: (1 to: each )] -=-=-=-=-=-=-=-=-=-=-=-=
But I first want to concentrate on the situation we need now.
Cheers, Alexandre