samples\inspect.prg doesn't work

[gkuhnert]

Hi,

when I compile samples\inspect.prg, I get following error:

Application
===========
Path and name: D:\fw809\fwh\samples\inspect.exe (32 bits)
Size: 1,570,304 bytes
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 09/19/08, 13:08:05
Error description: Error BASE/1108 Argument error: AT
Args:
[ 1] = C \rtf
[ 2] = N 32

Stack Calls
===========
Called from: => AT(0)
Called from: .\source\function\GTF.PRG => ISRTF(0)
Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:PAINTDATA(0)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAINT(0)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DISPLAY(0)
Called from: .\source\classes\CONTROL.PRG => TXBROWSE:HANDLEEVENT(0)
Called from: .\source\classes\WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE(0)
Called from: inspect.prg => MAIN(18)

[ukoenig]

Hello Gilbert,

The same error.
For the moment, i changed back to FWH 8.08,
because after intensitive xBrowse-testing,
there have been strange behaviours, i didn't have with
version 8.08.

Regards
Uwe

[Antonio Linares]

This fix is required in Class TXBrowse:

line 5857:

Code: Select all  Expand view

      if ValType( cData ) == "C" .and. IsRtf( cData )
         cData := "<RichText>"
      endif


With such change, samples\Inspect.prg is working fine.

A new FWH build with this fix will be available in just some minutes, thanks!