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

##</code><code>##

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

##</code><code>##

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)