-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
view nodes: model allPackages
forEach: [:pack |
view shape rectangle
fillColor: Color orange;
height: 7;
width: 7.
view interaction
whenEnteringUpdateNode: [:node |
view edges: {node} from: #yourself toAll: #sureReferencingClasses ].
view nodes: pack classes.
view gridLayout gapSize: 2.
].
view gridLayout.
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Alexandre
On 15 Jun 2011, at 14:54, Stéphane Ducasse wrote:
How can I make the edge not from the package but the
class inside the originating package?
view interaction
whenEnteringUpdateNode: [:node |
view shape rectangle
fillColor: Color orange;
height: 7;
width: 7.
view nodes: node classes.
view gridLayout gapSize: 2.
view edges: {node} from: #yourself toAll: #sureReferencingClasses ]
whenLeavingUpdateNode: [:node |
view shape rectangle
fillColor: Color orange;
height: 7;
width: 7.
view nodes: node classes.
view gridLayout gapSize: 2 ]
withLayoutUpdate: true.
view nodes: model allPackages
forEach: [:pack |
view shape rectangle
fillColor: Color orange;
height: 7;
width: 7.
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
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.