[Moose-dev] Robust way to fit RTBox around variable text

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: 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 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ [image: Inline image 2] I'd love to get some feedback on these approaches. Maybe there's a simpler robust way? Thanks!