The macro
define-menu
defines a function called
function-name
with a single argument
self
that will make a menu. The parameters
title
,
menu-body
and
menu-options
take the same form as the
:menus
section of define-interface.
(capi:define-menu make-test-menu (self)
"Test"
("Item1"
"Item2"
(:component
("Item3"
"Item4")
:interaction :single-selection)
(:menu
("Item5"
"Item6")
:title "More Items")))
(setq interface (make-instance 'capi:interface))
(setf (capi:interface-menu-bar-items interface)
(list (make-test-menu interface)))
(capi:display interface)