(in-package :clim-user)

(define-application-frame test () ()
  (:panes (io :interactor))
  (:geometry :width 100 :height 50)
  (:pointer-documentation t)
  (:layouts (default io)))

(defun test ()
  (run-frame-top-level(make-application-frame'test)))

(define-test-command (com-boo :menu t :name t) ()
  (menu-choose
   (list (list "foo" :value :foo)
         (list "bar" :value :bar))
   :printer (lambda (item stream)
              (format *trace-output* "~&Printer called with ~S.~%" item)
              (princ item stream))))