anchor.diff:                     (allocate-space child 
                                      width height)
                      )
  -                 (incf x major)))))))
  +                 (incf x major)
  +                 (incf x major-spacing)))))))
    
    (defclass xrack-pane (xbox-pane) ())
    
  
positive.code:                            (- width user-width)
                             (- height user-height))))
     
  ;;; BORDER-PANE
  
  (defclass border-pane (spacing-pane)
    ((border-width :initarg :border-width :initform 1 :reader border-pane-width)
     )
    (:documentation ""))
  
  (defmethod initialize-instance :after ((bp border-pane) &rest ignore)
    (declare (ignore ignore))
    #+NIL
    (with-slots (border-width) bp
      (let ((2*border-width (* 2 border-width)))
        (setf (slot-value bp 'margin-width) 2*border-width
  	    (slot-value bp 'margin-height) 2*border-width 
  	    (slot-value bp 'margin-max-width) 2*border-width
  	    (slot-value bp 'margin-max-height) 2*border-width
  	    (slot-value bp 'margin-min-width) 2*border-width
  	    (slot-value bp 'margin-min-height) 2*border-width))))
  
  (defmacro bordering ((&rest options) &body contents)
    `(make-pane 'border-pane ,@options :contents (list ,@contents)))
  
  (defmethod allocate-space ((bp border-pane) width height)
    (when (first (sheet-children bp))
      (let ((border-width (border-pane-width bp)))
        (setf (sheet-transformation (first (sheet-children bp)))
  	    (make-translation-transformation border-width border-width))
        (allocate-space (first (sheet-children bp))
  		      (- width (* 2 border-width))
  		      (- height (* 2 border-width))))))
  
  ;;; RAISED PANE
  
  
negative.code:    (compose-space (content-pane content)))
   
   (defmethod compose-space ((box xbox-pane))
     (with-slots (contents major-spacing) box
       (loop
           for content in contents
           for sr = (content-sr* box content)
  