anchor.diff:    (with-slots (user-width user-min-width user-max-width
                  user-height user-min-height user-max-height)
         spacing
  -    (setf user-width  (max (or thickness 0) (or user-width 0)))
  -    (setf user-height (max (or thickness 0) (or user-height 0)))))
  +    #+NIL(setf user-width  (max (or thickness 0) (or user-width 0)))
  +    #+NIL(setf user-height (max (or thickness 0) (or user-height 0)))))
  +
  +(defmethod compose-space ((pane spacing-pane) &key width height)
  +  (declare (ignore width height))
  +  (with-slots (border-width) pane
  +    (let ((sr (call-next-method)))
  +      (make-space-requirement
  +       :width (+ (* 2 border-width) (space-requirement-width sr))
  +       :height (+ (* 2 border-width) (space-requirement-height sr))
  +       :min-width (+ (* 2 border-width) (space-requirement-min-width sr))
  +       :min-height (+ (* 2 border-width) (space-requirement-min-height sr))
  +       :max-width (+ (* 2 border-width) (space-requirement-max-width sr))
  +       :max-height (+ (* 2 border-width) (space-requirement-max-height sr))))))
   
   (defmethod allocate-space ((pane spacing-pane) width height)
  -  (with-slots (user-width user-height) pane
  +  (with-slots (border-width) pane
       (let ((child (first (sheet-children pane))))
         (layout-child child (pane-align-x pane) (pane-align-y pane)
  -                    (/ user-width 2) (/ user-height 2)
  -                    (- width user-width)
  -                    (- height user-height)))))
  +                    border-width border-width
  +                    (- width border-width border-width)
  +                    (- height border-width border-width)))))
   
   ;;; OUTLINED-PANE
   
  
positive.code: ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  ;;; $Id: panes.lisp,v 1.110 2003-01-28 08:17:41 moore Exp $
  
  (in-package :CLIM-INTERNALS)
  
  
negative.code: 				      &allow-other-keys)
    (declare (ignore resize-frame))
    (setf (pane-space-requirement pane) nil)
    (note-space-requirements-changed (sheet-parent pane) pane))
  
  (defmethod note-space-requirements-changed :before ((sheet layout-protocol-mixin)
  