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