DEFINE CLASS Viv AS SESSION OLEPUBLIC PROCEDURE ADDP(NAME,CLASS) o = CREATEOBJECT(NAME) THIS.ADDPROPERTY(NAME,o) ENDPROC PROCEDURE ReturnValue(x) RETURN EVALUATE(x) ENDPROC ENDDEFINE DEFINE CLASS VivTest AS CURSOR ss = "Hello, world" ENDDEFINEthen
lO = CreateObject("whatever.whatever") lO.AddP("VivTest") ? lO.ReturnValue("this.VivText.ss")works showing that the object was created OK but only visible through Properties/Methods exposed in the COM interface...