[Moose-dev] Transparent edges and tree map

Hi! I am cleaning some legacy code in Mondrian. Anyone knows what is a transparent edge? -=-=-=-=-=-=-=-=-=-=-=-= testTransparentEdges | view edges model | model := MOTestModel new. view := MOViewRenderer new. view nodes: model allNodes using: (MORectangleShape new width: 60; height: 60 "fixedWidth: 60 fixedHeight: 60"). edges := view localEdges: model allEdges from: [:entity | entity first] to: [:entity | entity last] using: model shapeForEdge. window := view open. self assert: edges value size = model allEdges size. view layout: MOTreeMapLayout new. view root deepApplyLayout. edges value do: [:edge | self deny: edge isVisible]. view layout: MOTreeLayout new. view root deepApplyLayout. edges value do: [:edge | self assert: edge isVisible] -=-=-=-=-=-=-=-=-=-=-=-= Cheers, Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.