
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)