anchor.diff:  (defun initialize-clx-framebuffer (port)
     (clim-sys:make-process (lambda ()
                              (loop
  -                              (handler-case
  -                                  (maphash #'(lambda (key val)
  -                                               (when (typep key 'clx-fb-mirrored-sheet-mixin)
  -                                                 (image-mirror-to-x (sheet-mirror key))))
  -                                           (slot-value port 'climi::sheet->mirror))
  -                                (condition (condition)
  -                                  (format *debug-io* "~A~%" condition)))
  -                              (xlib:display-force-output (clx-port-display port))
  -                              (sleep 0.01)))
  +                             (handler-case
  +                                 (alexandria:maphash-keys
  +                                  (lambda (key)
  +                                    (when (typep key 'clx-fb-mirrored-sheet-mixin)
  +                                      (image-mirror-to-x (sheet-mirror key))))
  +                                  (slot-value port 'climi::sheet->mirror))
  +                               (condition (condition)
  +                                 (format *debug-io* "~A~%" condition)))
  +                             (xlib:display-force-output (clx-port-display port))
  +                             (sleep 0.01)))
                            :name (format nil "~S's event process." port)))
   
  -(defparameter *event-mask* '(:exposure 
  +(defparameter *event-mask* '(:exposure
   			     :key-press :key-release
   			     :button-press :button-release
   			     :owner-grab-button
  
positive.code: 				      :event-mask *event-mask*
                                        :map nil
                                        :width (clim-clx::round-coordinate (space-requirement-width q))
                                        :height (clim-clx::round-coordinate (space-requirement-height q)))))           
        (setf (xlib:wm-hints window) (xlib:make-wm-hints :input :on))
        (setf (xlib:wm-name window) (frame-pretty-name frame))
        (setf (xlib:wm-icon-name window) (frame-pretty-name frame))
  
negative.code: 
  
  (defmethod make-medium ((port clx-fb-port) sheet)
    (make-instance 'clx-fb-medium
  		 ;; :port port
  		 ;; :graft (find-graft :port port)
  		 :sheet sheet))
  
  
  