Duhhhh.. Why the heck to I make it so complicated....

You da man...


>John,
>
>Interesting code. It could be made simpler by doint the following
>
>

>	PROCEDURE QueryUnload
>		lParameters lByPassRelease
>		Local lRetVal
>		lRetVal = .T.
>		*/ Check stuff here and store result to lretval
>		If NOT lRetVal
>                   NODEFAULT
>                   RETURN .F.
>		Endif
>	ENDPROC
>
>
>	PROCEDURE Release
>		lParameters lBypassQueryUnload
>		IF !This.QueryUnload()
>                   NoDefault
>                   RETURN .F.
>		Endif
>	ENDPROC
>

>
>Let QueryUnload do all of the checking for OkToRelease and return a value telling the Release what the result was.  BTW, this one also works with RELEASE oFormVar.