anchor.diff:  					      :structure-notify
   					      :pointer-motion)))
     (when (null (port-lookup-mirror port sheet))
  -    (let* ((desired-color (medium-background sheet))
  +    (let* ((desired-color +white+ #+NIL (medium-background sheet))
              (color (multiple-value-bind (r g b)
                         (color-rgb desired-color)
                       (xlib:make-color :red r :green g :blue b)))
  
positive.code:    (window :initform nil
  	   :accessor clx-port-window)
     (color-table :initform (make-hash-table :test #'eq))
     (font-table :initform (make-hash-table :test #'eq)))
    )
  
  (setf (get :x11 :port-type) 'clx-port)
  
  
negative.code: 			: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))))
  	(t
  	 nil)))))
  
  