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: 
  ;;;; box-layout-mixin
  
  (defclass box-layout-mixin (constraint-slots-mixin)
    ((box-layout-orientation
      :initarg :box-layout-orientation
      :initform :vertical
      :accessor box-layout-orientation))
    (:documentation
     "Mixin class for layout panes, which want to behave like a HBOX/VBOX."))
  
negative.code: (defmethod allocate-space ((pane label-pane) width height)
    (multiple-value-bind (right top left bottom) (label-pane-margins pane)
      (declare (ignorable right top left bottom))
      (when (sheet-children pane)
        (with-bounding-rectangle* (x1 y1 x2 y2) (sheet-region pane);seems bogus
          (move-sheet (first (sheet-children pane))
                      (+ x1 left) (+ y1 top))
          (allocate-space (first (sheet-children pane))
                          (- (- x2 right) (+ x1 left))
                          (- (- y2 bottom) (+ y1 top)))))))
  
  