diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/auto/Tk/Listbox/DataExtend.al')
-rw-r--r-- | Master/tlpkg/tlperl/lib/auto/Tk/Listbox/DataExtend.al | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/DataExtend.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/DataExtend.al deleted file mode 100644 index 4240300aa68..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/DataExtend.al +++ /dev/null @@ -1,39 +0,0 @@ -# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Listbox; - -#line 775 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\DataExtend.al)" -# DataExtend -# -# This procedure is called for key-presses such as Shift-KEndData. -# If the selection mode isn't multiple or extend then it does nothing. -# Otherwise it moves the active element to el and, if we're in -# extended mode, extends the selection to that point. -# -# Arguments: -# w - The listbox widget. -# el - An integer element number. -sub DataExtend -{ - my $w = shift; - my $el = shift; - my $mode = $w->cget('-selectmode'); - if ($mode eq 'extended') - { - $w->activate($el); - $w->see($el); - if ($w->selectionIncludes('anchor')) - { - $w->Motion($el) - } - } - elsif ($mode eq 'multiple') - { - $w->activate($el); - $w->see($el) - } -} - -# end of Tk::Listbox::DataExtend -1; |