anchor.diff:      space))
   
   (defmethod allocate-space ((rack vrack-pane) width height)
  +  (setf (sheet-region rack) (make-bounding-rectangle 0 0 width height))
     (let ((v-percent (/ height (space-requirement-height (pane-space-requirement rack))))
   	(y 0))
       (loop for child in (sheet-children rack)
   	  for request = (pane-space-requirement child)
   	  for new-height = (floor (* v-percent (space-requirement-height request)))
  -	  do (progn (setf (sheet-region child)
  -			  (make-bounding-rectangle 0 0 width new-height))
  -		    (setf (sheet-transformation child)
  -			  (make-translation-transformation 0 y))
  +	  do (progn (multiple-value-bind (x1 y1)
  +			(bounding-rectangle* (sheet-region child))
  +		      (setf (sheet-transformation child)
  +			    (make-translation-transformation (- x1) (- y y1))))
   		    (allocate-space child width new-height)
   		    (incf y new-height)))))
   
  
positive.code:     space))
  
  (defmethod allocate-space ((box hbox-pane) 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: 
  
  (defmethod allocate-space ((grid grid-pane) width height)
    (setf (sheet-region grid) (make-bounding-rectangle 0 0 width height))
    (let* ((new-height (/ height (/ (length (sheet-children grid)) (table-pane-number grid))))
  	 (new-width (/ width (table-pane-number grid)))
  	 (contents (format-children (sheet-children grid) (table-pane-number grid)))
  