3.5 Miscellaneous button elements

3.5.1 Push buttons

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)

These setf expansions enable and disable the button:

(setf (button-enabled offbutton) t)

(setf (button-enabled offbutton) nil)

All subclasses of thebutton class can be disabled in this way.

CAPI User Guide, Liquid Common Lisp Version 5.0 - 2 OCT 1997

Generated with Harlequin WebMaker