anchor.diff:                        :map (sheet-enabled-p sheet)))
   
   (defmethod realize-mirror ((port clx-port) (sheet top-level-sheet-pane))
  -  (let ((frame (pane-frame sheet))
  -	(window (realize-mirror-aux port sheet
  -				    :map nil
  -				    :event-mask '(:structure-notify))))
  -    (setf (xlib:wm-name window) (frame-pretty-name frame))
  -    (setf (xlib:wm-icon-name window) (frame-pretty-name frame))
  -    (setf (xlib:wm-protocols window) `(:wm_delete_window))))
  +  (let ((q (compose-space sheet)))
  +    (allocate-space sheet
  +                    (space-requirement-width q)
  +                    (space-requirement-height q))
  +    (let ((frame (pane-frame sheet))
  +          (window (realize-mirror-aux port sheet
  +                                      :map nil
  +                                      :width (round-coordinate (space-requirement-width q))
  +                                      :height (round-coordinate (space-requirement-height q))
  +                                      :event-mask nil
  +                                      ;;GB
  +                                      #+NIL '(:structure-notify))))
  +      (setf (xlib:wm-name window) (frame-pretty-name frame))
  +      (setf (xlib:wm-icon-name window) (frame-pretty-name frame))
  +      (setf (xlib:wm-protocols window) `(:wm_delete_window)))))
   
   (defmethod realize-mirror ((port clx-port) (sheet unmanaged-top-level-sheet-pane))
     (realize-mirror-aux port sheet
  
positive.code:         #'clx-error-handler)
      
        #-NIL
        (setf (xlib:display-after-function (clx-port-display port)) #'xlib:display-finish-output))
      
      (setf (clx-port-screen port) (nth (getf options :screen-id 0)
  				      (xlib:display-roots (clx-port-display port))))
  
negative.code: #+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
  