15 Sep
2016
15 Sep
'16
10:16 p.m.
Indeed, much cleaner.
Your code also made it clear to me that I was wrongly making a new shape
each time I added an element to the view (I'm guessing this makes a big
deal in some of my bigger models).
Here's what I came up with in my context:
~~~~~~~~~~~~~~~~~~~~~
| v boxedTextShape boxedTextElement classA classB |
classA := FAMIXType new name:'Façade'.
classB := FAMIXType new name:'BridgeOfSighs'.
v := RTView new.
boxedTextShape := RTCompositeShape new.
boxedTextShape add: (RTBox new color: Color blue).
boxedTextShape add: (RTLabel new text:#name; color: Color white).
boxedTextShape allOfSameSizeWithPadding.
boxedTextElement := boxedTextShape elementOn: classA.
boxedTextElement @ RTDraggable.
v add: boxedTextElement.
boxedTextElement := boxedTextShape elementOn: classB.
boxedTextElement @ RTDraggable.
v add: boxedTextElement.
RTGridLayout on: v elements.
v
~~~~~~~~~~~~~~~~~~~~~~~~
On Thu, Sep 15, 2016 at 11:39 AM, Alexandre Bergel <alexandre.bergel(a)me.com>
wrote:
Hi Cris,
You are right. The examples you provide are a bit hacky. The standard way
in Roassal is to use composite shapes.
Try this:
-=-=-=-=-=-=-=-=-=-=-=-=
v := RTView new.
boxShape := RTBox new color: Color veryLightGray.
labelShape := RTLabel new text: #name.
composite := RTCompositeShape new.
composite add: boxShape.
composite add: labelShape.
composite allOfSameSizeWithPadding.
elements := composite elementsOn: (Collection withAllSubclasses copyFrom:
1 to: 5).
v addAll: elements.
elements when: TRMouseClick do: [ :evt |
evt element model: Collection withAllSubclasses atRandom.
evt element update.
RTGridLayout on: elements. ].
RTGridLayout on: elements.
v
-=-=-=-=-=-=-=-=-=-=-=-=
The code I provide defines a callback that changes the label. You can see
how to adapt it.
Let us know how it goes.
Cheers,
Alexandre
On Sep 15, 2016, at 12:10 PM, Cris Fuhrman <fuhrmanator(a)gmail.com> wrote:
Hello,
I'd like to visualize a graph where the nodes are boxes and they have text
inside. The boxes should grow or shrink horizontally so the text doesn't go
outside the box.
I saw the answer at http://forum.world.st/Roassal2-Label-width-
td4847887.html which led me to a solution. However, I've commented the
"not robust" part below, since it's passing by "lbl" which I
suspect could
change.
~~~~~~~~~~~~~~~~
| b label el |
b := RTView new.
el := RTBox new elementOn: 'hello world'.
label := RTLabeled new center.
b add: el.
el @ label.
"not robust"
el width: label lbl width.
el height: label lbl height.
b
~~~~~~~~~~~~~~~~~~~~~~
<image.png>
I found the unit tests for RTLabel (RTLabelTest) and I found another
solution, but maybe it's equally fragile?
~~~~~~~~~~~~~~~~~~~~~~~~~
| text b lblBox lblForCalc dummyElement |
text := 'Text inside the box'.
b := RTView new.
lblBox := (RTBox new elementOn: text) + RTLabel.
lblForCalc := RTLabel new text: text.
dummyElement := RTElement new.
lblBox height: (lblForCalc heightFor: dummyElement).
lblBox width: (lblForCalc widthFor: dummyElement).
b add: lblBox.
b
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
<image.png>
I'd love to get some feedback on these approaches. Maybe there's a simpler
robust way? Thanks!
_______________________________________________
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