Hi
There's a new layout fro Roassal, try it.
Gofer it
smalltalkhubUser: 'MathieuDehouck' project: 'RoassalAlgorithm';
package: 'Roassal-Algorithm'; load.
| rawView view layout | rawView := ROView new. view := ROMondrianViewBuilder view: rawView. "enter your script below" "-------------" "-------------"
view shape circle size: 10. view nodes: (Collection withAllSubclasses), (ROLayout withAllSubclasses ). view edgesFrom: #superclass.
layout := ROClusterLayout new.
view edges do: [ :e | e - ROLine + (ROBezierCurve radial new attachPoint: ROCenteredAttachPoint instance) ].
view layout: layout.
"-------------" "-------------" "Below is the initiation of the menu and opening the visualization" ROEaselMorphic new populateMenuOn: view. view open
Regards
Mathieu
