anchor.diff:              (compose-space child)) )))
   
    (defmethod box-layout-mixin/xically-compose-space ((pane box-layout-mixin))
  -   (let ((n (length (sheet-enabled-children pane))))
  +   (let ((n (length (sheet-children pane))))
        (with-slots (major-spacing) pane
          (loop
  -           for child in (sheet-enabled-children pane)
  +           for child in (sheet-children pane)
              for sr = (xically-content-sr** pane child)
              sum (space-requirement-major sr) into major
              sum (space-requirement-min-major sr) into min-major
  
positive.code:        ;; now actually layout the children
         (let ((x 0))
           (loop
               for child in (reverse (sheet-enabled-children pane))
               for major in majors
               for minor in minors
               do
  
negative.code: ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  ;;; $Id: panes.lisp,v 1.66 2002-02-28 19:27:08 gilbert Exp $
  
  (in-package :CLIM-INTERNALS)
  
  