anchor.diff:           ;;   (think about changing a sheet's native transformation).
            ;;--GB
            ;;
  -         ;; this should still consolidate the areas
  -         ;;
            ;; Mike says:
            ;;   One of the lisps is bogusly sending a :display event instead of an
            ;; :exposure event. I don't remember if it's CMUCL or SBCL. So the
            ;; :display event should be left in.
            ;;
            (make-instance 'window-repaint-event
  +           :timestamp time
              :sheet sheet
              :region (make-rectangle* x y (+ x width) (+ y height))))
           ;;
  
positive.code:         (1- code)))
  
  (defun event-handler (&rest event-slots
                        &key display window event-key code state mode time width height x y data count
                        &allow-other-keys)
    ;; XXX :button code -> :button (decode-x-button-code code)
    (declare (ignorable event-slots))
    (declare (special *clx-port*))
  
negative.code: 	(:destroy-notify
  	 (make-instance 'window-destroy-event :sheet sheet))
  	(:motion-notify
           (make-instance 'pointer-motion-event :pointer 0 :button code :x x :y y
                          :sheet sheet :modifier-state state :timestamp time))
          ;;
  	((:exposure :display)
           ;; Notes:
  