view := RTMondrian new.
view shape label.
view nodes: (1 to: 10).
edges := view edges connectFrom: [ :x | x//2 ].
view layout tree userDefinedEdges: edges.
view shape arrowedLine color: Color red; centeredAttachPoint.
view edges source: {3->2 . 9->7} connectFrom: #key to: #value. 
view