SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _msm_file OF _MSYSMENU PROMPT "\<File" COLOR SCHEME 3 ;
NEGOTIATE LEFT, NONE ;
KEY ALT+F, "" ;
MESSAGE "Creates, opens, saves, prints files or quits Visual FoxPro"
DEFINE PAD _msm_edit OF _MSYSMENU PROMPT "\<Edit" COLOR SCHEME 3 ;
NEGOTIATE NONE, LEFT ;
KEY ALT+E, "" ;
MESSAGE "Edits text or current selection"
ON PAD _msm_file OF _MSYSMENU ACTIVATE POPUP _mfile
ON PAD _msm_edit OF _MSYSMENU ACTIVATE POPUP _medit
DEFINE POPUP _mfile MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mfi_quit OF _mfile PROMPT "E\<xit" ;
PICTRES _mfi_quit ;
MESSAGE "Quits Visual FoxPro"
DEFINE POPUP _medit MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _med_find OF _medit PROMPT "\<Find..." ;
KEY CTRL+F, "Ctrl+F" ;
PICTRES _med_find ;
MESSAGE "Searches for specified text"