Using backspace while editing in xBrowse causes RTE

Posts: 1096

Joined: Fri Oct 28, 2005 02:27 AM

Using backspace while editing in xBrowse causes RTE
Posted: Thu Apr 22, 2010 05:10 AM

Linked with FWH10.3. Using testxbr3 in \samples. Please see this video for the full detail. The keystrokes that I used during editing the xbrowse's cell was Enter, Backspace x 3.

Application
===========
Path and name: J:\harbour\fwh\samples\testxbr3.exe (32 bits)
Size: 2,270,208 bytes
Time from start: 0 hours 0 mins 7 secs
Error occurred at: 22-04-2010, 13:31:30
Error description: Error BASE/1075 Argument error: >
Args:
[ 1] = U
[ 2] = N 1

Stack Calls
===========
Called from: source\rtl\tget.prg => TCLIPGET:BACKSPACE(1974)
Called from: .\source\classes\TGET.PRG => TGET:KEYDOWN(1025)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1483)
Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT(600)
Called from: .\source\classes\WINDOW.PRG => _FWH(3378)
Called from: => WINRUN(0)
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE(971)
Called from: testxbr3.prg => MAIN(42)

FWH 11.08/FWH 19.12

BCC5.82/BCC7.3

xHarbour/Harbour

hua

Posts: 1096

Joined: Fri Oct 28, 2005 02:27 AM

Re: Using backspace while editing in xBrowse causes RTE
Posted: Thu Apr 22, 2010 05:18 AM

Enter, Left arrow, Left arrow also produce a run-time error too. Here's the error.log

Application
===========
Path and name: J:\harbour\fwh\samples\testxbr3.exe (32 bits)
Size: 2,270,208 bytes
Time from start: 0 hours 0 mins 32 secs
Error occurred at: 22-04-2010, 13:18:16
Error description: Error BASE/1093 Argument error: MAX
Args:
[ 1] = U
[ 2] = N 1

Stack Calls
===========
Called from: => MAX(0)
Called from: .\source\classes\TGET.PRG => TGET:KEYDOWN(857)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1483)
Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT(600)
Called from: .\source\classes\WINDOW.PRG => _FWH(3378)
Called from: => WINRUN(0)
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE(971)
Called from: testxbr3.prg => MAIN(42)

FWH 11.08/FWH 19.12

BCC5.82/BCC7.3

xHarbour/Harbour

hua

Posts: 1096

Joined: Fri Oct 28, 2005 02:27 AM

Re: Using backspace while editing in xBrowse causes RTE
Posted: Thu Apr 22, 2010 05:30 AM

Error.log when the key used are Enter, Right arrow x 3

Application
===========
Path and name: J:\harbour\fwh\samples\testxbr3.exe (32 bits)
Size: 2,270,208 bytes
Time from start: 0 hours 0 mins 9 secs
Error occurred at: 22-04-2010, 13:28:52
Error description: Error BASE/1111 Argument error: LEN
Args:
[ 1] = U

Stack Calls
===========
Called from: => LEN(0)
Called from: .\source\classes\TGET.PRG => TGET:KEYDOWN(900)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1483)
Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT(600)
Called from: .\source\classes\WINDOW.PRG => _FWH(3378)
Called from: => WINRUN(0)
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE(971)
Called from: testxbr3.prg => MAIN(42)

FWH 11.08/FWH 19.12

BCC5.82/BCC7.3

xHarbour/Harbour

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Using backspace while editing in xBrowse causes RTE
Posted: Thu Apr 22, 2010 09:59 AM

Please replace line no.9840 of xbrowse.prg ( 10.3 ) with the following line:

Code (fw): Select all Collapse

            case ( nKey == VK_SPACE .or. ( nKey > 47 .and. nKey < 96 ) ) .and.  ::oEditGet:oGet:TypeOut .and. !Set( _SET_CONFIRM )

Regards

G. N. Rao.

Hyderabad, India

hua

Posts: 1096

Joined: Fri Oct 28, 2005 02:27 AM

Re: Using backspace while editing in xBrowse causes RTE
Posted: Fri Apr 23, 2010 01:59 AM

Thanks Rao. That solved the problem.

FWH 11.08/FWH 19.12

BCC5.82/BCC7.3

xHarbour/Harbour

FiveTech Support Forums

Continue the discussion