anchor.diff:  ;;; ------------------------------------------------------------------------------------------
   ;;;  30.4.3 The concrete menu-button Gadget
   
  -(defclass menu-button-pane (menu-button standard-gadget-pane)
  +(defclass menu-button-pane (menu-button
  +			    standard-gadget-pane
  +			    standard-space-requirement-options-mixin)
     ()
     (:default-initargs
  +    :background *3d-normal-color*
       :align-x :center
       :align-y :center))
   
  
positive.code: 		(t))
            (draw-label* pane x1 y1 x2 y2 :ink (effective-gadget-foreground pane)))))))
  
  ;;; ------------------------------------------------------------------------------------------
  ;;;  30.4.4 The concrete scroll-bar Gadget
  
  
negative.code: 
  (defmethod (setf gadget-current-color) :after (color (gadget gadget-color-mixin))
    (declare (ignore color))
    (dispatch-repaint gadget (sheet-region gadget)))
  
  ;;;
  ;;; gadgets look
  ;;;
  