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.