tDatepick : error in 12.02

[Demont Brecht]

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

[Antonio Linares]

Frank,

Yes, we recently detected that bug in FWH 12.02 and we commented it here in the forums and proposed a similar solution like yours

viewtopic.php?p=126788#p126788

[mgsoft]

Thank you.

Will you publish a revised build?.

[Antonio Linares]

Eduardo,

Not yet, unless other bugs arise