$winInfoRef->{MENU}= $winInfoRef->{HLIST}->Menu(-tearoff=>1, #### #~ my $pop_menu = $frame->Menu( -menuitems => our $pop_menu ; $pop_menu ||= $frame->Menu( -menuitems => #### 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 (command bound to event)