blob: 61ed6f32c114ad442d8a8db21b923703565b364b (
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
29
30
31
32
33
34
35
36
37
38
39
40
|
# NOTE: Derived from ..\blib\lib\Tk\Scale.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Tk::Scale;
#line 138 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\ButtonDown.al)"
# ButtonDown --
# This procedure is invoked when a button is pressed in a scale. It
# takes different actions depending on where the button was pressed.
#
# Arguments:
# w - The scale widget.
# x, y - Mouse coordinates of button press.
sub ButtonDown
{
my $w = shift;
my $x = shift;
my $y = shift;
$Tk::dragging = 0;
$el = $w->identify($x,$y);
return unless ($el);
if ($el eq 'trough1')
{
$w->Increment('up','little','initial')
}
elsif ($el eq 'trough2')
{
$w->Increment('down','little','initial')
}
elsif ($el eq 'slider')
{
$Tk::dragging = 1;
my @coords = $w->coords();
$Tk::deltaX = $x-$coords[0];
$Tk::deltaY = $y-$coords[1];
}
}
# end of Tk::Scale::ButtonDown
1;
|