Ah, I did not notice the extra view: v call. Yes now it does work, thanks!
On Apr 22, 2014, at 1:43 PM, Alexandre Bergel alexandre.bergel@me.com wrote:
It does work. Maybe you need to update Roassal. <Screen Shot 2014-04-22 at 1.42.31 PM.png>
Alexandre
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
On Apr 22, 2014, at 12:38 PM, Johan Fabry jfabry@dcc.uchile.cl wrote:
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.340543... > > 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
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