anchor.diff:                   :x x
                    :y y)
           (values nil nil)))))
  +
  +(defun test-drag-and-drop
  +    (translator presentation context-type frame event window x y)
  +  (let ((function (destination-tester translator)))
  +    (or (null function)
  +        (funcall function *dragged-object*
  +                 :presentation *dragged-presentation*
  +                 :destination-object (presentation-object presentation)
  +                 :destination-presentation presentation
  +                 :context-type context-type
  +                 :frame frame :event event :window window :x x :y y))))
   
   (defun document-drag-n-drop
       (translator presentation context-type frame event window x y)
  
positive.code:    (feedback :reader feedback :initarg :feedback)
     (highlighting :reader highlighting :initarg :highlighting)
     (finish-on-release :reader finish-on-release :initarg :finish-on-release)
     (destination-translator :reader destination-translator :initarg :destination-translator))
    (:default-initargs :finish-on-release *finish-on-release*))
  
  ;;; According to the Franz User's guide, the destination object is
  ;;; available in the tester, documentation, and translator function
  ;;; as destination-object. Therefore OBJECT is the dragged object. In
  ;;; our scheme the tester function, translator function etc. is
  ;;; really called on the destination object. So, we do a little
  ;;; shuffling of arguments here. We don't do that for the destination
  ;;; translator because we can call that ourselves in frame-drag-and-drop.
  ;;;
  ;;; Also, in Classic CLIM the destination presentation is passed as a
  ;;; destination-presentation keyword argument; hence the presentation
  ;;; argument is the dragged presentation.
  
  (defmethod initialize-instance :after ((obj drag-n-drop-translator)
                                         &key documentation
  
negative.code:                      &rest args &key
                       (gesture :select)
                       (tester 'default-translator-tester)
                       (destination-tester 'default-translator-tester)
                       documentation
                       (pointer-documentation nil pointer-doc-p)
                       (menu t)
  