I loaded MooseLoader load
then CAnalyzer with a couple of warning and
then I selected packages
then packageDependency map
viewPackageMapOn: view
| graph kruskal tree otherEdges edges |
kruskal := MOKruskal new.
graph := self buildGraph: kruskal.
tree := kruskal run.
view nodeShape: (MORectangleShape new width: [:p | p model classes
size * 3]; height: [:p | p model extensionClasses size * 3] ).
view nodes: graph nodes.
view edgeShape: (MOCurveFitterShape new color: [:e| self
edgeColorFor: e default: Color brown]; width: 1).
otherEdges := graph edges copyWithoutAll: tree.
otherEdges := view edges: otherEdges from: #from to: #to.
view edgeShape: (MOStraightLineShape new color: [:e| self
edgeColorFor: e default: Color black]; width: 2).
edges := view edges: tree from: #from to: #to.
view treeLayout userDefinedEdges: edges
Stef