anchor.diff:    (let ((h-percent (/ width (space-requirement-width (pane-space-requirement rack))))
   	(x 0))
       (loop for child in (sheet-children rack)
  -	for request = (pane-space-requirement child)
  -	for new-width = (floor (* h-percent (space-requirement-width request)))
  -	do (setf (sheet-region child)
  -	     (make-bounding-rectangle x 0 (+ x new-width) height))
  -	   (allocate-space child new-width height)
  -	   (incf x new-width))))
  +	  for request = (pane-space-requirement child)
  +	  for new-width = (floor (* h-percent (space-requirement-width request)))
  +	  do (progn (setf (sheet-region child)
  +			  (make-bounding-rectangle 0 0 new-width height))
  +		    (setf (sheet-transformation child)
  +			  (make-translation-transformation x 0))
  +		    (allocate-space child new-width height)
  +		    (incf x new-width)))))
   
   
   ;;; VRACK-PANE class
  
positive.code:   (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))))
  
  
  ;; TABLE PANE
  
negative.code: ;;;  (c) copyright 2000 by 
  ;;;           Iban Hatchondo (hatchond@emi.u-bordeaux.fr)
  ;;;           Julien Boninfante (boninfan@emi.u-bordeaux.fr)
  ;;;           Robert Strandh (strandh@labri.u-bordeaux.fr)
  
  
  ;;; This library is free software; you can redistribute it and/or
  