Help for this page

Select Code to Download

Select or download this

my $old = *{Tk::MainLoop}{CODE};
*Tk::MainLoop = sub { ... };