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
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@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@list.inf.unibe.ch https://www.list.inf.unibe.ch/listinfo/moose-dev
It works nicely! Thank you Milton.
Cheers,
Hernan
2017-02-20 14:48 GMT-03:00 milton mamani akevalion@gmail.com:
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@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@list.inf.unibe.ch https://www.list.inf.unibe.ch/listinfo/moose-dev
Moose-dev mailing list Moose-dev@list.inf.unibe.ch https://www.list.inf.unibe.ch/listinfo/moose-dev
Here is the screenshot to see what it looks like :-)
On Feb 20, 2017, at 2:48 PM, milton mamani akevalion@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@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@list.inf.unibe.ch https://www.list.inf.unibe.ch/listinfo/moose-dev
Moose-dev mailing list Moose-dev@list.inf.unibe.ch https://www.list.inf.unibe.ch/listinfo/moose-dev
Alex, my output looks different, maybe you changed something?
2017-02-20 16:08 GMT-03:00 Alexandre Bergel alexandre.bergel@me.com:
Here is the screenshot to see what it looks like :-)
On Feb 20, 2017, at 2:48 PM, milton mamani akevalion@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@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@list.inf.unibe.ch https://www.list.inf.unibe.ch/listinfo/moose-dev
Moose-dev mailing list Moose-dev@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@list.inf.unibe.ch https://www.list.inf.unibe.ch/listinfo/moose-dev
I drag and dropped one extremity.
Alexandre
On Feb 20, 2017, at 4:54 PM, Hernán Morales Durand hernan.morales@gmail.com wrote:
Alex, my output looks different, maybe you changed something?
2017-02-20 16:08 GMT-03:00 Alexandre Bergel alexandre.bergel@me.com: Here is the screenshot to see what it looks like :-) <Screen Shot 2017-02-20 at 4.07.40 PM.png>
On Feb 20, 2017, at 2:48 PM, milton mamani akevalion@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@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@list.inf.unibe.ch https://www.list.inf.unibe.ch/listinfo/moose-dev
Moose-dev mailing list Moose-dev@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@list.inf.unibe.ch https://www.list.inf.unibe.ch/listinfo/moose-dev
<MHC_Class_range.png>_______________________________________________ Moose-dev mailing list Moose-dev@list.inf.unibe.ch https://www.list.inf.unibe.ch/listinfo/moose-dev