Select Code to Download

Tk::Error: window ".toplevel.frame1.hlist.menu" was deleted before its
+ visibility changed at C:/Dwimperl/perl/site/lib/Tk/Widget.pm line 10
+00.
Tk callback for tkwait

<Button-1>
(command bound to event)

#!/usr/bin/perl -w
use strict;     
...
door($mw);     

MainLoop;