# NOTE: Derived from ../blib/lib/Tk/Scrollbar.pm.
# Changes made here will be lost when autosplit is run again.
#line 106 "../blib/lib/Tk/Scrollbar.pm (autosplit into ../blib/lib/auto/Tk/Scrollbar/ButtonDown.al)"
# This procedure is invoked when a button is pressed in a scrollbar.
# It changes the way the scrollbar is displayed and takes actions
# depending on where the mouse is.
# w - The scrollbar widget.
# x, y - Mouse coordinates.
my $element = $w->identify($e->x,$e->y);
$w->configure('-activerelief' => 'sunken');
(defined($element) && $element eq 'slider'))
$w->StartDrag($e->x,$e->y);
(defined($element) && $element =~ /^(trough[12]|slider)$/o))
my $pos = $w->fraction($e->x, $e->y);
my($head, $tail) = $w->get;
$w->StartDrag($e->x,$e->y);
$w->Select($element,'initial');
# end of Tk::Scrollbar::ButtonDown