The following code should do a sub menu as :
TEST1 TEST2
Under TEST2:
popTEST2 - choice1 should give me a wait message
popTEST2 - choice2 should give me a sub-menu
(and mark it with an arrow)
Everything ok BUT the sub-menu under popTEST2 doesn't show as a sub-menu. Instead, it goes directly under the main bar. What did I forgot. I compared with a menu.mpr code and it seems very similar from what I have seen.
Any suggestion?
Thanks
Eric
--The code----
SET SYSMENU TO
DEFINE MENU wsmenu BAR IN SCREEN
DEFINE PAD TEST1 OF wsmenu PROMPT "TEST1"
DEFINE PAD TEST2 OF wsmenu PROMPT "TEST2"
ON PAD TEST1 OF wsmenu WAIT "TEST1!" WINDOW
ON PAD TEST2 OF wsmenu ACTIVATE POPUP popTEST2
DEFINE POPUP popTEST2 MARGIN RELATIVE
DEFINE BAR 1 OF popTEST2 PROMPT "popTEST2 - choice1"
DEFINE BAR 2 OF popTEST2 PROMPT "popTEST2 - choice2"
ON SELECTION BAR 1 OF popTEST2 WAIT "popTest2 - choice1" WINDOW
ON SELECTION BAR 2 OF popTEST2 ACTIVATE POPUP spopTEST
DEFINE POPUP spopTEST MARGIN RELATIVE
DEFINE BAR 1 OF spopTEST PROMPT "ALLO"
DEFINE BAR 2 OF spopTEST PROMPT "OLLA"
ACTIVATE MENU wsmenu