home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Netrunner 2004 October
/
NETRUNNER0410.ISO
/
regular
/
ActivePerl-5.8.4.810-MSWin32-x86.msi
/
_f384bff68d049365c7f0d46483e56826
< prev
next >
Wrap
Text File
|
2004-06-01
|
980b
|
40 lines
# 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;