Ok that way :)
this is cool that package and classes can understand the same message :)
On Jun 15, 2011, at 4:59 PM, Alexandre Bergel wrote:
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.