Define Pad MyPadName of _MSysMenu Prompt " MyPadName \<Prompt " On Pad MyPadName of _MSysMenu Activate PopUp MyPopUpName1 Define PopUp MyPopUpName1 Define Bar 1 of MyPopUpName1 Prompt " MyPopUpName1 Bar \<1 Prompt " Define Bar 2 of MyPopUpName1 Prompt " MyPopUpName1 Bar \<2 Prompt " Define Bar 3 of MyPopUpName1 Prompt " MyPopUpName1 Bar \<3 Prompt " On Bar 1 of MyPopUpName1 Activate PopUp MyPopUpName2 On Bar 2 of MyPopUpName1 ... On Bar 2 of MyPopUpName1 ... Define PopUp MyPopUpName2 Define Bar 1 of MyPopUpName2 Prompt " MyPopUpName2 Bar \<1 Prompt " Define Bar 2 of MyPopUpName2 Prompt " MyPopUpName2 Bar \<2 Prompt " Define Bar 3 of MyPopUpName2 Prompt " MyPopUpName2 Bar \<3 Prompt "Below is the routine I put just after the definition of the entire menu system:
cMainMenu = "_MSysMenu" nCntPad = CntPad (cMainMenu) For nPad = 1 To nCntPad cMenuName = Lower (GetPad (cMainMenu, nPad )) cMenuPrompt = PrmPad (cMainMenu, cMenuName) Messagebox (cMainMenu + "." + ; cMenuName + " [" + cMenuPrompt + "]") Define Pad &cMenuName of &cMainMenu Prompt Upper (cMenuPrompt) nCntBar = CntBar (cMenuName) If nCntBar > 0 LoopThruBars (cMenuName, nCntBar) endif EndFor Procedure LoopThruBars *--------- ------------ LParameters pMenuName, pCntBar Local cMenuName, nCntBar, nBar cMenuName = pMenuName For nBar = 1 To pCntBar nBarPosition = GetBar (cMenuName, nBar ) cBarPrompt = PrmBar (cMenuName, nBarPosition) cBarPosition = lTrim (Str (nBarPosition)) MessageBox (cMainMenu + "." + ; cMenuName + "." + ; cBarPosition + " [" + cBarPrompt + "]") If ! Empty (cBarPrompt) Define Bar &cBarPosition of &cMenuName Prompt Upper (cBarPrompt) endif * nCntBar = CntBar (cMenuName) * nCntBar = CntPad (cMenuName) * If nCntBar > 0 * LoopThruBars (cMenuName, nCntBar) * endif EndFor EndProcAny ideas or help on how to achieve my goal will be very appreciated.