[Moose-dev] Mondrian 4 Squeak

Dear All, I am spending some time on the Squeak Version of Mondrian. It seems that there is a bug when on how edges are drawn. For example, the following code draw some edges between nodes that does not exist. -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= | view nodes | nodes := Collection withAllSubclasses. view := MOViewRenderer new. view nodeShape: (MORectangleShape new width: [:each | each instVarNames size * 5]; height: [:each | each methodDictionary size ]). view nodes: nodes. view edges: nodes from: [:each| each superclass] to: [:each| each]. view layout: (MOTreeLayout new). view open -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= You can compare the result with the VW version: -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= | nodes | nodes := Collection withAllSubclasses. view newShape rectangle; width: [:each | each instVarNames size * 5]; height: [:each | each methodDictionary size]; withBorder. view nodes: nodes. view edges: nodes from: [:each| each superclass] to: [:each| each]. view treeLayout. -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= I also fixed a bug related to the translation of edges. It is in Mondrian@Squeaksource Cheers, Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.