blob: f00a0b5bdbe0cc9a6726028cbeb6d4c36d7e96aa (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
package Tk::Event;
use vars qw($VERSION $XS_VERSION @EXPORT_OK);
END { CleanupGlue() }
$VERSION = '4.033';
$XS_VERSION = '804.033';
$XS_VERSION =~ s{_}{};
use base qw(Exporter);
use XSLoader;
@EXPORT_OK = qw($XS_VERSION DONT_WAIT WINDOW_EVENTS FILE_EVENTS
TIMER_EVENTS IDLE_EVENTS ALL_EVENTS);
XSLoader::load 'Tk::Event',$XS_VERSION;
require Tk::Event::IO;
1;
__END__
|
