home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Netrunner 2004 October
/
NETRUNNER0410.ISO
/
regular
/
ActivePerl-5.8.4.810-MSWin32-x86.msi
/
_149fa39a3a61b802df973cd2b9720e0f
< 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-06-01
|
335 b
|
22 lines
package Tk::widgets;
use Carp;
use vars qw($VERSION);
$VERSION = '4.004'; # $Id: //depot/Tkutf8/Tk/widgets.pm#4 $
sub import
{
my $class = shift;
foreach (@_)
{
local $SIG{__DIE__} = \&Carp::croak;
# carp "$_ already loaded" if (exists $INC{"Tk/$_.pm"});
require "Tk/$_.pm";
}
}
1;
__END__
=cut