diff options
Diffstat (limited to 'Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/ScrlTopBottom.al')
-rw-r--r-- | Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/ScrlTopBottom.al | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/ScrlTopBottom.al b/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/ScrlTopBottom.al deleted file mode 100644 index 7a00efe616f..00000000000 --- a/Master/tlpkg/tlperl.old/lib/auto/Tk/Scrollbar/ScrlTopBottom.al +++ /dev/null @@ -1,32 +0,0 @@ -# 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 403 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\ScrlTopBottom.al)" -# tkScrlTopBottom -# Scroll to the top or bottom of the document, depending on the mouse -# position. -# -# Arguments: -# w - The scrollbar widget. -# x, y - Mouse coordinates within the widget. - -sub ScrlTopBottom -{ - my $w = shift; - my $e = $w->XEvent; - my $element = $w->identify($e->x,$e->y); - return unless ($element); - if ($element =~ /1$/) - { - $w->ScrlToPos(0); - } - elsif ($element =~ /2$/) - { - $w->ScrlToPos(1); - } -} - -1; -# end of Tk::Scrollbar::ScrlTopBottom |