# NOTE: Derived from ../blib/lib/Tk/Scrollbar.pm.
# Changes made here will be lost when autosplit is run again.
#line 222 "../blib/lib/Tk/Scrollbar.pm (autosplit into ../blib/lib/auto/Tk/Scrollbar/StartDrag.al)"
# This procedure is called to initiate a drag of the slider. It just
# remembers the starting position of the slider.
# w - The scrollbar widget.
# x, y - The mouse position at the start of the drag operation.
return unless (defined ($w->cget('-command')));
$initMouse = $w->fraction($x,$y);
$initPos = $initValues[0];
$initPos = $initValues[2] / $initValues[0];
# end of Tk::Scrollbar::StartDrag