anchor.diff:      (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)))
  +    (let ((x1 (+ x1 1))			; I'd prefer this be zero, so that there isn't
  +          (y1 (+ y1 1))			; the little sparkling white pixel in both corners
  +          (x2 (- x2 1))			; (bothersome in the corner of a scroller-pane),
  +          (y2 (- y2 1)))		; but we may be transformed, so too much work. Bah.
         (draw-line* pane x1 y2 x2 y2 :ink +gray54+)
         (draw-line* pane x2 y1 x2 y2 :ink +gray54+))
       ;; now for the black outline
  
positive.code:   (let ((token (clim-internals::event-token event)))
      (with-slots (was-repeating repeating) pane
        (unless (eql was-repeating repeating)
          (clim-internals::schedule-timer-event pane token 0.1)
          (case token
            ((up-line)
  
negative.code:            ; 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))
  