anchor.diff:                   for x = 0 then (+ x w)
                    for w in cols
                    for j from 0
  -                 do (progn
  -                      (move-sheet (content-pane (aref array i j)) x y)
  -                      (allocate-space (content-pane (aref array i j)) w h)))))))
  -#||
  -(defmethod initialize-instance :before ((table table-pane)
  -					&rest args
  -					&key contents
  -					&allow-other-keys)
  -  (declare (ignore args))
  -  (unless (apply #'= (mapcar #'length contents))
  -    (error "The variable contents hasn't the good format")))
  -||#
  +                 do (layout-child (aref array i j) (pane-align-x pane) (pane-align-y pane)
  +                                  x y w h))))))
  +
   
   (defun table-pane-p (pane)
     (typep pane 'table-pane))
   
   (defmacro tabling ((&rest options &key (grid nil) &allow-other-keys) &body contents)
     (if grid
  -      `(make-pane 'grid-pane ,@options :contents (list ,@contents))
  +      `(make-pane 'grid-pane  ,@options :contents (list ,@contents))
         `(make-pane 'table-pane ,@options :contents (list ,@contents))))
   
   
  
positive.code:              :minor 0
               :min-minor 0
               :max-minor 0))
             ((setq p (constraint-slot pane child 'fixed-width))
              (let ((sr (compose-space child)))
                (make-space-requirement
                 :major     p
  
negative.code: 		(stream-replay pane (make-bounding-rectangle (+ x2 dx) y1 x2 y2)))
  	       (t
  		(draw-rectangle* (sheet-medium pane) x1 y1 (+ x1 dx) y2 :ink +background-ink+)
  		(stream-replay pane (make-bounding-rectangle x1 y1 (+ x1 dx) y2)))) )
  	     (t
  	      (draw-rectangle* (sheet-medium pane) x1 y1 x2 y2 :ink +background-ink+)
  	      (stream-replay pane (sheet-region pane))))))))))
  