anchor.diff:  
   ;;; FIXME: I don't see how this one could possibly work
   (defmethod allocate-space ((spacer spacer-pane) width height)
  -  (setf (sheet-region spacer) (make-bounding-rectangle 0 0 width height))
  +  (set-width-and-height spacer width height)
     (let* ((h-percent (/ width (space-requirement-width (pane-space-requirement spacer))))
   	 (v-percent (/ height (space-requirement-height (pane-space-requirement spacer))))
   	 (child (first (sheet-children spacer)))
  
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:      (mapcar #'(lambda (l) (reduce #'max l)) height-requests))))
  
  (defmethod allocate-space ((table table-pane) width height)
    (set-width-and-height table width height)
    (let ((h-percent (/ width (space-requirement-width (pane-space-requirement table))))
          (v-percent (/ height (space-requirement-height (pane-space-requirement table))))
          (table-cell-sizes (find-collums-and-rows-size table))
  