The class option-pane
provides a pane which represents a choice between a number of different items, and which only displays the current one.
The class option-pane
inherits from choice
, and so has all of the standard choice behavior such as selection and callbacks. It also has an extra enabled
slot along with an accessor which is used to enable and disable the option pane.
(setq option-pane (capi:contain
(make-instance 'capi:option-pane
:items '(1 2 3 4 5)
:selected-item 3)
:process nil))
(setf (capi:choice-selected-item option-pane) 5)
(setf (capi:option-pane-enabled option-pane) nil)
(setf (capi:option-pane-enabled option-pane) t)