Hi,
Indeed, it starts to look good :).
Now, the problem is that the two shapes are drawn on top of each other.
We need to translate the canvas when drawing the children shape.
Cheers,
Doru
On 10 Aug 2010, at 02:23, Alexandre Bergel wrote:
Hi!
I may have fixed up the thing.
Could you try:
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
| builder childrenShape titleShape umlClassShape |
childrenShape := MOChildrenShape new.
titleShape := MORectangleShape new text: 'Title'.
builder := MOFormsBuilder new.
builder column; center; fill; pref; grow.
builder row; center; pref; fill; grow; row; center; fill; pref; grow.
builder x: 1 y: 1 add: titleShape.
builder x: 1 y: 2 add: childrenShape.
umlClassShape := builder asShape.
view nodeShape: umlClassShape.
view nodes: (1 to: 3) forEach: [:each |
view nodes: (1 to: 10) ]
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
This is the same code, except that I removed the transparent color.
Cheers,
Alexandre
On 9 Aug 2010, at 08:22, Tudor Girba wrote:
Hi Alex,
I would need your help in introducing the ChildrenShape. Without this, the FormsBuilder
is highly underutilized.
The problem I have is that currently the drawing of the nested graphs is handled on the
Figure side, while it should be handled by the Shape. So, I would need your help to move
this behavior while still preserving the caching logic.
The ChildrenShape should then override the display:on: to display these elements.
Would you have time to look into this?
For example, the following code should define a umlClassShape:
| builder childrenShape titleShape umlClassShape |
childrenShape := MOChildrenShape new.
titleShape := MORectangleShape new text: 'Title'; fillColor: Color transparent.
builder := MOFormsBuilder new.
builder column; center; fill; pref; grow.
builder row; center; pref; fill; grow; row; center; fill; pref; grow.
builder x: 1 y: 1 add: titleShape.
builder x: 1 y: 2 add: childrenShape.
umlClassShape := builder asShape.
view nodeShape: umlClassShape.
view nodes: (1 to: 3) forEach: [:each |
view nodes: (1 to: 10) ]
Cheers,
Doru
--
www.tudorgirba.com
"Not knowing how to do something is not an argument for how it cannot be
done."
_______________________________________________
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
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
"We cannot reach the flow of things unless we let go."
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch