CLEAR >PUBLIC oObj >oObj = NEWOBJECT("mySubClass") >oObj.myProperty = "Test" >RETURN > >DEFINE CLASS myClass as Custom >myProperty = "" > >PROCEDURE myProperty_Assign() > LPARAMETERS vNewVal > this.myProperty = vNewVal > ? TIME(), 'Close ' + this.myProperty >ENDPROC >ENDDEFINE > >DEFINE CLASS mySubClass as myClass >PROCEDURE myProperty_Assign() > LPARAMETERS vNewVal > DODEFAULT(vNewVal) > ? TIME(), 'Open ' + this.myProperty >ENDPROC >ENDDEFINE >>
>>define mySubClass as myClass >>enddefine >> >>myClass.myProperty_Assign() >> lparameters vNewVal >> this.myProperty = vNewVal >> this.myControl_1.caption = 'Close ' + this.myProperty >> >>mySubClass.myProperty_Assign() >> lparameters vNewVal >> dodefault(vNewVal) >> this.myControl_2 = 'Open ' + this.myProperty >> >>>>When I trace through it, as soon as I assign a value to myProperty, it immediately jumps to myClass.myProperty_Assign(), it skips over mySubClass.myProperty_Assign()