A push-button
is a pane that displays either a piece of text or a generic image and when it is pressed it performs an action.
The class push-button
inherits most of its behavior from button
. Note that it is normally best to use a push-button-panel
rather than make the individual buttons yourself, as the button panel provides functionality for handling groups of buttons. However, push buttons can be used if you need to have more control over the button's behavior.
(setq button (capi:contain
(make-instance
'capi:push-button
:text "Press Me"
:data '(:some :data)
:callback #'(lambda (data interface)
(capi:display-message
"Pressed ~S"
data)))
:process nil))
(setf (capi:button-enabled button) nil)
(setf (capi:button-enabled button) t)