Question : Image as a Button ?

[Enzo-Demeulenaere]

Hello, I'd like to have a button with an image and a text below and I tried something like this:

container := ToButton new layout: BlLinearLayout vertical;
    constraintsDo: [ :c | c horizontal fitContent. c vertical fitContent ].

background := (BlElement new background: Color purple; size: 200 asPoint).
label := BlTextElement new 
    text: 'test';
    constraintsDo: [ :c | c horizontal matchParent.
        c vertical matchParent ].

container addChild: label;
    addChild: background;
    openInSpace

to have something similar to this:

but with the ability to click on the purple. I know I could make my purple element as a button but I'd have 2 buttons available to click and I wanted to know If there's a possibility to make one and only button.

Thanks a lot

[plantec]

something like that ?

example_toButtonWithTextAndIconVertical

    | but space |
    but := ToButton new padding: (BlInsets all: 4); beVertical.
    but label: (ToLabel text: 'Button').
    but iconImage: (BlElement new
             size: 60 @ 20;
             background: (Color blue alpha: 0.2);
             yourself).
    but layout cellSpacing: 5.
    but whenClickedDo: [ :ann | but icon background: Color random ].
    space := BlSpace new.
    space root addChild: but.
    space show

[plantec]

if you want to fully manage the look, set the skin to nil.

but := ToButton new padding: (BlInsets all: 4); beVertical; withSkin: nil.```

[Enzo-Demeulenaere]

Oh that's exactly what I needed and I didn't even see this example :/

Thanks a lot