anchor.diff:  				       &key contents
   				       &allow-other-keys)
     (declare (ignore args))
  -  (loop for children in contents
  -	do (loop for child in children
  +  (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))))
  -
  -;(defmethod initialize-instance :after ((table table-pane)
  -;				       &rest args
  -;				       &key contents
  -;				       &allow-other-keys)
  -;  (declare (ignore args))
  -;  (when contents
  -;    (if (reduce #'= (mapcar #'length contents))
  -;	(progn 
  -;	  (loop for children in contents
  -;		do (loop for child in children
  -;			 do (sheet-adopt-child table child)))
  -;	  (setf (table-pane-number table) (length (first contents))))
  -;	(error "The variable contents hasn't the good format"))))
   
   (defmacro tabling ((&rest options) &body contents)
     `(if (pane-grid-p (list ,@contents))
  
positive.code: 				    &key (type 'clim-stream-pane)
  				         (scroll-bars :vertical)
  				    &allow-other-keys)
    (remf options :type)
    (apply #'make-pane type options))
  
  
negative.code:     space))
  
  (defmethod allocate-space ((rack vrack-pane) 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 (setf (sheet-region child)
  	     (make-bounding-rectangle 0 y width (+ y new-height)))
  	   (allocate-space child width new-height)
  	   (incf y new-height))))
  
  
  