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 ]
