Hello,
Updating from fwh 8.10 to fwh 12.02 gives a error in tDtepick
Error description: Error BASE/1004 Class: 'NIL' has no exported method: EVAL
Args:
[ 1] = U
[ 2] = O TDATEPICK
Stack Calls
Called from: => EVAL( 0 )
Called from: .\source\classes\TDTPICKE.PRG => (b)TDATEPICK:NEW( 94 )
The offending line in tDtepick.prg :
::bValid = { || If( ::lClosed, Eval( bValid, Self ), .F. ) }
In 8.10 : ::bValid = bValid
In the dialog i have no valid clausule :
@ 10,10 DTPICKER oGet[1] VAR Van OF oDlg PIXEL SIZE 45,10
It seems that the ::bValid is executed with ::lClosed=.T. (set in method Notify ?) , bValid is nil
Changing as :
# ifdef FRANKDEMONT
::bValid = { || If(::lClosed, IIF( Valtype(bValid)=="B" , Eval( bValid, Self ) , .T.) , .F. ) }
# else
::bValid = { || If( ::lClosed, Eval( bValid, Self ), .F. ) }
# endif
Seems to work
Frank
Frank
