IF THIS.READONLY * Set lReturn so a subclass knows that a STOP occurred. THIS.lReturn = .T. RETURN (THIS.lReturn) ENDIF4. Each time I subclass this control, I'll need to put the following in the Valid(), if available validation is necessary:
DODEFAULT() IF ISNULL(THIS.lreturn) *!* * Do necessary validation for this subclass such as: *!* IF EMPTY(THIS.VALUE) *!* * Set lReturn so a subclass knows that a STOP occurred. *!* THIS.lreturn = .F. *!* RETURN (THIS.lreturn) *!* ENDIF ELSE * A return value was assigned by parent class. Use it. RETURN (THIS.lReturn) ENDIF