[Moose-dev] Re: Adding edges in Mondrian

Hi Alex, I am not sure I understand where the limitation is. It's just a naming convention to describe the view, rather than to add things to it. I see no reason to start changing it now. You can have as many "view nodes: " and "view edges:" you want. For example, the following code, works just fine in Squeak: view := MOViewRenderer new. view shape: (MORectangleShape new ). view nodes: #(1 2 3 4). view edgeShape: (MOStraightLineShape new). view edges: #(1 2 3 4) from: #yourself to: [:x | x + 1]. view shape: (MORectangleShape new fillColor: Color red). view nodes: #(5 6 7 8). view edgeShape: (MOStraightLineShape new color: Color red). view edges: #(5 6 7 8) from: #yourself to: [:x | x + 1]. view treeLayout. view open For your case of the layout, you actually want to tell the layout to only take into account the inheritance edges. The solution in is to pass userDefinedEdges: to the layout with the edges returned by the view edges:. For example in the following code I store the second set of edges in an "active" variable and then pass it to the layout: view := MOViewRenderer new. view shape: (MORectangleShape new ). view nodes: #(1 2 3 4). view edgeShape: (MOStraightLineShape new). view edges: #(1 2 3 4) from: #yourself to: [:x | x + 1]. view shape: (MORectangleShape new fillColor: Color red). view nodes: #(5 6 7 8). view edgeShape: (MOStraightLineShape new color: Color red). active := view edges: #(5 6 7 8) from: #yourself to: [:x | x + 1]. view treeLayout userDefinedEdges: active. view open Cheers, Doru On 24 Mar 2009, at 17:47, Alexandre Bergel wrote: -- www.tudorgirba.com "To lead is not to demand things, it is to make them happen."