[bug] crash on TEdit

[AntoninoP]

Hello,
I am trying the TEdit control, and i encountered a crash, Error BASE/1004 Message not found: TEDIT:VALTYPE, here:

Code: Select all  Expand view

METHOD VarPut( uVal ) CLASS TEdit

   if PCount() == 1
      if ::cType == 'C'
         uVal  := cValToChar( uVal )
      endif
      if ::ValType( ::bSetGet ) ==  'B'
         Eval( ::bSetGet, uVal )
      endif
   endif

return ::VarGet()

obviously it is necessary remove :: before Valtype...
I already fix my personal version

[nageswaragunupudi]

You are right.
Thanks for pointing out.
This is fixed at our end for next release.