16 Sep
2016
16 Sep
'16
3:50 p.m.
Yes!
Alexandre
On Sep 15, 2016, at 5:16 PM, Cris Fuhrman
<fuhrmanator(a)gmail.com> wrote:
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
<mailto:alexandre.bergel@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 <mailto:fuhrmanator@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
<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 <mailto:Moose-dev@list.inf.unibe.ch>
https://www.list.inf.unibe.ch/listinfo/moose-dev
<https://www.list.inf.unibe.ch/listinfo/moose-dev>
_______________________________________________
Moose-dev mailing list
Moose-dev(a)list.inf.unibe.ch <mailto:Moose-dev@list.inf.unibe.ch>
https://www.list.inf.unibe.ch/listinfo/moose-dev
<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