* jlkstart.prg SET SYSMENU TO DEFAULT DO C:\JLKStart.MPR SET KEYBOARD "{CTRL+F2}" * FUNCTION l_gofox LPARAMETERS m.tcNaApp DO CASE CASE UPPER(ALLTRIM(m.tcNaApp)) == "GAMINGPROD" RESTORE MACROS FROM n:\Production\gaming\ppubvars.fky KEYBOARD "{ALT+F12}" KEYBOARD "{ENTER}" MODIFY WINDOW SCREEN TITLE "We're developing in "+VERSION()+" n:\Production\gaming" KEYBOARD "{ENTER}" KEYBOARD "gcDataPath=gcDefaultDir+'\data\'" KEYBOARD "{ENTER}" *!* CASE UPPER(ALLTRIM(m.tcNaApp))=="GAMINGDEV" RESTORE MACROS FROM n:\test\gaming\dpubvars.fky KEYBOARD "{ALT+F12}" KEYBOARD "{ENTER}" MODIFY WINDOW SCREEN TITLE "We're developing in "+VERSION()+" n:\test\gaming" KEYBOARD "{ENTER}" KEYBOARD "gcDataPath=gcDefaultDir+'\data\'" KEYBOARD "{ENTER}" CASE UPPER(ALLTRIM(m.tcNaApp))=="TIMERECS" KEYBOARD "CD L:\TimeRecs" KEYBOARD "{ENTER}" KEYBOARD "SET PATH TO L:\TimeRecs;L:\TimerRecs\Data;L:\TimeRecs\Programs" KEYBOARD "{ENTER}" KEYBOARD "SET DEFAULT TO L:\TimeRecs" KEYBOARD "{ENTER}" MODIFY WINDOW SCREEN TITLE "We're developing in "+VERSION()+" L:\TimeRecs" CASE UPPER(ALLTRIM(m.tcNaApp))=="HAP2000" KEYBOARD "CD M:\DEV_HAP\Hap2000" KEYBOARD "{ENTER}" KEYBOARD "SET PATH TO M:\DEV_HAP\Hap2000;M:\DEV_HAP\Hap2000\Data" KEYBOARD "{ENTER}" KEYBOARD "SET DEFAULT TO M:\DEV_HAP\Hap2000" KEYBOARD "{ENTER}" MODIFY WINDOW SCREEN TITLE "We're developing in "+VERSION()+" M:\DEV_HAP\Hap2000" CASE UPPER(ALLTRIM(m.tcNaApp))=="PHONEBILL" KEYBOARD "CD P:\" KEYBOARD "{ENTER}" KEYBOARD "SET PATH TO P:\" KEYBOARD "{ENTER}" KEYBOARD "SET DEFAULT TO P:\" KEYBOARD "{ENTER}" MODIFY WINDOW SCREEN TITLE "We're developing in "+VERSION()+" P:\ " CASE UPPER(ALLTRIM(m.tcNaApp))=="VMP" KEYBOARD "DO E:\VMP4\Path.prg" KEYBOARD "{ENTER}" KEYBOARD "SET DEFAULT TO E:\VMP4\VM" KEYBOARD "{ENTER}" MODIFY WINDOW SCREEN TITLE "We're developing in "+VERSION()+" E:\VMP4\VM" OTHER WAIT WINDOW "Better clean up the Menu!" ENDCASE CLEAR CLEAR PROGRAM RETURN .T. ENDFUNCHere is the MPR for the menu:
* ********************************************************* * * * * 07/14/2000 JLKSTART.MPR 10:56:16 * * * ********************************************************* * * * * Author's Name * * * * Copyright (C) 2000 Company Name * * Address * * City, Zip * * * * Description: * * This PROGRAM was automatically generated BY GENMENU. * * * ********************************************************* * ********************************************************* * * * * Menu Definition * * * ********************************************************* * DEFINE PAD _05g0nfz1a OF _MSYSMENU PROMPT "\<Dev" COLOR SCHEME 3 ; KEY ALT+D, "" ON PAD _05g0nfz1a OF _MSYSMENU ACTIVATE POPUP dev DEFINE POPUP dev MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF dev PROMPT "GAMINGPROD" DEFINE BAR 2 OF dev PROMPT "GAMINGDEV" DEFINE BAR 3 OF dev PROMPT "TIMERECS" DEFINE BAR 4 OF dev PROMPT "PHONEBILL" DEFINE BAR 5 OF dev PROMPT "HAP2000" ON SELECTION BAR 1 OF dev DO l_gofox IN C:\JLKstart.prg WITH PROMPT() ON SELECTION BAR 2 OF dev DO l_gofox IN C:\JLKstart.prg WITH PROMPT() ON SELECTION BAR 3 OF dev DO l_gofox IN C:\JLKstart.prg WITH PROMPT() ON SELECTION BAR 4 OF dev DO l_gofox IN C:\JLKstart.prg WITH PROMPT() ON SELECTION BAR 5 OF dev DO l_gofox IN C:\JLKstart.prg WITH PROMPT()The keyboard macros contain commands to set up each environment as needed.