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.