anchor.diff:  				    :children (list ,gadget))))
          (stream-add-output-record ,stream ,gadget-output-record)
          ,gadget)))
  -
  -
  -
  -
  
positive.code: 			 range-gadget-mixin
  			 gadget-color-mixin)
    ()
    (:documentation "The value is a real number"))
    
  (defclass slider-pane (slider-gadget)
    ((drag-callback :initform nil
  
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
  					      (if (eq (gadget-orientation pane) :vertical)
  						  (pointer-event-y event)
  						  (pointer-event-x 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))))))
  