# NOTE: Derived from ../blib/lib/Tk/Scrollbar.pm.
# Changes made here will be lost when autosplit is run again.
#line 247 "../blib/lib/Tk/Scrollbar.pm (autosplit into ../blib/lib/auto/Tk/Scrollbar/Drag.al)"
# This procedure is called for each mouse motion even when the slider
# is being dragged. It notifies the associated widget if we're not
# jump scrolling, and it just updates the scrollbar if we are jump
# w - The scrollbar widget.
# x, y - The current mouse position.
return unless (defined $initMouse);
my $f = $w->fraction($e->x,$e->y);
my $delta = $f - $initMouse;
$w->set($initValues[0]+$delta,$initValues[1]+$delta);
$delta = int($delta * $initValues[0]);
$initValues[2] += $delta;
$initValues[3] += $delta;
$w->ScrlToPos($initPos+$delta);
# end of Tk::Scrollbar::Drag