Cool, thanks!

But just to be clear, this last mail of you is code that does NOT work? 

On Apr 21, 2014, at 5:37 PM, Alexandre Bergel <alexandre.bergel@me.com> wrote:

Here is a version of the same code in which the “v addAll: …” is done __after__ using RTLabelled.

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
| v e1 e2 l |
v := RTView new.

e1 := (RTEllipse new size: 20) elementOn: 'hello'.
e2 := (RTEllipse new size: 20) elementOn: 'world'.

e1 @ RTDraggable.
e2 @ RTDraggable.

l := RTEdge from: e1 to: e2.
l + (RTLine new color: Color red).
l + (RTArrow new color: Color red).

e2 translateBy: 60 @ 80.


e1 @ (RTLabelled new view: v).
e2 @ (RTLabelled new view: v).

"Note that the RTLabelled interaction has to be set after having added the element in the view"
l @ (RTLabelled new text: 'lining up!'; view: v).

v addAll: { e1 . e2 . l }.

v open.
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

-- 
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel  http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.



On Apr 21, 2014, at 5:34 PM, Alexandre Bergel <alexandre.bergel@me.com> wrote:

It was not implemented.

You need to update Roassal.
-=-=-=-=-=-=-=-=-=-=
| v e1 e2 l |
v := RTView new.

e1 := (RTEllipse new size: 20) elementOn: 'hello'.
e2 := (RTEllipse new size: 20) elementOn: 'world'.

e1 @ RTDraggable.
e2 @ RTDraggable.

l := RTEdge from: e1 to: e2.
l + (RTLine new color: Color red).
l + (RTArrow new color: Color red).

e2 translateBy: 60 @ 80.
v addAll: { e1 . e2 . l }.

e1 @ RTLabelled.
e2 @ RTLabelled.

"Note that the RTLabelled interaction has to be set after having added the element in the view"
l @ (RTLabelled new text: 'lining up!').

v open.
-=-=-=-=-=-=-=-=-=-=
<Screen Shot 2014-04-21 at 5.32.52 PM.png>

There is a subtlety: you need to tell the RTLabelled what is the view to insert the label into. A bit cumbersome, but I have nothing better for now.

Cheers,
Alexandre


-- 
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel  http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.



On Apr 21, 2014, at 4:03 PM, Johan Fabry <jfabry@dcc.uchile.cl> wrote:

I have a related question: how do I add a label to an edge? If I do the following it does not have any effect

((RTEdge from: efrom to: eto) + (RTLine new color: color) + (RTArrow new color: color)) @ RTLabelled.

Thanks in advance,

On Apr 20, 2014, at 10:25 PM, Alexandre Bergel <alexandre.bergel@me.com> wrote:

On any element.

Try this:

-=-=-=-=-=-=-=-=-=-=-=-=
| v es |
v := RTView new.
v @ RTDraggableView.
es := (RTEllipse new size: #numberOfMethods) elementsOn: RTObject withAllSubclasses.
v addAll: es.

es @ RTPopup @ RTLabelled @ RTDraggable.
RTFlowLayout new maxWidth: 900; gapSize: 50; on: es.

v open
-=-=-=-=-=-=-=-=-=-=-=-=

<Screen Shot 2014-04-20 at 10.23.14 PM.png>

Alexandre


On Apr 20, 2014, at 9:06 PM, Leo Perard <leo.perard@gmail.com> wrote:

Looks pretty cool !
Can we use on any RTShape or only RTBox ?


On Sun, Apr 20, 2014 at 11:40 PM, Alexandre Bergel <alexandre.bergel@me.com> wrote:
Roassal Tip #2: Labeling bar with GraphET. 
You can use @RTLabelled for each bar elements. Consider the following example:

-=-=-=-=-=-=-=-=-=
| diagram |
diagram := GET2DiagramBuilder new.
diagram horizontalBarDiagram
models: #(10 12 13 200 150 -13 149 -151);
regularAxis.
diagram build.

"Pick the horizontal bars and add a label"
diagram view elements do: [ :e |
(e shape class == RTBox) 
ifTrue: [ e @ RTLabelled new right ]
].
diagram view open
-=-=-=-=-=-=-=-=-=
<10168048_620580701361864_1868405001679336135_n.png>

https://www.facebook.com/ObjectProfile/photos/a.341189379300999.82969.340543479365589/620580701361864/?type=1&theater

Cheers,
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




-- 
Leo Perard
_______________________________________________
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

_______________________________________________
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