FiveTech Support Forums

Hi,
I compile testtre2
I run it
I click here

I've got this error
Application
===========
Path and name: C:\FWH\samples\testtre2.exe (32 bits)
Size: 1,916,416 bytes
Time from start: 0 hours 0 mins 1 secs
Error occurred at: 11/30/09, 14:46:14
Error description: Error BASE/1004 Class: 'NIL' has no exported method: CPROMPT
Args:
[ 1] = U

Stack Calls
===========
Called from: => CPROMPT(0)
Called from: .\source\classes\TTREEVIE.PRG => TTREEVIEW:HANDLEEVENT(282)
Called from: .\source\classes\WINDOW.PRG => _FWH(3347)
Called from: => WINRUN(0)
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE(966)
Called from: testtre2.prg => MAIN(91)

FWH version is
October 2009
=============


Thanks
marco

With this remark at line 282 of ttreevie.prg now program works fine

In my opinion is important to understand the reason why this happens.

However despite this problem now I can continue my work
Thanks for your attention


METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TTreeView

local oItem

if nMsg == 514
oItem = ::GetItem( nLParam )
// MsgInfo( oItem:cPrompt ) // row 282 of ttreeview.prg
endif

do case
case nMsg == WM_CHAR
if nWParam == VK_RETURN
return 1
endif
endcase

return Super:HandleEvent( nMsg, nWParam, nLParam )

Marco,

That code was left there in FWH 9.10 by mistake. In FWH 9.11 we fixed it

Thanks,