anchor.diff:      space))
   
   (defmethod allocate-space ((rack vrack-pane) width height)
  -  (let ((h-percent (/ width (space-requirement-width (pane-space-requirement rack))))
  -	(v-percent (/ height (space-requirement-height (pane-space-requirement rack))))
  +  (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-width = (floor (* h-percent (space-requirement-width request)))
   	for new-height = (floor (* v-percent (space-requirement-height request)))
   	do (setf (sheet-region child)
   	     (make-bounding-rectangle 0 y width (+ y new-height)))
  -	   (allocate-space child new-width new-height)
  +	   (allocate-space child width new-height)
   	   (incf y new-height))))
   
   
  
positive.code: 	     :initarg :enabledp
  	     :accessor pane-enabledp)
     (space-requirement :initarg :space-requirement
  		      :initform (make-space-requirement :width 100 :max-width 100
  							:height 100 :max-height 100)
  		      :accessor pane-space-requirement)
     )
    )
  
negative.code: 				       &key contents
  				       &allow-other-keys)
    (declare (ignore args))
    (loop for children in (reverse contents)
  	do (loop for child in (reverse children)
  		 do (sheet-adopt-child table child)))
    (setf (table-pane-number table) (length (first contents))))
  
  (defmacro tabling ((&rest options) &body contents)
    `(if (pane-grid-p (list ,@contents))
  