OOP Question

why dont you just create a list

Type My
	Field test:TGadget
	
	Method Update()
		x=x+1
	End Method
End Type

'.....
Local MyObjList:Tlist = CreateList()

Local mytestobj:my = CreateMyObj()

For Local myobj:my = EachIn MyObjList
	If ( EventSource()=MyObj.Test )
		MyObj.Update()
	End If
Next

Function CreateMyObj:My()
	Local myobj:my = New my
	MyObjList.addlast myobj
	Return myobj
End Function

somthing like that should work