Nice indeed!

Doru

-- www.tudorgirba.com

"Every thing has its own flow."

On 27.05.2013, at 15:24, Alexandre Bergel alexandre.bergel@me.com wrote:

I guess the correct incantation to load the code is

...

Gofer it smalltalkhubUser: 'MathieuDehouck' project: 'RoassalAlgorithm'; package: 'Roassal-New'; load.

A screenshot:

<Screen Shot 2013-05-27 at 9.21.14 AM.png>

Can you comments the methods? #ratioWidth:height: #padding:

This is a very compact layout. Excellent!

Cheers, Alexandre

On May 24, 2013, at 7:15 AM, mathieubmddehouck@mailoo.org wrote:

...

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

-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.

---

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