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