anchor.diff:                                   :width x2
                                    :height y2
                                    :resize-frame t)))
  -  (accept presentation-type :stream menu :prompt nil))+  (handler-case
  +      (with-input-context (presentation-type :override t)
  +            (object type event)
  +          (loop
  +             (read-gesture :stream menu))
  +        (t (values object event)))
  +    (abort-gesture () (values nil))))
  
positive.code:     (apply #'frame-manager-menu-choose frame-manager items args)))
  
  (defmethod frame-manager-menu-choose
      (frame-manager items                ; XXX STANDARD-FRAME-MANAGER
       &key associated-window printer presentation-type
       (default-item nil default-item-p)
       text-style label cache unique-id id-test cache-value cache-test
       max-width max-height n-rows n-columns x-spacing y-spacing row-wise
       cell-align-x cell-align-y scroll-bars pointer-documentation)
    (with-menu (menu)
      (menu-choose-from-drawer menu (or presentation-type 'menu-item)
                               (lambda (stream type)
                                 (draw-standard-menu stream type items
                                                     (if default-item-p
                                                         default-item
                                                         (first items))))
                               )))
  
  (defmethod menu-choose-from-drawer
      (menu presentation-type drawer
  
negative.code:       nil))
  
  (defun print-menu-item (menu-item &optional (stream *standard-output*))
    (let ((style (getf (menu-item-options menu-item) :style '(nil nil nil))))
      (with-text-style (stream style)
        (princ (menu-item-display menu-item) stream))))
  
  (defun draw-standard-menu
      (stream presentation-type items default-item
       &key item-printer
       max-width max-height n-rows n-columns x-spacing y-spacing row-wise
       cell-align-x cell-align-y)
    (declare (ignore default-item max-width max-height n-rows n-columns
                     row-wise)) ; FIXME!!!
    (orf item-printer #'print-menu-item)
    (format-items items
                  :stream stream
                  :printer item-printer
                  :presentation-type presentation-type
                  :x-spacing x-spacing
                  :y-spacing y-spacing
                  :cell-align-x cell-align-x
                  :cell-align-y (or cell-align-y :top)
                  :row-wise nil))
  
  
  (defmacro with-menu ((menu &optional associated-window
  