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)