cool :)
On May 25, 2011, at 6:03 PM, Alexandre Bergel wrote:
view shape rectangle.
view interaction menuMorphBlock: [ :element | element mooseMenuMorph ].
view nodes: model allClasses
forEach: [:class |
view shape rectangle
fillColor: Color orange;
height: 7;
width: 7.
view interaction menuMorphBlock: [ :element | element mooseMenuMorph ].
view interaction
whenEnteringUpdateNode: [:node |
view
edges: node outgoingInvocations
from: #sender
toAll: #candidates
using: (MOStraightLineShape color: Color blue)].
view nodes: class methods.
view gridLayout gapSize: 2.
].
view edges: model allInheritanceDefinitions
from: #superclass
to: #subclass
"using: MOLineShape new".
view treeLayout.