Lines Matching refs:cur_menu
5219 my $cur_menu=($filtered_menu)?$parent_menu:$MenuUnit_hash_ref;
5236 $FullMenu->{$cur_menu}[11]=$pst;
5278 delete $Selected->{$cur_menu}{$numbor};
5280 &delete_Selected($cur_menu,$numbor,
5289 &delete_Selected($cur_menu,$prev_menu,
5305 {$cur_menu}[2]
5319 =$get_result->($cur_menu,
5323 %{$SavePick->{$cur_menu}}=%picks;
5324 $Conveyed->{&pw($cur_menu)}=[];
5327 push @{$Conveyed->{&pw($cur_menu)}},
5331 $Conveyed->{&pw($cur_menu)}=
5335 unless (exists $SaveMMap->{$cur_menu}) {
5345 $SaveMMap->{$cur_menu}=$pmap;
5347 $SaveMMap->{$cur_menu});
5352 $SaveMMap->{$cur_menu}=eval $parent_map;
5354 $SaveMMap->{$cur_menu});
5356 $SaveMMap->{$cur_menu}=[];
5360 push @{$SaveMMap->{$cur_menu}},
5363 push @{$SaveMMap->{$cur_menu}},
5368 {$cur_menu}[2]
5373 $cur_menu,$no_wantarray;
5375 $MenuMap=$SaveMMap->{$cur_menu};
5384 if (exists $Selected->{$cur_menu}
5386 $menu_result=$Selected->{$cur_menu}
5391 $menu_result=$FullMenu->{$cur_menu}[2]
5403 $cur_menu,$no_wantarray);