anchor.diff:         ;; now actually layout the children
          (let ((x 0))
            (loop
  -             for child in (sheet-children pane)
  +             for child in (reverse (sheet-enabled-children pane))
                for major in majors
                for minor in minors
                do
  -               (let ()
  -                 #+NIL
  -                 (format T "~&;;   child ~S at 0, ~D ~D x ~D~%"
  -                         child x width height)
  -                 (move-sheet child
  -                             ((lambda (major minor) height width) x 0)
  -                             ((lambda (major minor) width height) x 0))
  -                 (allocate-space child
  -                                 width height)
  -                 )
  +               #+NIL (format T "~&;;   child ~S at 0, ~D ~D x ~D~%" child x width height)
  +               (move-sheet child
  +                           ((lambda (major minor) height width) x 0)
  +                           ((lambda (major minor) width height) x 0))
  +               (allocate-space child
  +                               width height)
                  (incf x major)
                  (incf x major-spacing)))))) )
  +
  +#+NIL
  +(defmethod note-sheet-enabled :before ((pane pane))
  +  ;; hmmm
  +  (when (panep (sheet-parent pane))
  +    (change-space-requirements pane)) )
  +
  +#+NIL
  +(defmethod note-sheet-disabled :before ((pane pane))
  +  ;; hmmm
  +  (when (panep (sheet-parent pane))
  +    (change-space-requirements pane)) )
   
   ;;;;
   
  
positive.code:   (typep pane 'top-level-sheet-pane))
  
  (defmethod note-space-requirements-changed ((sheet graft) (pane top-level-sheet-pane))
    (let ((sr (compose-space pane)))
      (resize-sheet pane (space-requirement-width sr) (space-requirement-height sr))
      '(allocate-space pane (space-requirement-width sr) (space-requirement-height sr))))
    
  (defmethod compose-space ((pane top-level-sheet-pane))
    (compose-space (first (sheet-children pane))))
  
negative.code: ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  ;;; $Id: panes.lisp,v 1.65 2002-02-28 09:57:20 gilbert Exp $
  
  (in-package :CLIM-INTERNALS)
  
  