$VERSION = '3.014'; # $Id: //depot/Tk8/Tk/Submethods.pm#14 $
my ($suffix) = $sub =~ /(\w+)$/;
my $pfn = $package.'::'.$fn;
*{$pfn."\u$suffix"} = sub { shift->$pfn($sub,@_) };
# eval "sub ${package}::${sub} { shift->$fn('$sub',\@_) }";
*{$package.'::'.$sub} = sub { shift->$fn($sub,@_) };