[RESOLU]bug sub_menu

' panoramic 0927i5

dim menu_start%,menu_next%,file_menu%,new_value%

label openfile,exit


new_value%=34   :' à partir de 34= erreur et 100= violation d'acces
    
    
' menu principal
inc_value()
menu_start%=new_value%
main_menu menu_start%


' sous-menu FICHIER
inc_value()
file_menu%=new_value%
sub_menu file_menu% : caption file_menu%,"Fichier" : parent file_menu%,menu_start%


' categorie dans le sous-menu fichier
inc_value()
menu_next%=new_value%
sub_menu menu_next% : caption menu_next%,"Ouvir" : parent menu_next%,file_menu% : on_click menu_next%,openfile
'
inc_value()
menu_next%=new_value%
sub_menu menu_next% : caption menu_next%,"Quitter" : parent menu_next%,file_menu% : on_click menu_next%,exit



END
openfile:
   wait 100
return


exit:
   message str$(menu_next%)
   terminate
return


sub inc_value()
   new_value%=new_value%+1
end_sub