The solution is a little verbose, but it does what you need :). Please update Roassal 2, since I just found a bug there.
| view elements e1 e2 | view := RTView new. elements := ((RTEllipse new size: 30; color: Color white)) elementsOn: #(one two). view addAll: elements. elements @ RTDraggable. RTCircleLayout new initialRadius: 70; on: elements.
e1 := RTEdge from: elements first to: elements second. e1 + (RTDirectedLine new color: Color black; attachPoint: RTShorterDistanceAttachPoint new) + (RTArrow new color: Color black; attachPoint: RTShorterDistanceAttachPoint new) @ (RTLabelled new text: '12'; view: view). view add: e1. e2 := RTEdge from: elements second to: elements first. e2 + (RTDirectedLine new color: Color black; attachPoint: RTShorterDistanceAttachPoint new) + (RTArrow new color: Color black; attachPoint: RTShorterDistanceAttachPoint new) @ (RTLabelled new text: '21'; view: view). view add: e2. view open.
2014-04-25 9:49 GMT-03:00 Johan Fabry jfabry@dcc.uchile.cl:
Thanks Alex. But how about the RTDirectedLine that Ricardo mentioned ?? Will he be able to fix my mockup code with that?
On Apr 25, 2014, at 9:42 AM, Alexandre Bergel alexandre.bergel@me.com wrote:
Hi Johan,
First question: how can I make the arrows go to the border of the
ellipse, instead of the center?
Attachpoint is your friend.
-=-=-=-=-=-=-=-=-= | v e1 e2 l shape | v := RTView new.
e1 := ((RTEllipse new size: 20) + RTLabel) elementOn: 'one'. e2 := ((RTEllipse new size: 20) + RTLabel) elementOn: 'two'.
e1 @ RTDraggable. e2 @ RTDraggable.
e2 translateTo: 60 @ 40.
shape := RTLine new color: Color red. shape attachPoint: (RTShorterDistanceAttachPoint new). l := shape edgeFrom: e1 to: e2.
v add: e1; add: e2; add: l.
<Screen Shot 2014-04-25 at 9.39.53 AM.png>
Second question: as a human I would draw each of the two arrows with a
curve: one curving up and one curving down so that they (and their labels) do not overlap. Can I do something like this in Roassal? Because now readability is far from optimal.
We have no solution for now. Probably we need a new shape, something like RTDistinctLine that gives a
variation when necessary.
We can work on this, but not right now… You can also give a try if you
wish.
Alexandre
---> Save our in-boxes! http://emailcharter.org <---
Johan Fabry - http://pleiad.cl/~jfabry PLEIAD lab - Computer Science Department (DCC) - University of Chile
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
---> Save our in-boxes! http://emailcharter.org <---
Johan Fabry - http://pleiad.cl/~jfabry PLEIAD lab - Computer Science Department (DCC) - University of Chile
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev