diff options
Diffstat (limited to 'Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/ButtonDown.al')
-rwxr-xr-x | Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/ButtonDown.al | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/ButtonDown.al b/Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/ButtonDown.al new file mode 100755 index 00000000000..61ed6f32c11 --- /dev/null +++ b/Master/tlpkg/tlperl.straw/lib/auto/Tk/Scale/ButtonDown.al @@ -0,0 +1,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; |