anchor.diff:  
   
   (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)))
  
positive.code:           do (progn (loop for child in line-children
  			  for width in (first table-cell-sizes)
  			  for new-width = (floor (* v-percent width))
  			  do (progn (setf (sheet-region child)
  					  (make-bounding-rectangle 0 0 new-width new-height))
  				    (setf (sheet-transformation child)
  					  (make-translation-transformation x y))
  				    (allocate-space child new-width new-height)
  				    (incf x new-width)))
  		    (setf x 0)
  
negative.code: 	  for request = (pane-space-requirement child)
  	  for new-width = (floor (* h-percent (space-requirement-width request)))
  	  for new-height = (floor (* v-percent (space-requirement-height request)))
  	  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 new-width new-height)
  		    (incf y new-height)))))
  
  