>STORE "Y" TO my_mvar >>any time that I click on the
>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" > >ON PAD _msm_file OF _MSYSMENU ACTIVATE POPUP _mfile > >DEFINE BAR _mfi_savas OF _mfile PROMPT "Save \<As..." >>
...... DEFINE BAR 2 OF _mfile PROMPT "Save \<As..." ; PICTRES _mfi_savas ; MESSAGE "Saves changes to the current file with a new name" ON SELECTION BAR 2 OF _mfile MyTest PROCEDURE MyTest STORE "Y" TO my_var SYS(1500,"_MFI_SAVAS","_MFILE") ENDPROC(not tested)