[Moose-dev] Re: Towards Roassal2

Just yesterday I have introduced RTShowEdge, which is a nice replacement of RODynamicEdge. Try the following: -=-=-=-=-=-=-=-=-=-=-=-= | v es | v := RTView new. es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20). v addAll: es. RTCircleLayout on: es. es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]). v -=-=-=-=-=-=-=-=-=-=-=-= Or: -=-=-=-=-=-=-=-=-=-=-=-= | v es | v := RTView new. es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20). v addAll: es. RTCircleLayout new initialRadius: 150; on: es. es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]; shape: (RTLine new color: (Color blue alpha: 0.4))). v -=-=-=-=-=-=-=-=-=-=-=-= Here is a screenshot: And if you are in a curvy mood, you can do: -=-=-=-=-=-=-=-=-=-=-=-= | v es | v := RTView new. es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20). v addAll: es. RTCircleLayout new initialRadius: 150; on: es. es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]; shape: [ :el | RTBezierLine new centerOfObjects: (el model - 5 to: el model +5) inView: v; color: (Color blue alpha: 0.4) ] ). v -=-=-=-=-=-=-=-=-=-=-=-= We are currently working on RTArrow, we will be done by today or tomorrow I think… Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.