Works perfectly ! Realy cool ! *RTEdge class>>#buildEdgesFromObjects:from:toAll:using: *doesn't exist. You have to precise the view with *RTEdge class>>#buildEdgesFromObjects:from:toAll:using:inView:* I don't know if you have forgotten it in your example or if the message has been forgotten to be implemented.
On Wed, Apr 16, 2014 at 8:15 PM, Alexandre Bergel alexandre.bergel@me.comwrote:
We have slightly improved the situation with the following:
view := RTView new. els := (RTBox new size: 10; color: Color blue; borderColor: Color veryLightGray) elementsOn: Collection withAllSubclasses. els @ RTDraggable. view addAll: els. RTEdge buildEdgesFromObjects: Collection withAllSubclasses from: #yourself toAll: #subclasses using: ((RTLine new attachPoint: RTShorterDistanceAttachPoint new; color: Color veryDarkGray) + (RTArrow new attachPoint: RTShorterDistanceAttachPoint new; color: Color veryDarkGray)) inView: view.
RTTreeLayout on: els. view open
-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
On Apr 16, 2014, at 9:10 AM, Leo Perard leo.perard@gmail.com wrote:
I just notice that attachPoint: do not work with the RTArrow.
view := RTView new. els := (RTBox new size: 10; color: Color blue; borderColor: Color
veryLightGray) elementsOn: Collection withAllSubclasses.
els @ RTDraggable. view addAll: els. RTEdge buildEdgesFromObjects: Collection withAllSubclasses from: #yourself toAll: #subclasses using: ((RTLine new attachPoint: RTShorterDistanceAttachPoint new;
color: Color veryDarkGray) + (RTArrow new color: Color veryDarkGray))
inView: view.RTTreeLayout on: els. view open
On Wed, Apr 16, 2014 at 12:39 AM, Leo Perard leo.perard@gmail.com
wrote:
I don't remember but I think there is a message pushBack or something
like that no ? Can't we send it to the edges ?
On Wed, Apr 16, 2014 at 12:08 AM, Alexandre Bergel <
alexandre.bergel@me.com> wrote:
You can simply add an attach point.
For example:
| 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
attachPoint: RTShorterDistanceAttachPoint new;
centerOfObjects: (el model - 5 to:el model +5) inView: v;
color: (Color blue alpha: 0.4) ] ).v
<Screen Shot 2014-04-15 at 7.08.10 PM.png>
Cheers, Alexandre
On Apr 15, 2014, at 6:44 PM, Stéphane Ducasse stephane.ducasse@inria.fr
wrote:
alex
it would be good to have the edge not to the center but to the border
of the shape.
Stef On 08 Apr 2014, at 16:05, Alexandre Bergel abergel@dcc.uchile.cl
wrote:
I started to script the visualization in Roassal 2. But I have the
following missing:
- RODynamicEdge (and
ROMondrianInteractionBuilder>>dynamicEdgeFromAll: aBlockOrSymbol using: aShape)
- ROArrow
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: <Screen Shot 2014-04-08 at 10.54.21 AM.png>
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
<Screen Shot 2014-04-08 at 11.04.31 AM.png>
We are currently working on RTArrow, we will be done by today or
tomorrow I think…
Alexandre
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
-- Leo Perard
-- Leo Perard _______________________________________________ Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev