anchor.diff:          (time      (event-timestamp event)))
       (when (null property)
         (format *trace-output* "~&* Requestor property is null! *~%"))
  -    #+nil ; debugging output
  -    (progn
  -      (describe event *trace-output*)
  -      (force-output *trace-output*))
       (flet ((send-event (&key target (property property))
   	     ;; debugging output, but the KDE Klipper client turns out
   	     ;; to poll other clients for selection, which means it
   	     ;; would be bad to print at every request.
  -             #+nil
  -             (format *trace-output*
  -                     "~&;; clim-clx::send-selection - Requested target ~A, sent ~A to property ~A. time ~S~%"
  -                     (selection-event-target event)
  -                     target
  -                     property time)
                (xlib:send-event requestor
   			      :selection-notify nil
   			      :window requestor
  
positive.code:                   "Restart CLIM's event loop.")
                   (loop
                     (process-next-event port)) )))
           :name (format nil "~S's event process." port)))
        #+nil(format *trace-output* "~&Started CLX event loop process ~A~%" (port-event-process port))) ))
  
  #+nil
  (defmethod (setf sheet-mirror-transformation) :after (new-value (sheet mirrored-sheet-mixin))
    )
  
  (defmethod port-set-mirror-region ((port clx-port) mirror mirror-region)
    (setf (xlib:drawable-width mirror) (floor (bounding-rectangle-max-x mirror-region))
          (xlib:drawable-height mirror) (floor (bounding-rectangle-max-y mirror-region))))
                                     
  (defmethod port-set-mirror-transformation ((port clx-port) mirror mirror-transformation)
    (setf (xlib:drawable-x mirror) (floor (nth-value 0 (transform-position mirror-transformation 0 0)))
          (xlib:drawable-y mirror) (floor (nth-value 1 (transform-position mirror-transformation 0 0)))))
  
  
  
  (defun invent-sheet-mirror-transformation-and-region (sheet)
    ;; -> tr region
  
negative.code:     (progn
        (setf (xlib:display-error-handler (clx-port-display port))
          #'clx-error-handler)
        ;; Uncomment this when debugging CLX backend if asynchronous
        ;; errors become troublesome.
        #+nil 
        (setf (xlib:display-after-function (clx-port-display port))
  	    #'xlib:display-finish-output))
      (setf (clx-port-screen port)
  	  (nth (getf options :screen-id)
  	       (xlib:display-roots (clx-port-display port))))
      (setf (clx-port-window port) (xlib:screen-root (clx-port-screen port)))
      (make-cursor-table port)    
      (make-graft port)
  