rebar sample crashes

[Detlef Hoefner]

Hi All,

i wanted to study the class tPanel and tried to build the FWH sample 'rebars.exe'.
But the exe file crashes at start withe the following log:

Code: Select all  Expand view

  Error description: Error BASE/1004  Class: 'NIL' has no exported method: NCOUNT
   Args:
     [   1] = U  

Stack Calls
===========
   Called from:  => NCOUNT(0)
   Called from: .\source\classes\WINDOW.PRG => (b)TWINDOW:TWINDOW(0)
   Called from:  => TPANEL:SETBRUSH(0)
   Called from: .\source\classes\TPanel.PRG => TPANEL:NEW(0)
   Called from: rebars.prg => MAIN(15)
 

What could be wrong there?

Thanks and regards,
Detlef

[Antonio Linares]

Detlef,

That error has been fixed in FWH 9.02 (it is listed in the published whatsnew).

You can fix it this way:

1) Class TPanel line 53:

Code: Select all  Expand view

  if ! Empty( ::oWnd:hWnd )
      ::Create()
      ::oWnd:AddControl( Self )
      if ::oWnd:oBrush != nil
         ::SetBrush( ::oWnd:oBrush )
      endif  
   else
      ::oWnd:DefControl( Self )
   endif
 

2) Class TFolder line 193, add this new line:

Code: Select all  Expand view

  ::lTransparent = .F.