Button with icon and text that matches parent extent

[tinchodias]

How do you recommend to build a button like this in morphic?

I started with an example in ToSandbox, with a ToButton, but I think I should use ToGeneralButton. Am I right?

but := ToButton new.
but label: 
    ((ToLabel text: 'Make something cool happen')
        matchParent;
        alignCenterLeft;
        yourself).
but icon: 
    ((ToImage inner: (self iconNamed: #remove))
        matchParent;
        layoutDo: [ :l |
            l verticalAlignment: BlElementAlignment vertical center.
            l horizontalAlignment: BlElementAlignment horizontal end ];
    yourself).
but matchParent.

space := OBlSpace new.
space root addChild: but.
space show 

[plantec]

Yes, a ToButton is more for vFitContent. Have a look at this example:

example_toBasicButton2

| but lab |
lab := ToLabel new text:
           (('Button' asRopedText)
                fontSize: 40;
                yourself).
but := ToGeneralButton new dresser: ToGeneralButtonDresser new.
but matchParent.
but addChild: lab.
but layout alignCenter.
but whenClickedDo: [ self inform: 'clicked' ].
but openInOBlSpace 

[plantec]

but it should be possible with a ToButton. I will have a look and push a fixe if it is an issue

[plantec]

with a ToGeneralButton:

example_toBasicButton4

| but lab ico pane |
pane := ToPane new.
pane fitContent.
pane layout alignCenter.
lab := ToLabel new text: 'Button'.
ico := ToImage inner: (self iconNamed: #remove).
pane addChildren: { lab. ico }.
but := ToGeneralButton new dresser: ToGeneralButtonDresser new.
but matchParent.
but addChild: pane.
but layout alignCenter.
but whenClickedDo: [ self inform: 'clicked' ].
but openInOBlSpace 

[tinchodias]

Many thanks!