anchor.diff:  (defclass check-box-pane (check-box rack-layout-mixin sheet-multiple-child-mixin basic-pane)
     ()
     (:default-initargs
  -      :background *3d-normal-color*))
  +   :text-style (make-text-style :sans-serif nil nil)
  +   :background *3d-normal-color*))
   
   (defmethod initialize-instance :after ((pane check-box-pane)
                                          &key choices current-selection orientation &allow-other-keys)
  
positive.code:   ;; Half-baked attempt to be compatible with Lispworks. ??? -moore
    ;; Inherited from basic-pane with different defaults.
    ((foreground  :initform +black+)
     (background  :initform +white+)))
  
  
  ;; Where is this standard-gadget from? --GB
  
negative.code: 		      :initarg :show-as-default-p
  		      :accessor push-button-show-as-default-p))
    (:default-initargs
     :text-style (make-text-style :sans-serif nil nil)
      :background *3d-normal-color*
      :align-x :center
      :align-y :center
  