# NOTE: Derived from ../blib/lib/Tk/Scrollbar.pm.
# Changes made here will be lost when autosplit is run again.
#line 283 "../blib/lib/Tk/Scrollbar.pm (autosplit into ../blib/lib/auto/Tk/Scrollbar/EndDrag.al)"
# This procedure is called to end an interactive drag of the slider.
# It scrolls the window if we're in jump mode, otherwise it does nothing.
# w - The scrollbar widget.
# x, y - The mouse position at the end of the drag operation.
return unless defined($initMouse);
$w->ScrlToPos($initPos + $w->fraction($x,$y) - $initMouse);
# end of Tk::Scrollbar::EndDrag