blob: 8c401b6fc311fb93b130a8156a316ddb9290d2c1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Tk::Scrollbar;
#line 297 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\EndDrag.al)"
# tkScrollEndDrag --
# 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.
#
# Arguments:
# w - The scrollbar widget.
# x, y - The mouse position at the end of the drag operation.
sub EndDrag
{
my($w,$x,$y) = @_;
return if (!defined $initPos);
if ($w->cget('-jump'))
{
my $delta = $w->delta($x-$pressX, $y-$pressY);
$w->ScrlToPos($initPos+$delta);
}
undef $initPos;
}
# end of Tk::Scrollbar::EndDrag
1;
|