anchor.diff:  
   (defmethod compute-extremum ((table table-pane))
     ;; Because in a table-pane each columns cells has the same width
  -  ;; and each lines cells has the same height, will make a line-refernce
  +  ;; and each lines cells has the same height, will make a line-reference
     ;; and a column reference. (first line and column of the table.
     ;; (ie. They will represent the size reference for lines and columns)
  -  (make-extremums-children-ratio 
  -       table (mapcar #'car (format-children table)) :width nil)
  -  (make-extremums-children-ratio
  -       table (car (format-children table)) :height nil))
  +  (make-extremums-children-ratio-height
  +       table (mapcar #'car (format-children table)))
  +  (make-extremums-children-ratio-width
  +       table (car (format-children table))))
   
   (defmethod allocate-space ((table table-pane) width height)
     (resize-sheet table width height)
  -  (allocate-space-internal table height nil)
  -  (allocate-space-internal table width)
  +  (allocate-space-internal-height table height)
  +  (allocate-space-internal-width table width)
     (loop for children in (format-children table)
   	for line-ref in (mapcar #'car (format-children table))
   	for new-height = (slot-value line-ref 'new-height)
  
positive.code: 		       margin-max-width margin-max-height
  		       margin-min-width margin-min-height) pane
  	    (let ((child (first (sheet-children pane))))
  	      (setf sr-width (+ margin-width (get-width child))
  		    sr-height (+ margin-height (get-height child))
  		    sr-max-width (+ margin-max-width (get-max-width child))
  		    sr-max-height (+ margin-max-height (get-max-height child))
  		    sr-min-width (+ margin-min-width (get-min-width child))
  		    sr-min-height (+ margin-min-height (get-min-height child))
  		    ))))
  	(setf space-requirement (make-space-requirement))
  	(with-slots (width height max-width max-height min-width min-height)
  
negative.code: 	  (restraining-pane-p pane)
  	  (and (slot-value pane 'sr-width) 
  	       (slot-value pane 'sr-height)))
        (allocate-space pane (sr-width pane) (sr-height pane))
        (note-space-requirements-changed (sheet-parent pane) pane)))
  
  ;;; WINDOW STREAM
  