Hi, I am trying to get the edges to superclass to cross the package boundary. Could be related to Issue 845 Cheers, Stephan a roassal title: 'Complexity'; painting: [:view| | packages classes allClasses | packages := RPackageOrganizer default packages select: [ :p | p packageName beginsWith: 'Inno-' ]. allClasses := IdentitySet new. packages do: [ :package | allClasses addAll: package classes ]. view shape rectangle. view nodes: packages forEach: [ :aPackage | view interaction action: #browse. view shape rectangle width: [:cls | cls instVarNames size * 3]; height: [:cls | cls methods size ]; fillColor: (RONColorLinearNormalizer inContext: (allClasses) withCommand: [:cls | cls methods inject: 0 into: [:sum :el | sum + el getSource lineCount]] lowColor: Color green highColor: Color red). view nodes: aPackage classes. view edgesFrom: #superclass. view treeLayout ]. view gridLayout ] <PastedGraphic-2.png>_______________________________________________ Moose-dev mailing list Moose-dev(a)iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev