anchor.diff:    (
      ))
   
  +(defclass window-manager-event (event) ())
  +
  +(defclass window-manager-delete-event (window-manager-event) ())
  +
   (defclass timer-event (event)
     (
      ))
  +
  +(defmethod event-instance-slots ((self event))
  +  '(timestamp))
  +
  +(defmethod event-instance-slots ((self device-event))
  +  '(timestamp modifier-state sheet))
  +
  +(defmethod event-instance-slots ((self keyboard-event))
  +   '(timestamp modifier-state sheet key-name))
  +
  +(defmethod event-instance-slots ((self pointer-event))
  +  '(timestamp modifier-state sheet pointer button x y root-x root-y))
  +
  +(defmethod event-instance-slots ((self window-event))
  +  '(timestamp region))
  +
  +(defmethod print-object ((self event) sink)
  + ; (print-object-with-slots self (event-instance-slots self) sink))
  +  nil)
  +
  +(defmethod translate-event ((self pointer-event) dx dy)
  +  (apply #'make-instance (class-of self)
  +         :x (+ dx (pointer-event-x self))
  +         :y (+ dy (pointer-event-y self))
  +         (fetch-slots-as-kwlist self (event-instance-slots self))))
  +
  +(defmethod translate-event ((self window-event) dx dy)
  +  (apply #'make-instance (class-of self)
  +         :region (translate-region (window-event-region self) dx dy)
  +         (fetch-slots-as-kwlist self (event-instance-slots self))))
  +
  +(defmethod translate-event ((self event) dx dy)
  +  (declare (ignore dx dy))
  +  self)
   
   ;;; Constants dealing with events
   
  
positive.code:   (
     ))
  
  (defclass pointer-enter-event (pointer-motion-event)
    (
     ))
  
  (defclass pointer-exit-event (pointer-motion-event)
    (
     ))
  
  
negative.code: 
  (in-package :CLIM-INTERNALS)
  
  ;;; ------------------------------------------------------------------------------------------
  ;;;  Events
  ;;;
  
  ;; The event objects are defined similar to the CLIM event hierarchy.
  ;;
  ;; Class hierarchy as in CLIM:
  ;; 
  ;;   event
  ;;     device-event
  ;;       keyboard-event
  ;;         key-press-event
  ;;         key-release-event
  ;;       pointer-event
  ;;         pointer-button-event
  ;;           pointer-button-press-event
  ;;           pointer-button-release-event
  ;;           pointer-button-hold-event
  ;;         pointer-motion-event
  ;;           pointer-boundary-event
  ;;             pointer-enter-event
  ;;             pointer-exit-event
  ;;     window-event
  ;;       window-configuration-event
  ;;       window-repaint-event
  ;;     window-manager-event
  ;;       window-manager-delete-event
  ;;     timer-event
  ;;
  
  
  (defclass event ()
    ((timestamp :initarg :timestamp
  	      :reader event-timestamp)
  