anchor.diff:              :accessor gadget-label-align-x)
      (align-y :initarg :align-y
               :accessor gadget-label-align-y)
  -   (label-text-style :initform nil
  +   (label-text-style :initform *default-text-style*
   		     :initarg :label-text-style
                        :accessor gadget-label-text-style)))
   
   (defmethod compose-space ((pane labelled-gadget))
  +  (compose-space-aux pane (gadget-label pane)))
  +
  +(defmethod compose-space-aux ((pane labelled-gadget) (label string))
     (with-sheet-medium (medium pane)
       (multiple-value-bind (width height)
   	(text-size medium (gadget-label pane)
  
positive.code:     (unless armed
        (armed-callback pane (gadget-client pane) (gadget-id pane)))
      (setf armed ':button-press
  	  (push-button-show-as-default-p pane) t
  	  (gadget-current-color pane) (gadget-pushed-and-highlighted-color pane))))    
  
  (defmethod handle-event ((pane push-button-pane) (event pointer-button-release-event))
  
negative.code: (defmethod handle-event ((pane slider-pane) (event pointer-motion-event))
    (with-slots (armed) pane
      (when (eq armed ':button-press)
        (let ((value (convert-position-to-value pane (pointer-event-y event))))
  	(setf (gadget-value pane :invoke-callback nil) value)
  	(drag-callback pane (gadget-client pane) (gadget-id pane) value)
  	(dispatch-repaint pane (sheet-region pane))))))
  