Arg... It looks like to be a bug. Consider:
| builder |
builder := MOFormsBuilder new.
builder column; fill; pref; grow.
builder row; fill; row; fill; pref; grow.
builder x: 1 y: 1 add: (MORectangleShape new text: [:table | table name]; fontSize: 10).
builder x: 1 y: 2 add: MORectangleShape new.
builder x: 1 y: 2 add: MOChildrenShape new.
view shape: builder shape.
view node: 'hello' forIt: [
view nodes: (1 to: 5).
view verticalLineLayout
]
Can you open an entry in google and put me in Cc?
In the meantime, you can use something like:
view node: #yourNode forIt: [
view shape label.
view node: 'hello'.
view node: 'hello' forIt: [
view nodes: (1 to: 5).
view verticalLineLayout
].
view verticalLineLayout gapSize: 1; stretchHorizontally
]
Alexandre
On 19 Jan 2011, at 15:20, Fabrizio Perin wrote:
Hi,
i got a strange behaviour from Mondrian trying to build a shape for data base tables.
Basically defining a shape which contains a rectangle with a title and a children shape it
happen that the rectangle containing the title have the same size of the children shape.
Is it a bug or is a problem of my code? Below the code that i use, copy and paste in
MOShapeSelector the tableShape method and than in a normal mondrian easel window you
should be able to reproduce the same behaviour with the snippet below.
By using this shape definition:
tableShape
| builder |
builder := MOFormsBuilder new.
builder column; fill; pref; grow.
builder row; fill; pref; grow; row; fill; pref; grow.
builder x: 1 y: 1 add: (MORectangleShape new text: [:table | table name]; fontSize:
10).
builder x: 1 y: 2 add: MORectangleShape new.
builder x: 1 y: 2 add: MOChildrenShape new.
^view shape: builder shape
and using this visualization script:
view shape tableShape.
view node: (FAMIXNamedEntity new name: 'test') forIt: [
view shape rectangle.
view nodes: (1 to: 20).
view verticalLineLayout. ].
I got the result in the attachment.
<Mondrian-2011-01-19-1914.png>
Thanks,
Fabrizio
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel
http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.