[Moose-dev] Rectangle packing

Hi There is a new layout for packing rectangle nodes. Gofer new smalltalkhubUser: '' project: 'RoassalAlgorithm'; package: 'Roassal-New'; load --------------------------------------------------------------------------------------------------- "Source code: ROMondrianExample>>miniMapOn:" "Preambule. It includes the initialization. " | view rawView | rawView := ROView new. view := ROMondrianViewBuilder view: rawView. "-------------" "-------------" view shape rectangle width: [ :cls | cls numberOfVariables * 5 ]; height: #numberOfMethods; color: (Color r: 0 g: 1 b: 1 ). view nodes: Collection withAllSubclasses. "1 to: view nodes size by: 2 do: [ :ea ||i e| e := view nodes at: ea. i := e width. e width: e height. e height: i. e extent: e width @ e height ] ." view layout:(( RORectanglePacking new)ratioWidth: 2 height: 1; padding: 3). "-------------" "-------------" "Below is the initiation of the menu and opening the visualization" ROEaselMorphic new populateMenuOn: view. view open. ------------------------------------------------------------------------------------------------------ Try it and give me feedback, please. Regards Mathieu