anchor.diff:          (:dragging
            (let* ((y-new-thumb-top (- y drag-dy))
                   (ts (scroll-bar-thumb-size sb))
  -                (new-value (translate-range-value y-new-thumb-top
  +                (new-value (min (gadget-max-value sb)
  +                               (max (gadget-min-value sb)
  +                                    (translate-range-value y-new-thumb-top
                                                     (bounding-rectangle-min-y (scroll-bar-thumb-bed-region sb))
                                                     (bounding-rectangle-max-y (scroll-bar-thumb-bed-region sb))
                                                     (gadget-min-value sb)
  -                                                  (+ (gadget-max-value sb) ts))))
  +                                                  (+ (gadget-max-value sb) ts))))))
  +           (setf (gadget-value sb) new-value)
  +           (dispatch-repaint sb +everywhere+) 
              (drag-callback sb (gadget-client sb) (gadget-id sb)
  -                          (min (gadget-max-value sb)
  -                               (max (gadget-min-value sb)
  -                                    new-value))) ))))))
  +                          new-value) ))))))
   
   ;;; Repaint
   
  -(defmethod repaint-sheet ((sb scroll-bar-pane) region)
  +(defmethod handle-repaint ((sb scroll-bar-pane) region)
     (declare (ignore region))
     (with-special-choices (sb)
       (let ((tr (scroll-bar-transformation sb)))
  
positive.code: 					   (pointer-event-x event))))
        (dispatch-repaint pane (sheet-region pane)))))
  
  (defmethod handle-event ((pane slider-pane) (event window-repaint-event))
    (dispatch-repaint pane (sheet-region pane)))
  
  
negative.code:       (make-rectangle* (+ x1 border-width) (+ y1 border-width)
                         (- x2 border-width) (- y2 border-width)))))
  
  (defmethod handle-repaint :after ((pane 3D-border-mixin) region)
    (declare (ignore region))
    (with-slots (border-width border-style) pane
      (draw-bordered-polygon pane (polygon-points (bounding-rectangle (sheet-region pane)))
  