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
~~~~~~~~~~~~~~~~~~~~~~
Inline image 1

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
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Inline image 2

I'd love to get some feedback on these approaches. Maybe there's a simpler robust way? Thanks!