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:      &key pointer multiple-window transformp (context-type t)
       (highlight nil highlight-p))
    ;; (setq pointer (port-pointer (port sheet))) ; FIXME
    (let ((port (port sheet))
          (presentations-p (or presentation-handler
                               presentation-button-press-handler
                               presentation-button-release-handler)))
  
negative.code:                     ((typep event '(or keyboard-event character symbol))
                       (maybe-funcall keyboard-handler
                                      :gesture event #|XXX|#))
                      (t (handle-event #|XXX|# (event-sheet event) event)))))))))
  