This example displays in the window *page-stream* the choices One through Ten in boldface type. When the user selects one, the string is returned along with the gesture that selected it.
(clim:menu-choose-from-drawer
*page-stream* 'string
#'(lambda (stream type)
(clim:with-text-face (:bold stream)
(dotimes (count 10)
(clim:present (string-capitalize
(format nil "~R" (1+ count)))
type :stream stream)
(terpri stream)))))
This example shows how you can use menu-choose-from-drawer with with-menu to create a temporary menu:
(defun choose-compass-direction (parent-window)
(labels
((draw-compass-point
(stream ptype symbol x y)
(clim:with-output-as-presentation
(:stream stream :object symbol :type ptype)
(clim:draw-string* stream
(symbol-name symbol) x y
:align-x :center
:align-y :center
:text-style
'(:sans-serif :roman :large))))
(draw-compass
(stream ptype)
(clim:draw-line* stream 0 25 0 -25 :line-thickness 2)
(clim:draw-line* stream 25 0 -25 0 :line-thickness 2)
(loop for point in '((n 0 -30) (s 0 30) (e 30 0)(w -30 0))
do (apply #'draw-compass-point
stream ptype point))))
(clim:with-menu (menu parent-window)
(clim:menu-choose-from-drawer menu 'clim:menu-item
#'draw-compass))))