Commit | Line | Data |
---|---|---|
86530b38 AT |
1 | package Tk::widgets; |
2 | use Carp; | |
3 | ||
4 | use vars qw($VERSION); | |
5 | $VERSION = '3.011'; # $Id: //depot/Tk8/Tk/widgets.pm#11 $ | |
6 | ||
7 | sub import | |
8 | { | |
9 | my $class = shift; | |
10 | foreach (@_) | |
11 | { | |
12 | local $SIG{__DIE__} = \&Carp::croak; | |
13 | # carp "$_ already loaded" if (exists $INC{"Tk/$_.pm"}); | |
14 | require "Tk/$_.pm"; | |
15 | } | |
16 | } | |
17 | ||
18 | 1; | |
19 | __END__ | |
20 | ||
21 | =cut |