Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w

...
sub closeWindow() {
   $TestWindow->destroy();
}

Select or download this

Subroutine Tk_cmd redefined at D:/Perl/site/lib/Tk/TopLevel.pm line 14
+.
Subroutine CreateOptions redefined at D:/Perl/site/lib/Tk/TopLevel.pm 
+line 17.
...
 Tk::__ANON__ at D:/Perl/site/lib/Tk.pm line 228
 Tk::Button::butUp at D:/Perl/site/lib/Tk/Button.pm line 111
 (command bound to event)