255  sub _AutoloadTkWidget
256  {
257   my ($self,$method) = @_;
258   my $what = "Tk::Widget::$method";
259   unless (defined &$what)
260    {
261     require "Tk/$method.pm";
262    }
263   return $what;
264  }