anchor.diff:           (stream (make-pane-1 fm associated-window 'command-menu-pane))
            (frame (make-menu-frame stream)))
       (adopt-frame fm frame)
  -    (change-space-requirements stream :width 100 :height 100)
  +    (change-space-requirements stream :width 1 :height 1)
       (unwind-protect
            (progn
              (setf (stream-end-of-line-action stream) :allow
  
positive.code:       nil))
  
  (defun print-menu-item (menu-item &optional (stream *standard-output*))
    (princ (menu-item-display menu-item) stream))
  
  (defun draw-standard-menu
      (stream presentation-type items default-item
       &key (item-printer #'print-menu-item)
       max-width max-height n-rows n-columns x-spacing y-spacing row-wise
       (cell-align-x :left) (cell-align-y :top))
    (declare (ignore default-item max-width max-height n-rows n-columns
                     row-wise)) ; FIXME!!!
    (formatting-table (stream :x-spacing x-spacing
                              :y-spacing y-spacing)
      (dolist (item items)
        (formatting-row (stream)
          (formatting-cell (stream :align-x cell-align-x
                                   :align-y cell-align-y)
            (with-output-as-presentation (stream (menu-item-value item)
                                                 presentation-type)
              (funcall item-printer item stream)))))))
  
  
  (defmacro with-menu ((menu &optional associated-window
  
negative.code:                                  :width x2
                                   :height y2
                                   :resize-frame t)))
    (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))))
  