error btnget and fwh712

[norberto]

hi, i receive this:

Error description: Error BASE/1070 Erro nos parametros: ==
Args:
[ 1] = C
[ 2] = N 0

Stack Calls
===========
Called from: TGET.prg => TBTNGET:KEYDOWN(682)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: CONTROL.prg => TCONTROL:HANDLEEVENT(1392)
Called from: TGET.prg => TBTNGET:HANDLEEVENT(486)
Called from: WINDOW.prg => _FWH(3267)

theres any fix? thanks

[Antonio Linares]

Norberto,

What source code do you have in line 682 ?

TBTNGET:KEYDOWN(682)

[norberto]

Antonio, this:

if ::bKeyDown != nil
if Eval( ::bKeyDown, nKey, nFlags, Self ) == 0
return 0
endif
endif

i comment this , and works again, but i dont know what´s affect.

thanks

[nageswaragunupudi]

Where is teh TBtnGet Class? It is not in FWH.

[norberto]

BtnGet is an 3rd part lib , free, i compile the source. works fine until fwh712.

[Antonio Linares]

Norberto,

Please modify Class TGet this way:

Code: Select all

   if ::bKeyDown != nil
      if ValType( uVal := Eval( ::bKeyDown, nKey, nFlags, Self ) ) == "N" .and. ;
         uVal == 0
         return 0
      endif   
   endif   

[ShumingWang]

\source\btnget.prg

line 128:
change
::bKeyDown := { | nKey | IIF( nKey == VK_F2, ;
eval( ::bAction ), "") }

into

::bKeyDown := { | nKey | IIF( nKey == VK_F2, ;
eval( ::bAction ), ) }


Regards!

Shuming Wang