Tk::Error: window ".toplevel.frame.hlist.menu" was deleted before its visibility changed at 
C:/Perl/site/lib/Tk/Widget.pm line 1000.
 Tk callback for tkwait
 <Button-1>
 (command bound to event)