* Create a PRG TEXT TO lcPrg NOSHOW DEFINE CLASS myNewClass AS Session PROCEDURE Test WAIT WINDOW 'Test!' ENDPROC ENDDEFINE ENDTEXT STRTOFILE(lcPrg, 'custom\testdcx.prg') oO = NEWOBJECT('myNewClass', 'custom\testdcx.prg') oO.Test()The following, works regardless of where it's running from:
* Create a PRG TEXT TO lcPrg NOSHOW DEFINE CLASS myNewClass AS Session PROCEDURE Test WAIT WINDOW 'Test!' ENDPROC ENDDEFINE ENDTEXT STRTOFILE(lcPrg, 'custom\testdcx.prg') COMPILE custom\testdcx.prg oO = NEWOBJECT('myNewClass', 'custom\testdcx.prg') oO.Test()