Jaime,
This works for me:
m1 = CREATEOBJECT("Test")
? m1.Test("MyFunc1","func1")
? m1.Test("MyFunc2","func2")
DEFINE CLASS Test AS Custom
FUNCTION Test(a1 AS String, a2 AS String) AS String
RETURN EVALUATE("this."+a1+"('"+a2+"')")
FUNCTION MyFunc1(a1)
RETURN "Function 1 "+a1
FUNCTION MyFunc2(a1)
RETURN "Function 2 "+a1
ENDDEFINEthis also:
m1 = CREATEOBJECT("Test")
? m1.Test("MyFunc1","func1")
? m1.Test("MyFunc2","func2")
DEFINE CLASS Test AS Custom
FUNCTION Test(a1 AS String, a2 AS String) AS String
LOCAL cTest
cTest = "this."+a1+"('"+a2+"')"
RETURN &cTest.
FUNCTION MyFunc1(a1)
RETURN "Function 1 "+a1
FUNCTION MyFunc2(a1)
RETURN "Function 2 "+a1
ENDDEFINE
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
