anchor.diff:  	(y (window-configuration-event-y event))
   	(width (window-configuration-event-width event))
           (height (window-configuration-event-height event)))
  -    ;; avoid goint into an infinite loop by not using (setf sheet-region)
  +    ;; avoid goint into an infinite loop by not using (setf sheet-transformation)
       (setf (slot-value pane 'transformation)
   	  (make-translation-transformation x y))
  +    ;; avoid goint into an infinite loop by not using (setf sheet-region)
       (setf (slot-value pane 'region)
   	  (make-bounding-rectangle 0 0 width height))
       (allocate-space pane width height)))
  +
  +(defclass unmanaged-top-level-sheet-pane (top-level-sheet-pane)
  +  ()
  +  (:documentation "Top-level sheet without window manager intervention"))
   
   ;; SHEET 
   
  
positive.code:     space))
  
  (defmethod allocate-space ((box hbox-pane) width height)
    (setf (sheet-region box) (make-bounding-rectangle 0 0 width height))
    (let ((h-percent (/ width (space-requirement-width (pane-space-requirement box))))
  	(v-percent (/ height (space-requirement-height (pane-space-requirement box))))
  	(x 0))
  
negative.code:     space))
  
  (defmethod allocate-space ((box vbox-pane) width height)
    (set-width-and-height box width height)
    (let ((h-percent (/ width (space-requirement-width (pane-space-requirement box))))
  	(v-percent (/ height (space-requirement-height (pane-space-requirement box))))
  	(y 0))
  