anchor.diff:  
   (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)
  
positive.code:   (
     ))
  
  (defclass pointer-enter-event (pointer-motion-event)
    (
     ))
  
  (defclass pointer-exit-event (pointer-motion-event)
    (
     ))
  
  
negative.code:   (
     ))
  
  
  (defclass pointer-button-press-event (pointer-button-event) ())
  
  (defclass pointer-button-release-event (pointer-button-event) ())
  
  (defclass pointer-button-hold-event (pointer-button-event) ())
  
  
  (defclass pointer-button-click-event (pointer-button-event)
    (
     ))
  