Rajesh,

have a look at the following sample code :

Best wishes,
Neil

* -------------------------------------------
SET PROC TO testproc
*
* TestProc just contains the following lines
* FUNCTION whenclause
* RETURN goTestobject.WHEN()
* FUNCTION validclause
* RETURN goTestobject.VALID()
*

goTestobject = CREATEOBJECT('browsehandler')

BROWSE NORM VALID validclause() WHEN whenclause() NAME loWhatever

DEFINE CLASS browsehandler AS CUSTOM

NAME = "browsehandler"

PROCEDURE WHEN
WAIT WINDOW 'WHEN called - user wants to change rows'
RETURN .T. && return .F. if record doesn't pass test
ENDPROC


PROCEDURE VALID
WAIT WINDOW 'VALID called - record has changed'
RETURN .T. && return .F. if record doesn't pass test
ENDPROC


ENDDEFINE