Updates: Status: Fixed
Comment #8 on issue 938 by alexandr...@gmail.com: RadialTreeLayout should translate the graph http://code.google.com/p/moose-technology/issues/detail?id=938
Sorry to have been that slow on this.
| rawView nodes edges | rawView := ROView new.
nodes := (ROEllipse gray size: 10) elementsOn: Collection withAllSubclasses.
nodes do: [ :n | n @ RODraggable ].
rawView addAll: nodes.
edges := ROLine buildEdgesFromElements: nodes from: #superclass to: #yourself.
rawView addAll: edges.
RORadialTreeLayout new "translator: (ROSmoothLayoutTranslator new nbCycles: 10);" applyOn: nodes. rawView openInWindowSized: 1000 @ 600.