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