anchor.diff:     (declare (ignorable width height))
      (let ((children (reverse (sheet-enabled-children box))))
        (with-slots (major-spacing) box
  -       (let* ((content-srs (mapcar #'(lambda (c) (xically-content-sr** box c))
  +       (let* ((content-srs (mapcar #'(lambda (c) (xically-content-sr*** box c major))
                                      (box-layout-mixin-clients box)))
                 (allot       (mapcar #'ceiling (mapcar #'space-requirement-major content-srs)))
                 (wanted      (reduce #'+ allot))
  
positive.code:            sum (space-requirement-max-major sr) into max-major
             maximize (space-requirement-minor sr) into minor
             maximize (space-requirement-min-minor sr) into min-minor
             minimize (space-requirement-max-minor sr) into max-minor
             finally
               (return
                 (space-requirement+*
  
negative.code:      (values majors
               (mapcar (lambda (x) x minor) minors))))
  
    (defmethod box-layout-mixin/xically-allocate-space ((pane box-layout-mixin) real-width real-height)
     (with-slots (major-spacing) pane
       (multiple-value-bind (majors minors)
           (box-layout-mixin/xically-allocate-space-aux* pane real-width real-height)
         ;; now actually layout the children
         (let ((x 0))
           (loop
  