x=CREATEOBJECT("testbind")
ADDPROPERTY(x,"some[1]")

BINDEVENT(x,"some",x,"delegate")

? "BUG ? : write into the property don't call delegate"

x.some[1] = null

*UNBINDEVENTS(x,"some",x,"delegate")

CLEAR TYPEAHEAD
WAIT "CRASH: To remove an array bind to a method " TIMEOUT 1

REMOVEPROPERTY(x,"some")


DEFINE CLASS testbind as Custom

	PROCEDURE delegate
		? "delegate"
		
ENDPROC