20 Feb
2017
20 Feb
'17
5:51 a.m.
Hi everybody,
I have this complicated code to draw a line with separators at both ends, I
try to put the legend text with #below but nothing is changed :
| view e1 e2 l1 label |
view := RTView new.
label := RTLabeled new
color: Color black;
below;
text: 'Class IIa';
yourself.
e1 := RTBox new element
color: Color black;
height: 10;
width: 1;
yourself.
e2 := RTBox new element
color: Color black;
height: 10;
width: 1;
yourself.
l1 := RTStyledMultiLine new
color: Color black;
solidLine;
edgeFrom: e1 to: e2.
view addAll: (Array with: e1 with: e2 with: l1).
l1 @ label.
RTHorizontalLineLayout new on: view elements.
view elements pairsDo: [ :a :b | b translateBy: 100 @ 0 ].
^ view
Any suggestion?
Hernán
20 Feb
20 Feb
6:48 p.m.
Hi Hernán
Can you try this piece of code:
.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=
| view box e1 e2 l1 label anchor |
view := RTView new.
label := RTLabel new elementOn: 'Class IIa'.
box := RTBox new
color: Color black;
height: 10;
width: 1.
e1 := box element @ RTDraggable.
e2 := box element @ RTDraggable.
l1 := RTStyledMultiLine new
color: Color black;
solidLine;
edgeFrom: e1 to: e2.
view addAll: (Array with: e1 with: e2 with: l1 with: label).
anchor := RTAnchorConstraint new
element: label;
edge: l1;
balance: 0.5;
minDistance: -2;
build.
RTHorizontalLineLayout new on: view elements.
view elements pairsDo: [ :a :b | b translateBy: 100 @ 0 ].
^ view
.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=
Cheers,
Milton
2017-02-20 1:51 GMT-03:00 Hernán Morales Durand <hernan.morales(a)gmail.com>om>:
Hi everybody,
I have this complicated code to draw a line with separators at both ends,
I try to put the legend text with #below but nothing is changed :
| view e1 e2 l1 label |
view := RTView new.
label := RTLabeled new
color: Color black;
below;
text: 'Class IIa';
yourself.
e1 := RTBox new element
color: Color black;
height: 10;
width: 1;
yourself.
e2 := RTBox new element
color: Color black;
height: 10;
width: 1;
yourself.
l1 := RTStyledMultiLine new
color: Color black;
solidLine;
edgeFrom: e1 to: e2.
view addAll: (Array with: e1 with: e2 with: l1).
l1 @ label.
RTHorizontalLineLayout new on: view elements.
view elements pairsDo: [ :a :b | b translateBy: 100 @ 0 ].
^ view
Any suggestion?
Hernán
_______________________________________________
Moose-dev mailing list
Moose-dev(a)list.inf.unibe.ch
https://www.list.inf.unibe.ch/listinfo/moose-dev
7:12 p.m.
It works nicely!
Thank you Milton.
Cheers,
Hernan
2017-02-20 14:48 GMT-03:00 milton mamani <akevalion(a)gmail.com>om>:
Hi Hernán
Can you try this piece of code:
.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=
| view box e1 e2 l1 label anchor |
view := RTView new.
label := RTLabel new elementOn: 'Class IIa'.
box := RTBox new
color: Color black;
height: 10;
width: 1.
e1 := box element @ RTDraggable.
e2 := box element @ RTDraggable.
l1 := RTStyledMultiLine new
color: Color black;
solidLine;
edgeFrom: e1 to: e2.
view addAll: (Array with: e1 with: e2 with: l1 with: label).
anchor := RTAnchorConstraint new
element: label;
edge: l1;
balance: 0.5;
minDistance: -2;
build.
RTHorizontalLineLayout new on: view elements.
view elements pairsDo: [ :a :b | b translateBy: 100 @ 0 ].
^ view
.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=
Cheers,
Milton
2017-02-20 1:51 GMT-03:00 Hernán Morales Durand <hernan.morales(a)gmail.com>
:
Hi everybody,
I have this complicated code to draw a line with separators at both ends,
I try to put the legend text with #below but nothing is changed :
| view e1 e2 l1 label |
view := RTView new.
label := RTLabeled new
color: Color black;
below;
text: 'Class IIa';
yourself.
e1 := RTBox new element
color: Color black;
height: 10;
width: 1;
yourself.
e2 := RTBox new element
color: Color black;
height: 10;
width: 1;
yourself.
l1 := RTStyledMultiLine new
color: Color black;
solidLine;
edgeFrom: e1 to: e2.
view addAll: (Array with: e1 with: e2 with: l1).
l1 @ label.
RTHorizontalLineLayout new on: view elements.
view elements pairsDo: [ :a :b | b translateBy: 100 @ 0 ].
^ view
Any suggestion?
Hernán
_______________________________________________
Moose-dev mailing list
Moose-dev(a)list.inf.unibe.ch
https://www.list.inf.unibe.ch/listinfo/moose-dev
_______________________________________________
Moose-dev mailing list
Moose-dev(a)list.inf.unibe.ch
https://www.list.inf.unibe.ch/listinfo/moose-dev
8:08 p.m.
Here is the screenshot to see what it looks like :-)
On Feb 20, 2017, at 2:48 PM, milton mamani
<akevalion(a)gmail.com> wrote:
Hi Hernán
Can you try this piece of code:
.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=
| view box e1 e2 l1 label anchor |
view := RTView new.
label := RTLabel new elementOn: 'Class IIa'.
box := RTBox new
color: Color black;
height: 10;
width: 1.
e1 := box element @ RTDraggable.
e2 := box element @ RTDraggable.
l1 := RTStyledMultiLine new
color: Color black;
solidLine;
edgeFrom: e1 to: e2.
view addAll: (Array with: e1 with: e2 with: l1 with: label).
anchor := RTAnchorConstraint new
element: label;
edge: l1;
balance: 0.5;
minDistance: -2;
build.
RTHorizontalLineLayout new on: view elements.
view elements pairsDo: [ :a :b | b translateBy: 100 @ 0 ].
^ view
.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=
Cheers,
Milton
2017-02-20 1:51 GMT-03:00 Hernán Morales Durand <hernan.morales(a)gmail.com>om>:
Hi everybody,
I have this complicated code to draw a line with separators at both ends, I try to put
the legend text with #below but nothing is changed :
| view e1 e2 l1 label |
view := RTView new.
label := RTLabeled new
color: Color black;
below;
text: 'Class IIa';
yourself.
e1 := RTBox new element
color: Color black;
height: 10;
width: 1;
yourself.
e2 := RTBox new element
color: Color black;
height: 10;
width: 1;
yourself.
l1 := RTStyledMultiLine new
color: Color black;
solidLine;
edgeFrom: e1 to: e2.
view addAll: (Array with: e1 with: e2 with: l1).
l1 @ label.
RTHorizontalLineLayout new on: view elements.
view elements pairsDo: [ :a :b | b translateBy: 100 @ 0 ].
^ view
Any suggestion?
Hernán
_______________________________________________
Moose-dev mailing list
Moose-dev(a)list.inf.unibe.ch
https://www.list.inf.unibe.ch/listinfo/moose-dev
_______________________________________________
Moose-dev mailing list
Moose-dev(a)list.inf.unibe.ch
https://www.list.inf.unibe.ch/listinfo/moose-dev
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
8:54 p.m.
Alex, my output looks different, maybe you changed something?
2017-02-20 16:08 GMT-03:00 Alexandre Bergel <alexandre.bergel(a)me.com>om>:
Here is the screenshot to see what it looks like :-)
On Feb 20, 2017, at 2:48 PM, milton mamani <akevalion(a)gmail.com> wrote:
Hi Hernán
Can you try this piece of code:
.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=
| view box e1 e2 l1 label anchor |
view := RTView new.
label := RTLabel new elementOn: 'Class IIa'.
box := RTBox new
color: Color black;
height: 10;
width: 1.
e1 := box element @ RTDraggable.
e2 := box element @ RTDraggable.
l1 := RTStyledMultiLine new
color: Color black;
solidLine;
edgeFrom: e1 to: e2.
view addAll: (Array with: e1 with: e2 with: l1 with: label).
anchor := RTAnchorConstraint new
element: label;
edge: l1;
balance: 0.5;
minDistance: -2;
build.
RTHorizontalLineLayout new on: view elements.
view elements pairsDo: [ :a :b | b translateBy: 100 @ 0 ].
^ view
.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=
Cheers,
Milton
2017-02-20 1:51 GMT-03:00 Hernán Morales Durand <hernan.morales(a)gmail.com
:
Hi everybody,
I have this complicated code to draw a line with separators at both ends,
I try to put the legend text with #below but nothing is changed :
| view e1 e2 l1 label |
view := RTView new.
label := RTLabeled new
color: Color black;
below;
text: 'Class IIa';
yourself.
e1 := RTBox new element
color: Color black;
height: 10;
width: 1;
yourself.
e2 := RTBox new element
color: Color black;
height: 10;
width: 1;
yourself.
l1 := RTStyledMultiLine new
color: Color black;
solidLine;
edgeFrom: e1 to: e2.
view addAll: (Array with: e1 with: e2 with: l1).
l1 @ label.
RTHorizontalLineLayout new on: view elements.
view elements pairsDo: [ :a :b | b translateBy: 100 @ 0 ].
^ view
Any suggestion?
Hernán
_______________________________________________
Moose-dev mailing list
Moose-dev(a)list.inf.unibe.ch
https://www.list.inf.unibe.ch/listinfo/moose-dev
_______________________________________________
Moose-dev mailing list
Moose-dev(a)list.inf.unibe.ch
https://www.list.inf.unibe.ch/listinfo/moose-dev
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
_______________________________________________
Moose-dev mailing list
Moose-dev(a)list.inf.unibe.ch
https://www.list.inf.unibe.ch/listinfo/moose-dev
21 Feb
21 Feb
2:14 p.m.
I drag and dropped one extremity.
Alexandre
On Feb 20, 2017, at 4:54 PM, Hernán Morales Durand
<hernan.morales(a)gmail.com> wrote:
Alex, my output looks different, maybe you changed something?
2017-02-20 16:08 GMT-03:00 Alexandre Bergel <alexandre.bergel(a)me.com>om>:
Here is the screenshot to see what it looks like :-)
<Screen Shot 2017-02-20 at 4.07.40 PM.png>
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
On Feb 20, 2017, at 2:48 PM, milton mamani
<akevalion(a)gmail.com> wrote:
Hi Hernán
Can you try this piece of code:
.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=
| view box e1 e2 l1 label anchor |
view := RTView new.
label := RTLabel new elementOn: 'Class IIa'.
box := RTBox new
color: Color black;
height: 10;
width: 1.
e1 := box element @ RTDraggable.
e2 := box element @ RTDraggable.
l1 := RTStyledMultiLine new
color: Color black;
solidLine;
edgeFrom: e1 to: e2.
view addAll: (Array with: e1 with: e2 with: l1 with: label).
anchor := RTAnchorConstraint new
element: label;
edge: l1;
balance: 0.5;
minDistance: -2;
build.
RTHorizontalLineLayout new on: view elements.
view elements pairsDo: [ :a :b | b translateBy: 100 @ 0 ].
^ view
.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=
Cheers,
Milton
2017-02-20 1:51 GMT-03:00 Hernán Morales Durand <hernan.morales(a)gmail.com>om>:
Hi everybody,
I have this complicated code to draw a line with separators at both ends, I try to put
the legend text with #below but nothing is changed :
| view e1 e2 l1 label |
view := RTView new.
label := RTLabeled new
color: Color black;
below;
text: 'Class IIa';
yourself.
e1 := RTBox new element
color: Color black;
height: 10;
width: 1;
yourself.
e2 := RTBox new element
color: Color black;
height: 10;
width: 1;
yourself.
l1 := RTStyledMultiLine new
color: Color black;
solidLine;
edgeFrom: e1 to: e2.
view addAll: (Array with: e1 with: e2 with: l1).
l1 @ label.
RTHorizontalLineLayout new on: view elements.
view elements pairsDo: [ :a :b | b translateBy: 100 @ 0 ].
^ view
Any suggestion?
Hernán
_______________________________________________
Moose-dev mailing list
Moose-dev(a)list.inf.unibe.ch
https://www.list.inf.unibe.ch/listinfo/moose-dev
_______________________________________________
Moose-dev mailing list
Moose-dev(a)list.inf.unibe.ch
https://www.list.inf.unibe.ch/listinfo/moose-dev
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
_______________________________________________
Moose-dev mailing list
Moose-dev(a)list.inf.unibe.ch
https://www.list.inf.unibe.ch/listinfo/moose-dev
<MHC_Class_range.png>_______________________________________________
Moose-dev mailing list
Moose-dev(a)list.inf.unibe.ch
https://www.list.inf.unibe.ch/listinfo/moose-dev
2615
days inactive
2616
days old
5 comments
3 participants
participants (3)
-
Alexandre Bergel -
Hernán Morales Durand -
milton mamani