anchor.diff:                  :presentation-type presentation-type
                   :x-spacing x-spacing
                   :y-spacing y-spacing
  +                :n-columns n-columns
  +                :n-rows n-rows
  +                :max-width max-width
  +                :max-height max-height
                   :cell-align-x cell-align-x
                   :cell-align-y (or cell-align-y :top)
  -                :row-wise nil))
  +                :row-wise row-wise))
   
   
   (defmacro with-menu ((menu &optional associated-window
  
positive.code:                                :row-wise row-wise
                                 :cell-align-x cell-align-x
                                 :cell-align-y cell-align-y)))
      (with-menu (menu)
        (when text-style
          (setf (medium-text-style menu) text-style))
        (multiple-value-bind (object event)
            (menu-choose-from-drawer menu (or presentation-type 'menu-item)
                                     #'drawer)
          ;; What is OBJECT? Assuming it is a menu item... - APD, 2002-08-03.
          (values (menu-item-value object) object event)))))
  
  
negative.code: ;;;
  (defmethod menu-choose
      (items &rest args &key associated-window &allow-other-keys)
    (let* ((associated-frame (if associated-window
                                 (pane-frame associated-window)
                                 *application-frame*))
           (frame-manager (frame-manager associated-frame)))
      (apply #'frame-manager-menu-choose frame-manager items args)))
  
  (defmethod frame-manager-menu-choose
  