******************************************************************* FUNCTION SetPath() ******************************************************************* LOCAL lcSys16, lcProgram, lcPath *** Grab name of program that called this one. lcSys16 = SYS( 16, 1 ) lcProgram = JUSTFNAME( lcSys16 ) *** Change to the directory that the program is in CD JUSTPATH( lcSys16 ) *** If we are running the main program directly, then *** CD up to the parent directory IF JUSTEXT( lcProgram ) = "FXP" CD .. ENDIF *** Go ahead and set the path IF VERSION(2) # 0 *** We are in Development Mode *** Set up Project search path lcPath = HOME() + ';' + FULLPATH( CURDIR() ) + [;form;libs;include;menu;data;prog;report;graphics] ELSE *!* We are in Production Mode *!* Set up application search path lcPath = HOME() + ';' + FULLPATH( CURDIR() ) + [;data;report;graphics] ENDIF SET PATH TO ( lcPath ) *** and the classlibs SET CLASSLIB TO application, BaseForm, BaseCtrl, stdCustom, DataContainer, ADDITIVE SET PROCEDURE TO GlobalProcs ADDITIVE ENDFUNC