>PRIVATE o, x >o = NEWOBJECT('Empty') >ADDPROPERTY(o, 'FireInit') >x = NEWOBJECT('EmptyMethods') >BINDEVENT(o, 'FireInit', x, 'FireInit', 1) >CLEAR >o.FireInit = 1 && you will see 1 in the wait window instead of .F. >o.FireInit = 2 && you will see 2 in the wait window instead of 1 >o.FireInit = 3 && you will see 3 in the wait window instead of 2 > >DEFINE CLASS EmptyMethods AS Custom > > PROCEDURE FireInit >*!* IF TYPE('o.FireInit') = "N" >*!* o.FireInit = o.FireInit + 1 >*!* ELSE >*!* o.FireInit = 1 >*!* ENDIF > WAIT WINDOW 'FireInit fired - ' + TRANSFORM(o.FireInit) > ENDPROC > PROCEDURE Release > RELEASE THIS > ENDPROC > >ENDDEFINESo we can use it as an assign replacement...