20 Apr
2014
20 Apr
'14
11:40 p.m.
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
-=-=-=-=-=-=-=-=-=
https://www.facebook.com/ObjectProfile/photos/a.341189379300999.82969.34054…
Cheers,
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
21 Apr
21 Apr
2:06 a.m.
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(a)me.com>wrote;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
-=-=-=-=-=-=-=-=-=
[image: Photo: 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]
https://www.facebook.com/ObjectProfile/photos/a.341189379300999.82969.34054…
Cheers,
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
Leo Perard
3:25 a.m.
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
-=-=-=-=-=-=-=-=-=-=-=-=
Alexandre
On Apr 20, 2014, at 9:06 PM, Leo Perard <leo.perard(a)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(a)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.34054…
Cheers,
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
Leo Perard
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
3:12 p.m.
Just for the record, if you want to do that with GraphET, you should use the message
modelAxis, which does practically the same, but the label sticks in the axis, with
negative numbers having it over the axis and positive numbers below the axis.
Here's an example:
| diagram |diagram := GETDiagramBuilder new.diagram verticalBarDiagrammodels: (1 to:
10);modelAxis.diagram open
resulting in:
https://www.facebook.com/ObjectProfile/photos/pb.340543479365589.-220752000…
;) -Daniel
From: alexandre.bergel(a)me.com
Date: Sun, 20 Apr 2014 22:25:18 -0300
To: moose-dev(a)iam.unibe.ch
Subject: [Moose-dev] Re: Roassal Tip #2: Labeling bar with GraphET.
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-=-=-=-=-=-=-=-=-=-=-=-=
Alexandre
On Apr 20, 2014, at 9:06 PM, Leo Perard <leo.perard(a)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(a)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.34054…
Cheers,
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
Leo Perard
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
3:53 p.m.
Indeed, this Roassal tip#2 is very hacky.
We will have to design something cleaner on some point...
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
On Apr 21, 2014, at 10:12 AM, Daniel Aviv Notario <daniel_avivnotario(a)hotmail.com>
wrote:
Just for the record, if you want to do that with
GraphET, you should use the message modelAxis, which does practically the same, but the
label sticks in the axis, with negative numbers having it over the axis and positive
numbers below the axis.
Here's an example:
| diagram |
diagram := GETDiagramBuilder new.
diagram verticalBarDiagram
models: (1 to: 10);
modelAxis.
diagram open
resulting in:
https://www.facebook.com/ObjectProfile/photos/pb.340543479365589.-220752000…
;) -Daniel
From: alexandre.bergel(a)me.com
Date: Sun, 20 Apr 2014 22:25:18 -0300
To: moose-dev(a)iam.unibe.ch
Subject: [Moose-dev] Re: Roassal Tip #2: Labeling bar with GraphET.
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(a)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(a)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.34054…
Cheers,
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
Leo Perard
_______________________________________________
Moose-dev mailing list
Moose-dev(a)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.chhttps://www.iam.unibe.ch/mailman/listinfo/moose-dev
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
9:59 p.m.
Hi everyone,
On Apr 21, 2014, at 10:53, Alexandre Bergel <alexandre.bergel(a)me.com> wrote:
Indeed, this Roassal tip#2 is very hacky.
We will have to design something cleaner on some point…
I think “showValues” could be a proper name for that.
I implemented it for GraphET2 (version 50).
=.=.=.
| builder |
builder := GET2HorizontalBar data: #(10 12 13 200 150 -13 149 -151).
builder showValues.
builder open
=.=.=.
Another example
=.=.=.
| values builder |
values := #( #(1 3 9) #(3 2 7) #(5 14 5) #(6 10 7) #(7 9 9) #(8 8 10) ).
builder := GET2Scatterplot data: values.
builder
x: #first;
y: #second;
r: [:v | v third * 4];
color: (Color brown alpha:0.4).
builder showValues: #third.
builder open
=.=.=.
What do you think?
Cheers,
Pablo
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
On Apr 21, 2014, at 10:12 AM, Daniel Aviv Notario <daniel_avivnotario(a)hotmail.com>
wrote:
Just for the record, if you want to do that with
GraphET, you should use the message modelAxis, which does practically the same, but the
label sticks in the axis, with negative numbers having it over the axis and positive
numbers below the axis.
Here's an example:
| diagram |
diagram := GETDiagramBuilder new.
diagram verticalBarDiagram
models: (1 to: 10);
modelAxis.
diagram open
resulting in:
https://www.facebook.com/ObjectProfile/photos/pb.340543479365589.-220752000…
;) -Daniel
From: alexandre.bergel(a)me.com
Date: Sun, 20 Apr 2014 22:25:18 -0300
To: moose-dev(a)iam.unibe.ch
Subject: [Moose-dev] Re: Roassal Tip #2: Labeling bar with GraphET.
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(a)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(a)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.34054…
Cheers,
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
Leo Perard
_______________________________________________
Moose-dev mailing list
Moose-dev(a)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.chhttps://www.iam.unibe.ch/mailman/listinfo/moose-dev
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
11:26 p.m.
Strange, it does not work for me?
-=-=-=-=-=-=-=-=-=
| values builder |
values := #( #(1 3 9) #(3 2 7) #(5 14 5) #(6 10 7) #(7 9 9) #(8 8 10) ).
builder := GET2Scatterplot data: values.
builder
x: #first;
y: #second;
r: [:v | v third * 4];
color: (Color brown alpha:0.4).
builder showValues: #third.
builder open
-=-=-=-=-=-=-=-=-=
I see no labels. Maybe this is due to my last change. Each circle should have a model
(i.e., not nil value)
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
On Apr 21, 2014, at 4:59 PM, Pablo Estefó <pestefo(a)gmail.com> wrote:
Hi everyone,
On Apr 21, 2014, at 10:53, Alexandre Bergel <alexandre.bergel(a)me.com> wrote:
Indeed, this Roassal tip#2 is very hacky.
We will have to design something cleaner on some point…
I think “showValues” could be a proper name for that.
I implemented it for GraphET2 (version 50).
=.=.=.
| builder |
builder := GET2HorizontalBar data: #(10 12 13 200 150 -13 149 -151).
builder showValues.
builder open
=.=.=.
<PastedGraphic-3.tiff>
Another example
=.=.=.
| values builder |
values := #( #(1 3 9) #(3 2 7) #(5 14 5) #(6 10 7) #(7 9 9) #(8 8 10) ).
builder := GET2Scatterplot data: values.
builder
x: #first;
y: #second;
r: [:v | v third * 4];
color: (Color brown alpha:0.4).
builder showValues: #third.
builder open
=.=.=.
<PastedGraphic-4.tiff>
What do you think?
Cheers,
Pablo
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
On Apr 21, 2014, at 10:12 AM, Daniel Aviv Notario <daniel_avivnotario(a)hotmail.com>
wrote:
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev Just for the record, if you want to do that with
GraphET, you should use the message modelAxis, which does practically the same, but the
label sticks in the axis, with negative numbers having it over the axis and positive
numbers below the axis.
Here's an example:
| diagram |
diagram := GETDiagramBuilder new.
diagram verticalBarDiagram
models: (1 to: 10);
modelAxis.
diagram open
resulting in:
https://www.facebook.com/ObjectProfile/photos/pb.340543479365589.-220752000…
;) -Daniel
From: alexandre.bergel(a)me.com
Date: Sun, 20 Apr 2014 22:25:18 -0300
To: moose-dev(a)iam.unibe.ch
Subject: [Moose-dev] Re: Roassal Tip #2: Labeling bar with GraphET.
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(a)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(a)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.34054…
Cheers,
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
Leo Perard
_______________________________________________
Moose-dev mailing list
Moose-dev(a)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.chhttps://www.iam.unibe.ch/mailman/listinfo/moose-dev
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
22 Apr
22 Apr
7:20 p.m.
On Apr 21, 2014, at 18:26, Alexandre Bergel <alexandre.bergel(a)me.com> wrote:
Strange, it does not work for me?
-=-=-=-=-=-=-=-=-=
| values builder |
values := #( #(1 3 9) #(3 2 7) #(5 14 5) #(6 10 7) #(7 9 9) #(8 8 10) ).
builder := GET2Scatterplot data: values.
builder
x: #first;
y: #second;
r: [:v | v third * 4];
color: (Color brown alpha:0.4).
builder showValues: #third.
builder open
-=-=-=-=-=-=-=-=-=
I see no labels. Maybe this is due to my last change. Each circle should have a model
(i.e., not nil value)
Each one has its model. The problem was that the case for positioning at center (isCenter)
was missing.
I added it and committed it.
Cheers,
Pablo
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
On Apr 21, 2014, at 4:59 PM, Pablo Estefó <pestefo(a)gmail.com> wrote:
Hi everyone,
On Apr 21, 2014, at 10:53, Alexandre Bergel <alexandre.bergel(a)me.com> wrote:
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev Indeed, this Roassal tip#2 is very hacky.
We will have to design something cleaner on some point…
I think “showValues” could be a proper name for that.
I implemented it for GraphET2 (version 50).
=.=.=.
| builder |
builder := GET2HorizontalBar data: #(10 12 13 200 150 -13 149 -151).
builder showValues.
builder open
=.=.=.
<PastedGraphic-3.tiff>
Another example
=.=.=.
| values builder |
values := #( #(1 3 9) #(3 2 7) #(5 14 5) #(6 10 7) #(7 9 9) #(8 8 10) ).
builder := GET2Scatterplot data: values.
builder
x: #first;
y: #second;
r: [:v | v third * 4];
color: (Color brown alpha:0.4).
builder showValues: #third.
builder open
=.=.=.
<PastedGraphic-4.tiff>
What do you think?
Cheers,
Pablo
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
On Apr 21, 2014, at 10:12 AM, Daniel Aviv Notario <daniel_avivnotario(a)hotmail.com>
wrote:
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev Just for the record, if you want to do that with
GraphET, you should use the message modelAxis, which does practically the same, but the
label sticks in the axis, with negative numbers having it over the axis and positive
numbers below the axis.
Here's an example:
| diagram |
diagram := GETDiagramBuilder new.
diagram verticalBarDiagram
models: (1 to: 10);
modelAxis.
diagram open
resulting in:
https://www.facebook.com/ObjectProfile/photos/pb.340543479365589.-220752000…
;) -Daniel
From: alexandre.bergel(a)me.com
Date: Sun, 20 Apr 2014 22:25:18 -0300
To: moose-dev(a)iam.unibe.ch
Subject: [Moose-dev] Re: Roassal Tip #2: Labeling bar with GraphET.
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(a)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(a)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.34054…
Cheers,
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
Leo Perard
_______________________________________________
Moose-dev mailing list
Moose-dev(a)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.chhttps://www.iam.unibe.ch/mailman/listinfo/moose-dev
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
7:21 p.m.
Yes, it works!
Alexandre
On Apr 22, 2014, at 2:20 PM, Pablo Estefó <pestefo(a)gmail.com> wrote:
On Apr 21, 2014, at 18:26, Alexandre Bergel <alexandre.bergel(a)me.com> wrote:
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
Strange, it does not work for me?
-=-=-=-=-=-=-=-=-=
| values builder |
values := #( #(1 3 9) #(3 2 7) #(5 14 5) #(6 10 7) #(7 9 9) #(8 8 10) ).
builder := GET2Scatterplot data: values.
builder
x: #first;
y: #second;
r: [:v | v third * 4];
color: (Color brown alpha:0.4).
builder showValues: #third.
builder open
-=-=-=-=-=-=-=-=-=
I see no labels. Maybe this is due to my last change. Each circle should have a model
(i.e., not nil value)
Each one has its model. The problem was that the case for positioning at center
(isCenter) was missing.
I added it and committed it.
Cheers,
Pablo
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
On Apr 21, 2014, at 4:59 PM, Pablo Estefó <pestefo(a)gmail.com> wrote:
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev Hi everyone,
On Apr 21, 2014, at 10:53, Alexandre Bergel <alexandre.bergel(a)me.com> wrote:
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev Indeed, this Roassal tip#2 is very hacky.
We will have to design something cleaner on some point…
I think “showValues” could be a proper name for that.
I implemented it for GraphET2 (version 50).
=.=.=.
| builder |
builder := GET2HorizontalBar data: #(10 12 13 200 150 -13 149 -151).
builder showValues.
builder open
=.=.=.
<PastedGraphic-3.tiff>
Another example
=.=.=.
| values builder |
values := #( #(1 3 9) #(3 2 7) #(5 14 5) #(6 10 7) #(7 9 9) #(8 8 10) ).
builder := GET2Scatterplot data: values.
builder
x: #first;
y: #second;
r: [:v | v third * 4];
color: (Color brown alpha:0.4).
builder showValues: #third.
builder open
=.=.=.
<PastedGraphic-4.tiff>
What do you think?
Cheers,
Pablo
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
On Apr 21, 2014, at 10:12 AM, Daniel Aviv Notario <daniel_avivnotario(a)hotmail.com>
wrote:
> Just for the record, if you want to do that with GraphET, you should use the message
modelAxis, which does practically the same, but the label sticks in the axis, with
negative numbers having it over the axis and positive numbers below the axis.
>
> Here's an example:
>
> | diagram |
> diagram := GETDiagramBuilder new.
> diagram verticalBarDiagram
> models: (1 to: 10);
> modelAxis.
> diagram open
>
> resulting in:
>
>
https://www.facebook.com/ObjectProfile/photos/pb.340543479365589.-220752000…
>
>
> ;) -Daniel
>
> From: alexandre.bergel(a)me.com
> Date: Sun, 20 Apr 2014 22:25:18 -0300
> To: moose-dev(a)iam.unibe.ch
> Subject: [Moose-dev] Re: Roassal Tip #2: Labeling bar with GraphET.
>
> 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(a)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(a)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.34054…
>
> Cheers,
> Alexandre
>
> --
> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
> Alexandre Bergel http://www.bergel.eu
> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>
>
>
>
> _______________________________________________
> Moose-dev mailing list
> Moose-dev(a)iam.unibe.ch
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>
>
>
>
> --
> Leo Perard
> _______________________________________________
> Moose-dev mailing list
> Moose-dev(a)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.chhttps://www.iam.unibe.ch/mailman/listinfo/moose-dev
> _______________________________________________
> Moose-dev mailing list
> Moose-dev(a)iam.unibe.ch
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev 
21 Apr
21 Apr
9:03 p.m.
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(a)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(a)gmail.com> wrote:
---> Save our in-boxes! http://emailcharter.org <---
Johan Fabry - http://pleiad.cl/~jfabry
PLEIAD lab - Computer Science Department (DCC) - University of Chile
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(a)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.34054…
Cheers,
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
Leo Perard
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
10:34 p.m.
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.
-=-=-=-=-=-=-=-=-=-=
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(a)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(a)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(a)gmail.com> wrote:
---> 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(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev 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(a)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.34054…
Cheers,
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
Leo Perard
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev 
10:37 p.m.
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(a)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(a)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(a)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(a)gmail.com> wrote:
---> 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(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev 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(a)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.34054…
Cheers,
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
Leo Perard
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
22 Apr
22 Apr
5:38 p.m.
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(a)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(a)me.com> wrote:
---> Save our in-boxes! http://emailcharter.org <---
Johan Fabry - http://pleiad.cl/~jfabry
PLEIAD lab - Computer Science Department (DCC) - University of Chile
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(a)dcc.uchile.cl> wrote:
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
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(a)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(a)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(a)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.34054…
>
> Cheers,
> Alexandre
>
> --
> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
> Alexandre Bergel http://www.bergel.eu
> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>
>
>
>
> _______________________________________________
> Moose-dev mailing list
> Moose-dev(a)iam.unibe.ch
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>
>
>
>
> --
> Leo Perard
> _______________________________________________
> Moose-dev mailing list
> Moose-dev(a)iam.unibe.ch
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
_______________________________________________
Moose-dev mailing list
Moose-dev(a)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(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
6:43 p.m.
It does work. Maybe you need to update Roassal.
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
On Apr 22, 2014, at 12:38 PM, Johan Fabry <jfabry(a)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(a)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(a)me.com> wrote:
---> 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(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev 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(a)dcc.uchile.cl> wrote:
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
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(a)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(a)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(a)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.34054…
>>
>> Cheers,
>> Alexandre
>>
>> --
>> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
>> Alexandre Bergel http://www.bergel.eu
>> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>>
>>
>>
>>
>> _______________________________________________
>> Moose-dev mailing list
>> Moose-dev(a)iam.unibe.ch
>> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>>
>>
>>
>>
>> --
>> Leo Perard
>> _______________________________________________
>> Moose-dev mailing list
>> Moose-dev(a)iam.unibe.ch
>> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>
> --
> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
> Alexandre Bergel http://www.bergel.eu
> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>
>
>
> _______________________________________________
> Moose-dev mailing list
> Moose-dev(a)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(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
8:17 p.m.
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(a)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(a)dcc.uchile.cl> wrote:
---> Save our in-boxes! http://emailcharter.org <---
Johan Fabry - http://pleiad.cl/~jfabry
PLEIAD lab - Computer Science Department (DCC) - University of Chile
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(a)me.com> wrote:
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev 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(a)me.com> wrote:
---> 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(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev 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(a)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(a)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(a)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(a)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.34054…
>>>
>>> Cheers,
>>> Alexandre
>>>
>>> --
>>> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
>>> Alexandre Bergel http://www.bergel.eu
>>> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>>>
>>>
>>>
>>>
>>> _______________________________________________
>>> Moose-dev mailing list
>>> Moose-dev(a)iam.unibe.ch
>>> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>>>
>>>
>>>
>>>
>>> --
>>> Leo Perard
>>> _______________________________________________
>>> Moose-dev mailing list
>>> Moose-dev(a)iam.unibe.ch
>>> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>>
>> --
>> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
>> Alexandre Bergel http://www.bergel.eu
>> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>>
>>
>>
>> _______________________________________________
>> Moose-dev mailing list
>> Moose-dev(a)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(a)iam.unibe.ch
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
8:28 p.m.
I have two questions:
- why are you using "view open" when in the playground?
- and what fonts are those?
:)
Doru
On Tue, Apr 22, 2014 at 6:43 PM, Alexandre Bergel
<alexandre.bergel(a)me.com>wrote;wrote:
It does work. Maybe you need to update Roassal.
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
On Apr 22, 2014, at 12:38 PM, Johan Fabry <jfabry(a)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(a)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(a)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(a)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(a)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(a)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(a)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.34054…
type=1&theater
Cheers,
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
Leo Perard
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
_______________________________________________
Moose-dev mailing list
Moose-dev(a)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(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
_______________________________________________
Moose-dev mailing list
Moose-dev(a)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(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
www.tudorgirba.com
"Every thing has its own flow"
9:03 p.m.
No particular reason for the "view open”. I usually never write it, but since some
people told me “you forgot to open the view”. Well…
Helvetica Regular 12 :-)
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
On Apr 22, 2014, at 3:28 PM, Tudor Girba <tudor(a)tudorgirba.com> wrote:
I have two questions:
- why are you using "view open" when in the playground?
- and what fonts are those?
:)
Doru
On Tue, Apr 22, 2014 at 6:43 PM, Alexandre Bergel <alexandre.bergel(a)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(a)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(a)me.com> wrote:
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
www.tudorgirba.com
"Every thing has its own flow"
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev 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(a)me.com> wrote:
---> 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(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev 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(a)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(a)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(a)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(a)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.34054…
>>>
>>> Cheers,
>>> Alexandre
>>>
>>> --
>>> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
>>> Alexandre Bergel http://www.bergel.eu
>>> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>>>
>>>
>>>
>>>
>>> _______________________________________________
>>> Moose-dev mailing list
>>> Moose-dev(a)iam.unibe.ch
>>> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>>>
>>>
>>>
>>>
>>> --
>>> Leo Perard
>>> _______________________________________________
>>> Moose-dev mailing list
>>> Moose-dev(a)iam.unibe.ch
>>> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>>
>> --
>> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
>> Alexandre Bergel http://www.bergel.eu
>> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>>
>>
>>
>> _______________________________________________
>> Moose-dev mailing list
>> Moose-dev(a)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(a)iam.unibe.ch
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
23 Apr
23 Apr
1:55 p.m.
Hi,
Hmm, that font does not seem to work well at least with the title of the
window. The title is too small and the text looks squeezed in.
You do not like the Source Sans/Code fonts?
Doru
On Tue, Apr 22, 2014 at 9:03 PM, Alexandre Bergel
<alexandre.bergel(a)me.com>wrote;wrote:
No particular reason for the "view open”. I
usually never write it, but
since some people told me “you forgot to open the view”. Well…
Helvetica Regular 12 :-)
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
On Apr 22, 2014, at 3:28 PM, Tudor Girba <tudor(a)tudorgirba.com> wrote:
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
www.tudorgirba.com
"Every thing has its own flow"
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
www.tudorgirba.com
"Every thing has its own flow"
I have two questions:
- why are you using "view open" when in the playground?
- and what fonts are those?
:)
Doru
On Tue, Apr 22, 2014 at 6:43 PM, Alexandre Bergel <
alexandre.bergel(a)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(a)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(a)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(a)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(a)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(a)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(a)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(a)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.34054…
>>>>>>
>>>>>> Cheers,
>>>>>> Alexandre
>>>>>>
>>>>>> --
>>>>>> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
>>>>>> Alexandre Bergel http://www.bergel.eu
>>>>>> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>> _______________________________________________
>>>>>> Moose-dev mailing list
>>>>>> Moose-dev(a)iam.unibe.ch
>>>>>> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>> --
>>>>>> Leo Perard
>>>>>> _______________________________________________
>>>>>> Moose-dev mailing list
>>>>>> Moose-dev(a)iam.unibe.ch
>>>>>> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>>>>>
>>>>> --
>>>>> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
>>>>> Alexandre Bergel http://www.bergel.eu
>>>>> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>>>>>
>>>>>
>>>>>
>>>>> _______________________________________________
>>>>> Moose-dev mailing list
>>>>> Moose-dev(a)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(a)iam.unibe.ch
>> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>
_______________________________________________
Moose-dev mailing list
Moose-dev(a)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(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
4:43 p.m.
Hmm, that font does not seem to work well at least
with the title of the window. The title is too small and the text looks squeezed in.
You do not like the Source Sans/Code fonts?
I like them, and I am quite happy. I do not remember why I had to change the font
actually. This is my throw-away image :-)
Alexandre
On Tue, Apr 22, 2014 at 9:03 PM, Alexandre Bergel <alexandre.bergel(a)me.com> wrote:
No particular reason for the "view open”. I usually never write it, but since some
people told me “you forgot to open the view”. Well…
Helvetica Regular 12 :-)
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
On Apr 22, 2014, at 3:28 PM, Tudor Girba <tudor(a)tudorgirba.com> wrote:
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
I have two questions:
- why are you using "view open" when in the playground?
- and what fonts are those?
:)
Doru
On Tue, Apr 22, 2014 at 6:43 PM, Alexandre Bergel <alexandre.bergel(a)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(a)dcc.uchile.cl> wrote:
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
www.tudorgirba.com
"Every thing has its own flow"
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev 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(a)me.com> wrote:
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
www.tudorgirba.com
"Every thing has its own flow"
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev 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(a)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(a)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(a)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(a)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(a)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.34054…
>>>>
>>>> Cheers,
>>>> Alexandre
>>>>
>>>> --
>>>> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
>>>> Alexandre Bergel http://www.bergel.eu
>>>> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>>>>
>>>>
>>>>
>>>>
>>>> _______________________________________________
>>>> Moose-dev mailing list
>>>> Moose-dev(a)iam.unibe.ch
>>>> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>>>>
>>>>
>>>>
>>>>
>>>> --
>>>> Leo Perard
>>>> _______________________________________________
>>>> Moose-dev mailing list
>>>> Moose-dev(a)iam.unibe.ch
>>>> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>>>
>>> --
>>> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
>>> Alexandre Bergel http://www.bergel.eu
>>> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>>>
>>>
>>>
>>> _______________________________________________
>>> Moose-dev mailing list
>>> Moose-dev(a)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(a)iam.unibe.ch
>> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>
_______________________________________________
Moose-dev mailing list
Moose-dev(a)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(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
3659
days inactive
3662
days old
18 comments
6 participants
participants (6)
-
Alexandre Bergel -
Daniel Aviv Notario -
Johan Fabry -
Leo Perard -
Pablo Estefó -
Tudor Girba