anchor.diff:  		   :reader toggle-button-indicator-type)))
   ; We don't have implemented the difference of appearence whether the 
   ; indicator-type is :one-of or :some-of
  -
  -(defclass clx-toggle-button-pane (toggle-button-pane) ())
   
   (defmethod handle-event ((pane toggle-button-pane) (event pointer-enter-event))
     (with-slots (armed) pane
  
positive.code: 
  (defclass menu-button-pane (menu-button) ())
  
  (defclass clx-menu-button-pane (menu-button-pane) ())
  
  (defmethod compute-space ((pane menu-button-pane))
    (compute-space (gadget-value pane)))
  
  (defmethod handle-event ((pane menu-button-pane) (event pointer-enter-event))
    (with-slots (armed) pane
      (unless armed
        (setf armed t)
        (armed-callback pane (gadget-client pane) (gadget-id pane)))))
  
  (defmethod handle-event ((pane menu-button-pane) (event pointer-exit-event))
    (with-slots (armed) pane
      (when armed
        (setf armed nil)
        (disarmed-callback pane (gadget-client pane) (gadget-id pane)))))
  
  (defmethod handle-event ((pane menu-button-pane) (event pointer-button-press-event))
    (with-slots (armed) pane
      (unless armed
        (armed-callback pane (gadget-client pane) (gadget-id pane)))
      (setf armed ':button-press)
      (dispatch-repaint pane (sheet-region pane))))
  
  (defmethod handle-event ((pane menu-button-pane) (event pointer-button-release-event))
    (with-slots (armed) pane
      (when (eql armed ':button-press)
        (value-changed-callback pane (gadget-client pane) (gadget-id pane) t) ;FALSE
        (setf armed t)
        (dispatch-repaint pane (sheet-region pane))
        (disarmed-callback pane (gadget-client pane) (gadget-id pane)))))
  
  (defmethod handle-event ((pane menu-button-pane) (event window-repaint-event))
    (dispatch-repaint pane (sheet-region pane)))
  
  ;;
  ;; SCROLL-BAR gadget
  
negative.code: 
  (defmethod repaint-sheet ((pane push-button-pane) region)
    (declare (ignore region))
    (multiple-value-bind (x1 y1 x2 y2) (bounding-rectangle* (sheet-region pane))
      (let ((w (- x2 x1))
  	  (h (- y2 y1)))
        (display-gadget-background pane 1 1 (1- w) (1- h))
        (if (push-button-show-as-default-p pane)
  	  (draw-edges-lines* pane (1- w) (1- h) 1 1)
  	  (draw-edges-lines* pane 1 1 (1- w) (1- h)))
        (draw-text* pane (gadget-label pane) (round w 2) (round h 2)
  		  :align-x :center :align-y :center))))
  
  ;;
  ;; TOGGLE-BUTTON gadget
  