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