Using backspace while editing in xBrowse causes RTE

[hua]

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)

[hua]

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)

[hua]

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)

[nageswaragunupudi]

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

Code: Select all  Expand view

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

 

[hua]

Thanks Rao. That solved the problem.