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@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:

>> During Smalltalks conference, we started with Mariano and Doru to do an experiment: to use Mondrian to visualize the graph that is being serialized with Fuel.
>
> Cool!
>
>> 1) Is it fine how I installed Mondrian?
>>
>> Gofer it
>> squeaksource: 'Mondrian';
>> package: 'ConfigurationOfMondrian';
>> load.
>> (ConfigurationOfMondrian project latestVersion) load.
>
> Yes.
>
>> 2) For large graphs, I would like to show them lazily, maybe drawing some expandable nodes (+). Do you understand what I mean? Is that possible?
>
> Try this in an easel:
> -=-=-=-=-=-=-=-=-=-=-=-=
> view shape rectangle size: 20.
> view interaction action: #inspect.
> view interaction
> whenEnteringUpdateNode: [:node |
> view interaction forwarder.
> view nodes: (Set allSubclasses).
> view interaction forwarder.
> view edgesFrom: #superclass..
> view treeLayout
> ]
> whenLeavingUpdateNode: [:node | ]
> withLayoutUpdate: true.
> view nodes: (1 to: 3)
> -=-=-=-=-=-=-=-=-=-=-=-=
>
> Cheers,
> Alexandre
> --
> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
> Alexandre Bergel http://www.bergel.eu
> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>
>
>
>
>
> _______________________________________________
> Moose-dev mailing list
> Moose-dev@iam.unibe.ch
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev

--
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