anchor.diff:             ; Bed
              (cond
                ((< y (bounding-rectangle-min-y thumb))
  +	      #+NIL
                 (clim-internals::schedule-timer-event pane 'up-page 0.1)
                 (scroll-up-page-callback pane (gadget-client pane) (gadget-id pane)))
                (t
  +	      #+NIL
                 (clim-internals::schedule-timer-event pane 'down-page 0.1)
                 (scroll-down-page-callback pane (gadget-client pane) (gadget-id pane)))))
             (t
  
positive.code:                  armed    t
                   drag-delta (- y (bounding-rectangle-min-y thumb))))
            ((region-contains-position-p (gadget-up-region pane) x y)
             (clim-internals::schedule-timer-event pane 'up-line 0.1)
             ; Up Arrow
             (scroll-up-line-callback pane (gadget-client pane) (gadget-id pane))
             (setf (slot-value pane 'armed) :up)
             (dispatch-repaint pane +everywhere+))
            ((region-contains-position-p (gadget-down-region pane) x y)
             (clim-internals::schedule-timer-event pane 'down-line 0.1)
             ; Down Arrow
             (scroll-down-line-callback pane (gadget-client pane) (gadget-id pane))
  
negative.code:         (case token
            ((up-notch)
             (when (< (gadget-value pane) (gadget-max-value pane))
  	     #+NIL
               (clim-internals::schedule-timer-event pane token 0.1)
               (incf (gadget-value pane))
               (dispatch-repaint pane (sheet-region pane))))
            ((down-notch)
             (when (> (gadget-value pane) (gadget-min-value pane))
  	     #+NIL
               (clim-internals::schedule-timer-event pane token 0.1)
               (decf (gadget-value pane))
               (dispatch-repaint pane (sheet-region pane)))))))))
  