use overload
'""' => \
&name
;
$VERSION = '3.007'; # $Id: //depot/Tk8/Text/Text/Tag.pm#7 $
$self->widget->tag($meth => $self->name,@_);
foreach $meth (qw(cget configure bind add))
*{$meth} = sub { shift->_apply($meth,@_) }
my $obj = bless [$name,$widget],$class;
$obj->configure(@_) if (@_);