anchor.diff:             ; move up or down one notch
              (cond
                ((< y (bounding-rectangle-min-y thumb))
  +	      #+NIL
                 (clim-internals::schedule-timer-event pane 'down-notch 0.1)
                 ; move toward the min
                 (when (> (gadget-value pane) (gadget-min-value pane))
                   (decf (gadget-value pane))
                   (dispatch-repaint pane (sheet-region pane))))
                ((> y (bounding-rectangle-max-y thumb))
  +	      #+NIL
                 (clim-internals::schedule-timer-event pane 'up-notch 0.1)
                 ; move toward the max
                 (when (< (gadget-value pane) (gadget-max-value pane))
  
positive.code:     (draw-line* pane x1 y2 x1 y1 :ink +white+)
      (draw-line* pane x2 y1 x1 y1 :ink +white+)
      ;; now for the gray inline
      (let ((x1 (+ x1 2))
            (y1 (+ y1 2))
            (x2 (- x2 1))
            (y2 (- y2 1)))
        (draw-line* pane x1 y2 x2 y2 :ink +gray54+)
        (draw-line* pane x2 y1 x2 y2 :ink +gray54+))
      ;; now for the black outline
  
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
  