anchor.diff:   
    (defmethod allocate-space ((box xbox-pane) width height)
      (declare (ignore minor))
  -   (with-slots (contents) box
  +   (with-slots (contents major-spacing) box
        (multiple-value-bind (majors minors) (allocate-space-aux box width height)
          ;; now actually layout the children
          (let ((x 0))
  
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:                    (allocate-space child 
                                     width height)
                     )
                   (incf x major)
                   (incf x major-spacing)))))))
   
   (defclass xrack-pane (xbox-pane) ())
   
  