anchor.diff:    (let ((token (clim-internals::event-token event)))
       (with-slots (was-repeating repeating) pane
         (unless (eql was-repeating repeating)
  +	#+NIL
           (clim-internals::schedule-timer-event pane token 0.1)
           (case token
             ((up-line)
  
positive.code:         (case token
            ((up-notch)
             (when (< (gadget-value pane) (gadget-max-value pane))
               (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))
               (clim-internals::schedule-timer-event pane token 0.1)
               (decf (gadget-value pane))
               (dispatch-repaint pane (sheet-region pane)))))))))
  
negative.code:            ; 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
  