anchor.diff:        ;;
         ;; XXX Assumes x y from :button-release are the same as for the preceding
         ;; button-motion; is that correct?
  -      (when feedback-activated
  -	(do-feedback (last-window) (last-x) (last-y) :unhighlight))
  -      (when last-presentation
  -	(do-hilite last-presentation (last-window) :unhighlight))
  +      (multiple-value-call #'do-feedback (last-point) :unhighlight)
  +      (do-hilite last-presentation (last-point) :unhighlight)
  +
         (if destination-presentation
  -	  (let ((final-translator (find-dest-translator destination-presentation
  -							(last-window)
  -							(last-x)
  -							(last-y))))
  +	  (let ((final-translator (multiple-value-call #'find-dest-translator
  +                                    destination-presentation (last-point))))
   	    (if final-translator
   		(funcall (destination-translator final-translator)
   			 *dragged-object*
  
positive.code: 	  (:presentation (&key presentation window event x y)
  	    (let ((dest-translator (find-dest-translator presentation window
  							 x y)))
  	      (when feedback-activated
  		(do-feedback (last-window) (last-x) (last-y) :unhighlight))
  	      (setq feedback-activated t
  		    last-event event)
  	      (when last-presentation
  		(do-hilite last-presentation (last-window) :unhighlight))
  	      (setq last-presentation presentation
  		    feedback-fn (feedback dest-translator)
  		    hilite-fn (highlighting dest-translator))
  	      (do-hilite presentation window :highlight)
  	      (do-feedback window x y :highlight)
  	      (document-drag-n-drop dest-translator presentation
  				    context-type frame event window
  				    x y)))
  	  (:pointer-motion (&key event window x y)
  	    (when feedback-activated
  	      (do-feedback (last-window) (last-x) (last-y) :unhighlight))
  	    (setq feedback-activated t
  		  last-event event)
  	    (when last-presentation
  	      (do-hilite last-presentation (last-window) :unhighlight))
  	    (setq last-presentation nil)
  	    (do-feedback window x y :highlight)
  	    (document-drag-n-drop translator nil
  
negative.code: 		     :reader frame-top-level-lambda)
     (hilited-presentation :initform nil
  			 :initarg :hilited-presentation
  			 :accessor frame-hilited-presentation)
     (process :accessor frame-process :initform nil)
     (client-settings :accessor client-settings :initform nil)
     (event-queue :initarg :frame-event-queue
  