> On Feb 20, 2017, at 4:54 PM, Hernán Morales Durand <[hidden email]> wrote:
>
> Alex, my output looks different, maybe you changed something?
>
>
>
> 2017-02-20 16:08 GMT-03:00 Alexandre Bergel <[hidden email]>:
> 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 <[hidden email]> 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 <[hidden email]>:
>> 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
>> [hidden email]
>> https://www.list.inf.unibe.ch/listinfo/moose-dev
>>
>>
>> _______________________________________________
>> Moose-dev mailing list
>> [hidden email]
>> https://www.list.inf.unibe.ch/listinfo/moose-dev
>
> --
> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
> Alexandre Bergel  http://www.bergel.eu
> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>
>
>
>
> _______________________________________________
> Moose-dev mailing list
> [hidden email]
> https://www.list.inf.unibe.ch/listinfo/moose-dev
>
>
> <MHC_Class_range.png>_______________________________________________
> Moose-dev mailing list
> [hidden email]
> https://www.list.inf.unibe.ch/listinfo/moose-dev