Re^3: Why does widget->destroy give the error Tk::Error widget was deleted before its visibility changed?

Select or download this

   $winInfoRef->{MENU}= $winInfoRef->{HLIST}->Menu(-tearoff=>1,

Select or download this

#~ my $pop_menu = $frame->Menu(  -menuitems =>
our $pop_menu ;
$pop_menu ||= $frame->Menu(  -menuitems =>

Select or download this

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)

Select Code to Download