Hi Tommy,
Try to activate a pad with ACTIVATE MENU ... PAD ...
Also, you don't need macro substitution in this case. The Name expression works fine where names are involved.
CLEAR
SET SYSMENU TO
SET SYSMENU automatic
main_menu = "_mSysMenu"
DEFINE MENU (Main_Menu) BAR AT LINE 1
DEFINE PAD _Cash_Reg OF (Main_Menu) PROMPT "\<Cash Register"
DEFINE PAD _Inventory OF (Main_Menu) PROMPT "\<Inventory"
DEFINE PAD _Utilities OF (Main_Menu) PROMPT "\<Utilities"
DEFINE PAD _Exit OF (Main_Menu) PROMPT "E\<xit"
ON SELECTION PAD _Cash_Reg OF (Main_Menu) DO Regtemp
ON PAD _Inventory OF (Main_Menu) ACTIVATE POPUP Inventory
ON PAD _Utilities OF (Main_Menu) ACTIVATE POPUP Utilities
ON SELECTION PAD _Exit OF (Main_Menu) DO myRETURN
ACTIVATE MENU (Main_Menu) PAD _Cash_Reg
>
>I am reworking an old project, which was written in FoxPro for DOS.... it has since been retouched for Windows... BUT...
>
>it had an old style DOS Menu system, and had some problems running under Windows XP in certain situations... so I am redoing it using the System Menu.
>
>With the old DOS style Menu, the first PAD was already depressed, and you could press ENTER to pick it and enter the menu selection for that PAD... good.
>
>But with the newer System Menu, the first PAD is not already depressed. I have to press ALT, then ENTER to select the first selection.
>
>Here is the code for it...
>
--sb--