14 Jun
2011
14 Jun
'11
6:19 p.m.
Hi Stef,
I haven't looked closely at your example, but try the following and let me know
whether this solves your problem or not:
view node: 'node' forIt: [
view interaction
whenEnteringUpdateNode: [ :aValue |
view edges: {aValue} from: #yourself toAll: ((1 to: 9) copyWithout: aValue ) ].
view shape rectangle size: 30.
view nodes: (1 to: 9).
view gridLayout gapSize: 10.
]
I added this example in the MOEasel.
Cheers,
Alexandre
On 14 Jun 2011, at 10:18, Stéphane Ducasse wrote:
Hi guys
I would like to have an edge drawn from a package to the classes that use it.
I did but it does not work
view interaction
whenEnteringUpdateNode: [:node |
view edgesToAll: #sureReferencingClasses.].
in
view shape rectangle.
view interaction menuMorphBlock: [ :element | element mooseMenuMorph ].
view nodes: model allPackages
forEach: [:pack |
view shape rectangle
fillColor: Color orange;
height: 7;
width: 7.
view interaction menuMorphBlock: [ :element | element mooseMenuMorph ].
view interaction
whenEnteringUpdateNode: [:node |
view edgesToAll: #sureReferencingClasses.].
view nodes: pack classes.
view gridLayout gapSize: 2.
].
view gridLayout.
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.