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

 

_______________________________________________
Moose-dev mailing list
Moose-dev@iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev