You have already seen push buttons in earlier examples. The :enabled keyword can be used to specify whether or not the button should be selectable when it is displayed. This can be useful for disabling a button in certain situations.
The following code creates a push button which cannot be selected.
(setq offbutton (make-instance 'push-button
:data "Button"
:enabled nil))
(contain offbutton :process nil) These setf expansions enable and disable the button:
(setf (button-enabled offbutton) t) (setf (button-enabled offbutton) nil) All subclasses of the button class can be disabled in this way.