TOPIC:

CLASS Test

	~"ONLYEARLY+"
	DECLARE METHOD EarlyMethod
	~"ONLYEARLY-"

METHOD EarlyMethod(nArg AS INT) AS VOID PASCAL CLASS Test

	? nArg

RETURN

FUNCTION doTest() AS VOID PASCAL
LOCAL oTest AS Test
LOCAL cbGood, cbBad AS CODEBLOCK

	oTest := Test{}
	
	 // this compiles with no errors (with a suppressible warning)
	cbGood := {|oTestClass AS Test, nParam AS INT| oTestClass:EarlyMethod(nParam)}

	Eval(cbGood, oTest, 5) // prints 5 as expected

	// and that will not compile due to type incompatibilty of the argument:
	cbBad := {|oTestClass AS Test| oTestClass:EarlyMethod("string")}

RETURN

cbGood := {|uTestClass , uParam | 
   LOCAL oTestClass := uTestClass as Test 
   LOCAL nParam := uParam as INT
   oTestClass:EarlyMethod(nParam) 
   RETURN NIL 
   }

cbGood := {|oTestClass , nParam |  ((Test) oTestClass ):EarlyMethod( (int) nParam ) }