Select Code to Download

   $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
 <Button-1>
 (command bound to event)