anchor.diff:              (let* ((frame (pane-frame sheet))
                      (focus (climi::keyboard-input-focus frame)))
                 (when (and focus (sheet-mirror focus))
  -                (safely-set-input-focus (clx-port-display *clx-port*)
  -                                        (sheet-mirror focus) :parent time)
  +                (xlib:set-input-focus (clx-port-display *clx-port*)
  +                                      (sheet-mirror focus) :parent time)
                   nil)))))
   	(t
   	 (unless (xlib:event-listen (clx-port-display *clx-port*))
  
positive.code:               :host (xlib:display-host (slot-value object 'display))
                :display-id (xlib:display-display (slot-value object 'display))))))
  
  (defun clx-error-handler (display error-name &key &allow-other-keys)
    (declare (ignore display))
    (format *error-output* "Received clx-error in ~a: ~a~%"
            (clim-sys:current-process) error-name))
  
  (defmethod initialize-clx ((port clx-port))
    (let ((options (cdr (port-server-path port))))
      (setf (clx-port-display port)
  	  (xlib:open-display (getf options :host "") :display (getf options :display-id 0)))
      (progn
        #+nil
        (setf (xlib:display-error-handler (clx-port-display port))
          #'clx-error-handler)
      
        #+nil
        (setf (xlib:display-after-function (clx-port-display port)) #'xlib:display-force-output))
      
  
negative.code: (defmethod climi::set-port-keyboard-focus (focus (port clx-port))
    (let ((mirror (sheet-mirror focus)))
      (when mirror
        (xlib:set-input-focus (clx-port-display port) mirror :parent nil))))
  