anchor.diff:  ; We don't have implemented the difference of appearence whether the 
   ; indicator-type is :one-of or :some-of
   
  +(defmethod initialize-instance :before ((pane toggle-button-pane) &rest rest)
  +  (declare (ignore rest))
  +  (setf (gadget-label-align-x pane) :center
  +	(gadget-label-align-y pane) :center))
  +
   (defmethod handle-event ((pane toggle-button-pane) (event pointer-enter-event))
     (with-slots (armed) pane
       (unless armed
         (setf armed t)
         (unless (gadget-value pane)
  -	(setf (gadget-current-color pane) (gadget-highlighted-color pane))
  -	(dispatch-repaint pane (sheet-region pane)))
  +	(setf (gadget-current-color pane) (gadget-highlighted-color pane)))
         (armed-callback pane (gadget-client pane) (gadget-id pane)))))
   
   (defmethod handle-event ((pane toggle-button-pane) (event pointer-exit-event))
  
positive.code:             :accessor gadget-label-align-x)
     (align-y :initarg :align-y
              :accessor gadget-label-align-y)
     (label-text-style :initform nil
  		     :initarg :label-text-style
                       :accessor gadget-label-text-style)))
  
  (defmethod compose-space ((pane labelled-gadget))
    (with-sheet-medium (medium pane)
      (multiple-value-bind (width height)
  	(text-size medium (gadget-label pane)
  
negative.code: 		 (draw-rectangle* pane 0 0 w h
  				  :ink (gadget-normal-color pane)
  				  :filled t)))
  	  (draw-label pane (gadget-label pane) (round w 2) (round h 2)))))))
  
  
  ;;
  