[Moose-dev] Adding edges in Mondrian

Hi All,

Several time I saw the need to add a particular edge between two nodes that I know. I added a new method addEdgeFrom:to: in ViewRenderer. Here the appropriate test. Feel free to comment. -=-=-=-=-=-=-=-=-=-=-=-= testAddEdge | view | view := MOViewRenderer new.

view nodes: (1 to: 2). view addEdgeFrom: 1 to: 2.

window := view open. self assert: (view root edges size = 1). self assert: (view root edges first source = (view nodeForDomainValue: 1)). self assert: (view root edges first target = (view nodeForDomainValue: 2)). -=-=-=-=-=-=-=-=-=-=-=-=

Cheers, Alexandre