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