anchor.diff:  			    :height 200
   			    :max-height 200)))
   
  +(defun set-width-and-height (rectangular-sheet width height)
  +  (multiple-value-bind (x1 y1)
  +      (rectangle-edges* (sheet-region rectangular-sheet))
  +    (setf (sheet-region rectangular-sheet)
  +	  (make-rectangle* x1 y1 (+ x1 width) (+ y1 height)))))
  +
  +;;; FIXME: this should be done for each type of pane
   (defmethod allocate-space ((pane pane) width height)
  -  (setf (sheet-region pane)
  -	(make-bounding-rectangle 0 0 width height)))
  +  (set-width-and-height pane width height))
   
   (defmethod change-space-requirements ((pane pane) &rest rest)
     (declare (ignore rest))
  
positive.code:     space))
  
  (defmethod allocate-space ((rack hrack-pane) width height)
    (setf (sheet-region rack) (make-bounding-rectangle 0 0 width height))
    (let ((h-percent (/ width (space-requirement-width (pane-space-requirement rack))))
  	(x 0))
      (loop for child in (sheet-children rack)
  
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))
  