FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Error in TGet (FWH 9.04)
Posts: 1096
Joined: Fri Oct 28, 2005 02:27 AM
Error in TGet (FWH 9.04)
Posted: Wed May 06, 2009 04:30 AM
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
.... ::Pos == len( ::buffer )
to
.... ::buffer != nil .and. ::Pos == len( ::buffer )


The error is gone but is the fix accurate?
FWH 11.08/FWH 19.12

BCC5.82/BCC7.3

xHarbour/Harbour
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Error in TGet (FWH 9.04)
Posted: Wed May 06, 2009 08:31 AM

Hua,

Yes, your fix is right.

Many thanks for your feedback :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion