$Tcl::Tk::Widget::AUTOLOAD=sub{print 'tricky hacky sub'};
Tcl::Tk::Widget::AUTOLOAD($object)