[Moose-dev] New layout: ROClusterLayout

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