anchor.diff:    (with-room-for-graphics (menu :first-quadrant nil)
       (funcall drawer menu presentation-type))
   
  -  (adjust-menu-size-and-position
  -   menu
  -   :x-position x-position
  -   :y-position y-position)
  +  (adjust-menu-size-and-position menu :x-position x-position
  +                                      :y-position y-position)
     ;; The menu is enabled (make visible) after the size is adjusted.
     (enable-menu menu)
     (let ((*pointer-documentation-output* pointer-documentation))
  -    (let ((*pointer-documentation-output* pointer-documentation))
  -      (handler-case
  -          (with-input-context (`(or ,presentation-type blank-area) :override t)
  -              (object type event)
  -              (prog1 nil (loop (read-gesture :stream menu)))
  -            (blank-area nil)
  -            (t (values object event)))
  -        (abort-gesture () nil)))))
  +    (handler-case
  +        (with-input-context (`(or ,presentation-type blank-area) :override t)
  +            (object type event)
  +            (prog1 nil (loop (read-gesture :stream menu)))
  +          (blank-area nil)
  +          (t (values object event)))
  +      (abort-gesture () nil))))
  
positive.code:       (let* ((menu-stream (make-pane-1 fm associated-frame 'menu-pane))
               (container (scrolling (:scroll-bar scroll-bars)
                            menu-stream))
  	     (frame (make-menu-frame (raising ()
  				       (if label
  					   (labelling (:label label
  						       :name 'label
  						       :label-alignment :top)
  					     container)
  					   container))
  				     :left nil
  				     :top nil)))
          (adopt-frame fm frame)
  	(setf (slot-value menu-stream 'menu-frame) frame)
          (unwind-protect
               (progn
                 (setf (stream-end-of-line-action menu-stream) :allow
  
negative.code:                          ,scroll-bars))))
  
  (defun invoke-with-menu (continuation associated-window deexpose
                           label scroll-bars)
    (let* ((associated-frame (if associated-window
                                 (pane-frame associated-window)
                                 *application-frame*))
  