[Moose-dev] Re: Mondrian expandable nodes

Johan and Alexandre: Thank you, was funny to play with Mondrian Easel and to see AspectMaps. Doru: You was right, I had in mind something like a tree. I made a proof script using blocks for recursion... look: | blockForClass blockForExpandable blockForLeaf | blockForClass := [:aClass | blockForLeaf value: aClass. aClass subclasses do: [:aSubclass | (aSubclass subclasses isEmpty ifTrue: [blockForLeaf] ifFalse: [blockForExpandable]) value: aSubclass ] ]. blockForLeaf := [:aClass | view shape label text: #name. view node: aClass. view edgesFrom: #superclass. view horizontalTreeLayout ]. blockForExpandable := [:aClass | view interaction whenClickingUpdateNode: [:x | blockForClass value: x ] withLayoutUpdate: true. view shape rectangle dashedBorder; size: 10; borderColor: Color lightGray. view node: aClass. view edgesFrom: #superclass. view horizontalTreeLayout ]. blockForClass value: Collection. On Tue, Nov 8, 2011 at 4:16 AM, Tudor Girba <tudor(a)tudorgirba.com> wrote: Hi, I think Martin was asking for a script that would add nodes to the parent graph, not to the inner graph of a selected node. The idea is to have an expandable graph that would behave similarly to a tree morph widget (when you expand a node, the whole tree becomes larger). Cheers, Doru On 8 Nov 2011, at 04:28, Alexandre Bergel wrote: -- 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 _______________________________________________ Moose-dev mailing list Moose-dev(a)iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev