Help for this page

Select Code to Download


  1. or download this
    $Tcl::Tk::Widget::AUTOLOAD=sub{print 'tricky hacky sub'};
Tcl::Tk::Widget::AUTOLOAD($object)
  2. or download this
        my $method = $Tcl::Tk::Widget::AUTOLOAD;
    # Separate method to autoload from (sub)package
    $method =~ s/^(Tcl::Tk::Widget::((MainWindow|$ptk_w_names)::)?)//
    or die "weird inheritance ($method)";