* TESTBUG structure files * progtest.prg * myClasslib.vcx (myClass) * INCLUDEPATH1 * incfile1.h * INCLUDEPATH2 * incfile1.h the bug file ! * incfile2.h should to use ..\INCLUDEPATH1\incfile1.h CD TESTBUG MD INCLUDEPATH1 MD INCLUDEPATH2 SET TEXTMERGE NOSHOW OFF SET TEXTMERGE TO INCLUDEPATH1\incfile1.h \#DEFINE constant1 "I'm the correct constant" SET TEXTMERGE TO INCLUDEPATH2\incfile1.h \#DEFINE constant1 "I'm the bug" SET TEXTMERGE TO INCLUDEPATH2\incfile2.h \#INCLUDE ..\INCLUDEPATH1\incfile1.h \#DEFINE constant2 constant1 SET TEXTMERGE TO progtest.prg \#INCLUDE INCLUDEPATH2\incfile2.h \? constant2 SET TEXTMERGE TO CREATE CLASSLIB myClasslib.vcx save_INCLUDE = _INCLUDE _INCLUDE = "INCLUDEPATH2\incfile2.h" CREATE CLASS myClass OF myClasslib.vcx AS CUSTOM NOWAIT _INCLUDE = m.save_INCLUDE ASELOBJ(acd,1) SET TEXTMERGE TO MEMVAR initcode \? constant2 SET TEXTMERGE TO acd[1].WriteMethod("Init",initcode) KEYBOARD '{CTRL+W}' PLAIN CLEAR DOEVENTS * START TEST CLEAR ? "program" DO progtest.prg ? "vcx class" =NEWOBJECT("myClass","myClasslib.vcx") CLEAR CLASSLIB myClasslib CLEAR ALL ERASE INCLUDEPATH2\*.* ERASE INCLUDEPATH1\*.* ERASE *.* RD INCLUDEPATH1 RD INCLUDEPATH2 CD .. RD TESTBUG