package Tk::Submethods;
use vars qw($VERSION);
$VERSION = '3.014'; # $Id: //depot/Tk8/Tk/Submethods.pm#14 $
sub import{my$class=shift;
no strict 'refs';
my$package=caller(0);
while(@_){my$fn=shift;
my$sm=shift;
foreach my $sub(@{$sm}){my($suffix)=$sub=~/(\w+)$/;
my$pfn=$package.'::'.$fn;
*{$pfn."\u$suffix"}=sub{shift->$pfn($sub,@_)};}}}sub Direct{my$class=shift;
no strict 'refs';
my$package=caller(0);
while(@_){my$fn=shift;
my$sm=shift;
my$sub;
foreach$sub(@{$sm}){*{$package.'::'.$sub}=sub{shift->$fn($sub,@_)};}}}1;
__END__

=cut
