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