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