anchor.diff:               for major in majors
                for minor in minors
                do
  -               #+nil (format *trace-output* "~&;;   child ~S at 0, ~D ~D x ~D~%" child x width height)
  -               (when (box-client-pane child)
  -                 (move-sheet (box-client-pane child)
  +             (when (box-client-pane child)
  +               #+NIL
  +               (format *trace-output* "~&;;   child ~S at 0, ~D ~D x ~D(~D)~%;;       ~S~%"
  +                       (box-client-pane child)
  +                       x width height real-height
  +                       (compose-space (box-client-pane child)))
  +               (layout-child (box-client-pane child)
  +                             (pane-align-x (box-client-pane child))
  +                             (pane-align-y (box-client-pane child))
                                ((lambda (major minor) height width) x 0)
  -                             ((lambda (major minor) width height) x 0))
  -                 (allocate-space (box-client-pane child)
  -                                 width height))
  -               (incf x major)
  -               (incf x major-spacing)))))))
  +                             ((lambda (major minor) width height) x 0)
  +                             ((lambda (major minor) height width) width real-width)
  +                             ((lambda (major minor) height width) real-height height)))
  +             (incf x major)
  +             (incf x major-spacing)))))) )
   
   ;; #+nil
   (defmethod note-sheet-enabled :before ((pane pane))
  
positive.code:    (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))
                                     (box-layout-mixin-clients box)))
                (allot       (mapcar #'ceiling (mapcar #'space-requirement-major content-srs)))
                (wanted      (reduce #'+ allot))
  
negative.code:              (t
                sr) ))))
  
   (defmethod xically-content-sr*** ((pane box-layout-mixin) client major)
     (let (p)
       (let ((sr (if (box-client-pane client)
                     (compose-space (box-client-pane client))
                     (make-space-requirement :width 0 :min-width 0 :max-width 0
                                             :height 0 :min-height 0 :max-height 0))))
         (cond ((box-client-fillp client)
                (make-space-requirement
                 :major     (space-requirement-major sr)
                 :min-major (space-requirement-min-major sr)
                 :max-major +fill+
                 :minor     (space-requirement-minor sr)
                 :min-minor (space-requirement-min-minor sr)
                 :max-minor (space-requirement-max-minor sr)))
               ((setq p (box-client-fixed-size client))
                (make-space-requirement
                 :major     p
                 :min-major p
                 :max-major p
                 :minor     (if sr (space-requirement-minor sr) 0)
                 :min-minor (if sr (space-requirement-min-minor sr) 0)
                 :max-minor (if sr (space-requirement-max-minor sr) 0)))
               ((setq p (box-client-proportion client))
                (make-space-requirement
                 :major     (clamp (* p major)
                                   (space-requirement-min-major sr)
                                   (space-requirement-max-major sr))
                 :min-major (space-requirement-min-major sr)
                 :max-major (space-requirement-max-major sr)
                 :minor     (if sr (space-requirement-minor sr) 0)
                 :min-minor (if sr (space-requirement-min-minor sr) 0)
                 :max-minor (if sr (space-requirement-max-minor sr) 0)))
               (t
                sr) ))))
  
   (defmethod box-layout-mixin/xically-compose-space ((pane box-layout-mixin))
     (let ((n (length (sheet-enabled-children pane))))
       (with-slots (major-spacing) pane
  