[Moose-dev] Re: Roassal: Locate a legend text below a line

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