[Moose-dev] multiple arrow

Hi! I know this has been on the wished list of many of you. The following script produces: -=-=-=-=-=-=-=-=-=-=-=-= | view el1 el2 edge line | view := ROView new. el1 := ROElement new. el1 @RODraggable. el1 extent: 50@50. el1 + ROBox blue. el2 := ROElement new. el2 @RODraggable. el2 extent: 50@50. el2 + ROBox green. el1 translateTo: 0 @ 100. edge := ROEdge from: el1 to: el2. line := ROLine new. line add: ROArrow new offset: 0.1. line add: ROArrow new offset: 0.5. edge + line. view add: el1; add: el2; add: edge. view open -=-=-=-=-=-=-=-=-=-=-=-= I will remove ROArrowedLine very soon then Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.