anchor.diff:  
   (defmethod realize-mirror ((port clx-port) (sheet top-level-sheet-pane))
     (let ((q (compose-space sheet)))
  -    #+nil ; SHEET and its descendants are grafted, but unmirrored :-\ -- APD
  -    (allocate-space sheet
  -                    (space-requirement-width q)
  -                    (space-requirement-height q))
       (let ((frame (pane-frame sheet))
             (window (realize-mirror-aux port sheet
                                         :map nil
  
positive.code: 	   +pointer-wheel-down+)
  	  (t 0)))
  
  #+nil
  (defmethod pointer-modifier-state ((pointer clx-pointer))
    (multiple-value-bind (x y same-screen-p child mask)
        (xlib:query-pointer (clx-port-window (port pointer)))
      (declare (ignore x y same-screen-p child))
      (clim-xcommon:x-event-state-modifiers (port pointer) mask)))
  
  (defmethod port-modifier-state ((port clx-port))
    (multiple-value-bind (x y same-screen-p child mask)
        (xlib:query-pointer (clx-port-window port))
  
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)
  