anchor.diff:               (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
  
positive.code: ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  ;;; $Id: panes.lisp,v 1.157 2005-11-28 13:23:53 gbaumann Exp $
  
  (in-package :clim-internals)
  
  
negative.code:                                      (+ allot delta))))
                                 allot qvector))
  		 (when *dump-allocate-space*
  		   (format *trace-output* "~&;;   new excess = ~F, allotment = ~S.~%" excess allot)) )))
             ;;
  	   (when *dump-allocate-space*
  	     (format *trace-output* "~&;;   excess = ~F.~%" excess)
  