(new switchable-button%   [label label]       [callback callback]       [bitmap bitmap]      [ [alternate-bitmap alternate-bitmap]       [vertical-tight? vertical-tight?]]       ...superclass-args...)

→ (is-a?/c switchable-button%)

label : string?

callback : (-> (is-a?/c switchable-button%) any/c)

bitmap : (is-a?/c bitmap%)

alternate-bitmap : (is-a?/c bitmap%) = bitmap

vertical-tight? : boolean? = #f

The callback is called when the button is pressed. The string and bitmap are used as discussed above.

If alternate-bitmap is supplied, then it is used when the button is switched to the view that just shows the bitmap. If it is not supplied, both modes show the same bitmap.

If the vertical-tight? argument is #t, then the button takes up as little as possible vertical space.

(send a-switchable-button set-label-visible visible?) → void?

visible? : boolean?

Sets the visibility of the string part of the label.

(send a-switchable-button command) → void?

Calls the button’s callback function.

(send a-switchable-button get-button-label) → string?

Returns the label of this button.