Problem with WBROWSE class in FWH 9.08

[driessen]

Antonio,

I recompiled and linked my application, using FWH 9.08.

Unfortunately, I got an error if I move my mouse on a WBROWSE.

I linked the WBROWSE.PRG into my application to find out what the problem might be. This results in this error :

Application
===========
Path and name: C:\JUDA\JUDA_2.EXE (32 bits)
Size: 6,968,320 bytes
Time from start: 0 hours 0 mins 13 secs
Error occurred at: 25/08/2009, 17:14:45
Error description: Error BASE/1066 Argument error: conditional
Args:
[ 1] = U

Stack Calls
===========
Called from: PRG\Z-WBROWS.PRG => TWBROWSE:MOUSEMOVE(2016)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1453)
Called from: PRG\Z-WBROWS.PRG => TWBROWSE:HANDLEEVENT(1637)
Called from: .\source\classes\WINDOW.PRG => _FWH(3333)
Called from: => SYSREFRESH(0)
Called from: PRG\FGEGTL1.PRG => GETKEYSTATUS(183)
Called from: PRG\BEHAGEN1.PRG => CHNAAM1(3015)
Called from: PRG\BEHAGEN1.PRG => (b)TOONAG1(2906)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:GOTFOCUS(996)
Called from: PRG\Z-WBROWS.PRG => (b)TWBROWSE:TWBROWSE(175)
Called from: => TWBROWSE:GOTFOCUS(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1453)
Called from: PRG\Z-WBROWS.PRG => TWBROWSE:HANDLEEVENT(1637)
Called from: .\source\classes\WINDOW.PRG => _FWH(3333)
Called from: => ENDDIALOG(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:END(525)
Called from: .\source\function\ERRSYSW.PRG => (b)ERRORDIALOG(326)
Called from: .\source\classes\BUTTON.PRG => TBUTTON:CLICK(176)
Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT(1411)
Called from: .\source\classes\WINDOW.PRG => _FWH(3333)
Called from: => SENDMESSAGE(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:COMMAND(407)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT(928)
Called from: => DIALOGBOXINDIRECT(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273)
Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG(343)
Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS(27)
Called from: PRG\Z-WBROWS.PRG => TWBROWSE:MOUSEMOVE(2016)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1453)
Called from: PRG\Z-WBROWS.PRG => TWBROWSE:HANDLEEVENT(1637)
Called from: .\source\classes\WINDOW.PRG => _FWH(3333)
Called from: => DIALOGBOX(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273)
Called from: PRG\BEHAGEN1.PRG => TOONAG1(2910)
Called from: PRG\FGEGTL2.PRG => (b)BUILDBAR1(2727)
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK(447)
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP(657)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1453)
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT(1321)
Called from: .\source\classes\WINDOW.PRG => _FWH(3333)
Called from: => WINRUN(0)
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE(952)
Called from: C:\SOFTWARE\JUDA\PRG\JUDA.PRG => MAIN(687)

System
======
CPU type: Intel(R) Pentium(R) D CPU 3.00GHz -409315 Mhz
Hardware memory: 2047 megs

Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %

What might be the reason for this error ?

Thanks a lot in advance.

[mmercado]

Hello Driessen:

Unfortunately, I got an error if I move my mouse on a WBROWSE.

Add these two lines at WBrowse.prg MouseMove method after local definitions:

Code: Select all  Expand view

  Default ::lPressed := .F., ;
           ::lDown    := .F.
 

Same way, add this line at LButtonUp method:

Code: Select all  Expand view

  Default ::nAt := 0
 

This can make your app to work while Antonio reviews the problem.

Best regards.

Manuel Mercado.

[Antonio Linares]

Michel,

Please add these lines in Class TWBrowse Method Redefine()

Code: Select all  Expand view

   ::hCursorHand  = CursorOpenHand()
   ::lDown        = .T.
   ::lMoved       = .F.
   ::lPressed     = .F.
 

We will upload a new FWH build in a while, thanks

[driessen]

Antonio,

Thanks a lot for your solution.

[Antonio Linares]

MIchel,

There is a new FWH 9.08 build already available with this fix included

[driessen]

Antonio,

Everything is OK now.

Thanks a lot for your efforts.

[Antonio Linares]

Michel,

Thanks so much for your feedback