anchor.diff:                                                  sheet ; XXX
                                                   x y
                                                   :modifier-state (event-modifier-state event)))))
  -                       (when presentation
  -                         (print presentation *trace-output*))
                          (when (and highlight presentation)
  -                         #+nil ; FIXME
  -                         (highlight-applicable-presentation
  -                          (pane-frame sheet) #|XXX|# sheet #|XXX|# *input-context*))
  +                         (frame-highlight-at-position (pane-frame sheet) window x y))
                          ;; FIXME Convert X,Y to SHEET coordinates; user
                          ;; coordinates
                          (typecase event
  
positive.code:                     ((typep event '(or keyboard-event character symbol))
                       (maybe-funcall keyboard-handler
                                      :gesture event #|XXX|#))
                      (t (handle-event #|XXX|# (event-sheet event) event))))))))
  
negative.code:                                    ;; XXX specialize on EVENT?
                                     ;; :SUPER-AROUND?
                                     (queue-event sheet event))
        (with-input-context (context-type :override t)  ()
          (loop
              (let ((event (event-read sheet)))
                (when (and (eq sheet (event-sheet event))
                           (typep event 'pointer-motion-event))
                  (queue-event sheet event)
                  (highlight-applicable-presentation (pane-frame sheet) sheet *input-context*))
                (cond ((and (typep event 'pointer-event)
                            #+nil
                            (eq (pointer-event-pointer event)
                                pointer))                     
                       (let* ((x (pointer-event-x event))
                              (y (pointer-event-y event))
                              (window (event-sheet event))
  