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@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev