Error in TGet (FWH 9.04)

[hua]

The error that I got:

Application
===========
Error description: Error BASE/1111 Argument error: LEN
Args:
[ 1] = U

Stack Calls
===========
Called from: => LEN(0)
Called from: TGET.PRG => TGET:KEYDOWN(888)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1453)
Called from: TGET.PRG => TGET:HANDLEEVENT(588)
Called from: .\source\classes\WINDOW.PRG => _FWH(3333)
Called from: => DIALOGBOX(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273)
Called from: CPV.PRG => CPV_BACCN(575)
.

So, at line 888 and 957 in tget.prg I changed

.... ::oGet:Pos == len( ::oGet:buffer )

to

.... ::oGetPos:buffer != nil .and. ::oGet:Pos == len( ::oGet:buffer )

The error is gone but is the fix accurate?

[Antonio Linares]

Hua,

Yes, your fix is right.

Many thanks for your feedback