home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Australian Personal Computer 2004 July
/
APC0407D2.iso
/
workshop
/
apache
/
files
/
ActivePerl-5.6.1.638-MSWin32-x86.msi
/
_7f1ba265b6d0c2e0dcf78e5969da459b
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
2004-04-13
|
380 b
|
16 lines
# NOTE: Derived from blib\lib\Tk.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Tk;
#line 405 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\CancelRepeat.al)"
sub CancelRepeat
{
my $w = shift->MainWindow;
my $id = delete $w->{_afterId_};
$w->after('cancel',$id) if (defined $id);
}
# end of Tk::CancelRepeat
1;