anchor.diff:  			:sheet sheet :modifier-state state :timestamp time))
   	((:exposure :display)
   	 (make-instance 'window-repaint-event
  -			:sheet sheet
  -			:region (make-rectangle* x y (+ x width) (+ y height))))
  +           :sheet sheet
  +           :region (make-rectangle* x y (+ x width) (+ y height))))
   	(t
   	 nil)))))
   
  
positive.code: 					      :structure-notify
  					      :pointer-motion)))
    (when (null (port-lookup-mirror port sheet))
      (let* ((desired-color (medium-background sheet))
             (color (multiple-value-bind (r g b)
                        (color-rgb desired-color)
                      (xlib:make-color :red r :green g :blue b)))
  
negative.code:     (when sheet
        (case event-key
  	(:key-press
           (multiple-value-bind (keyname modifier-state) (x-event-to-key-name-and-modifiers display code state)
             (make-instance 'key-press-event 
               :key-name keyname
               :sheet sheet :modifier-state modifier-state :timestamp time)))
  	(:key-release
           (multiple-value-bind (keyname modifier-state) (x-event-to-key-name-and-modifiers display code state)
             (make-instance 'key-release-event 
               :key-name keyname
               :sheet sheet :modifier-state modifier-state :timestamp time)))
  	(:button-release
  	 (make-instance 'pointer-button-release-event :pointer 0 :button code :x x :y y
  			:sheet sheet :modifier-state state :timestamp time))
  