anchor.diff:  
   ;;; RAISED PANE
   
  -(defclass raised-pane (border-pane permanent-medium-sheet-output-mixin) ())
  +(defclass raised-pane (border-pane permanent-medium-sheet-output-mixin)
  +  ()
  +  (:default-initargs
  +   :border-width 2))
   
   (defmacro raising ((&rest options) &body contents)
     `(make-pane 'raised-pane ,@options :contents (list ,@contents)))
   
   (defmethod handle-repaint ((pane raised-pane) region)
     (declare (ignore region))
  -  (with-special-choices (pane)
  -    (multiple-value-bind (x1 y1 x2 y2) (bounding-rectangle* (sheet-region pane))
  -      (draw-edges-lines* pane +white+ 0 0 +black+ (- x2 x1 1) (- y2 y1 1))
  -      ; this also needs to draw the background
  -      ; should use an inset-rectangle thingy
  -      (let ((x1 (+ x1 1))
  -            (y1 (+ y1 1))
  -            (x2 (- x2 1))
  -            (y2 (- y2 1)))
  -        ; if we were really clever, we'd clip the contents out of our fill
  -        ; to avoid flicker
  -        (draw-rectangle* pane x1 y1 x2 y2 :filled t :ink (pane-background pane))))))
  +  (with-slots (border-width) pane
  +    (multiple-value-call #'draw-bordered-rectangle* pane (bounding-rectangle* (sheet-region pane))
  +                         :style :outset
  +                         :border-width border-width)))
   
   ;;; LOWERED PANE
   
  
positive.code: 
  ;;; LABEL PANE
  
  (defclass label-pane (single-child-composite-pane permanent-medium-sheet-output-mixin)
    ((label :type string :initarg :label :accessor label-pane-label)
     (alignment :type (member :bottom :top)
                :initform :top
  
negative.code:               :reader label-pane-label-alignment)
     (background :initform *3d-normal-color*)
     )
    (:default-initargs
     :text-style (make-text-style :sans-serif nil nil))
    (:documentation ""))
  
  (defmacro labelling ((&rest options) &body contents)
  