[Moose-dev] Re: [Roassal] New tree map builder for Roassal

builder := DFTreeMapBuilder new. builder weightBlock: [ :el | el ]. builder nodes: (1 to: 50). builder nestingFromAssociations: (builder nodes allButFirst collect: [:each | (each // 2) -> each ]). "Some optional configurations parameters" colors := Color green mix: Color blue shades: (builder nodes size). builder colorBlock: [ :el | colors at: el ]. builder rootColor: ((Color red) alpha: 0.5). builder inset: 5. builder extent: 300@400. builder origin: 10@30. "Some node-specific customization" builder fillNodes: [ :n | (n > 40) ] withColor: (Color white). builder fillNode: 50 withColor: (Color yellow). builder fillNode: 43 withColor: (Color green). builder strokeNodes: [ :n | (n \\ 2) = 1 ] withColor: (Color blue). builder strokeNode: 13 withColor: (Color black). builder strokeNodes: [ :n | (n \\ 6) = 0 ] withWidth: 2. builder strokeNode: 3 withColor: (Color red). builder strokeNode: 3 withWidth: 3. "Using the #drawOn: message for compatibility with ROMondrianViewBuilder" view := ROView new. view @ RODraggable. builder drawOn: view. view open.

Looks good to me. Maybe you could have in addition to DFTreeMapBuilder>>associations: something DFTreeMapBuilder>>parent: aBlockOrASymbol Also, something very important that I forgot to mention, we need a method DFTreeMapBuilder>>drawOn: aROView Like that, we should be able to have a treemap when using the mondrian builder. Using your example, we should have exactly the same result if we do: -=-=-=-=-=-=-=-=-=-=-=-= builder := DFTreeMapBuilder new. builder ... // your example here view := ROView new. builder drawOn: view. view open -=-=-=-=-=-=-=-=-=-=-=-= Cheers, Alexandre On Oct 7, 2013, at 1:07 PM, "roberto.minelli(a)usi.ch" <roberto.minelli(a)usi.ch> wrote: -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.