Error in XBROWSE

[byte-one]

This error in XBROWSE:

Application
===========
Path and name: C:\G_ST\KORE\ADISC.exe (32 bits)
Size: 7,463,936 bytes
Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20150603)
FiveWin Version: FWHX 15.12
Windows version: 6.2, Build 9200

Time from start: 0 hours 0 mins 20 secs
Error occurred at: 12.01.16, 17:30:46
Error description: Error FiveWin/6 Cannot create window or control:
Class: TBTNBMP
Caption:
System Error: Fensterklasse wurde nicht gefunden. -> translated: window-class not found


Stack Calls
===========
Called from: .\source\classes\WINDOW.PRG => WNDCREATEERROR( 813 )
Called from: .\source\classes\WINDOW.PRG => TBTNBMP:CREATE( 796 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:NEW( 374 )
Called from: C:\prg_allgemein\xbrowse_line.prg => TXBRWCOLUMN:CREATEBUTTONS( 11492 )

[karinha]

http://forums.fivetechsupport.com/viewtopic.php?t=502

[byte-one]

Thanks, but "my" error comes from xbrowse and the buttons created from.

Class: TBTNBMP
Caption:
System Error: Fensterklasse wurde nicht gefunden. -> translated: window-class not found

[karinha]

TBTNBMP.PRG belongs to this version are you using?

[byte-one]

Yes, original 15/12

[karinha]

Test please.

Code: Select all  Expand view

#include "fivewin.ch"

Function Main()
Local oWnd

Define Window oWnd Title "Same name functions linked?" ;

Activate Window oWnd ;
  On Init ( WndCreateError( oWnd ), ;
            TWindow():Create( "xyz" ), .F. )    // force call to
WndCreateError() inside TWindow:Create() class

Return Nil


Function WndCreateError()

MsgInfo( "This isn't the WndCreateError() in windows.prg!", "My
WndCreateError() function" )

Return Nil
 

[nageswaragunupudi]

Called from: C:\prg_allgemein\xbrowse_line.prg => TXBRWCOLUMN:CREATEBUTTONS( 11492 )

I doubt if you are using xbrowse.prg of ver 15.12, because line 11492 (and the function containing that line) is fully commented out.

In any case, if we are provided with a sample to recreate the error, we can provide the required help.

[byte-one]

Thanks, i will reproduce the error.
Line 11492 is in my case (I wrote some comments in code)

Code: Select all  Expand view

@ 0,0 BTNBMP ::oBtnList RESOURCE "" OF ::oBrw NOBORDER SIZE 0,0

It seems if i use

Code: Select all  Expand view

bTest1 := {||function1()}
bTest2 := {||(function3(),function4(),eval(bTest1))}
oControl:bAction := bTest2

In my case function1() calls a dialog with xBrowse and produces the error.

[nageswaragunupudi]

Still there should not be a problem.

[byte-one]

When i use anstead eval(bTest1) only function1() is functioning. I use this construct often as the bTest1 includes not only one function and i use this codeblock 10 times in program for a search routine.
For now i use

Code: Select all  Expand view

#define func1 (function1())

and use this anstead eval(bTest1).
But maybe is the situation are also at other developers in future.

[nageswaragunupudi]

There is nothing wrong in your usage.
Finally evaluating bTest2 amounts to sequentially executing function3(), function(4) and function1(). The problem could be when you execute these functions one after another in that order.

[byte-one]

The curiosity is, that this over years in all FWH-versions is functioning! Maybe a sideeffect from the unicode-theme?
In a other post i wrote over the msgrun()-function which switched between Unicode yes and Unicode no and produces a crash. And also in a connection with codeblocks!
viewtopic.php?f=3&t=31803

[nageswaragunupudi]

I did not see that post earlier. I did not face the problem in my applications, but I shall check it thoroughly.
Pure ANSI applications should continue to work as they did before.
Please help us to reproduce this error also.

[byte-one]

Please see at:
http://forums.fivetechsupport.com/viewtopic.php?f=3&t=31803
There is also a codesnippet for testing!

[nageswaragunupudi]

Please see at:
http://forums.fivetechsupport.com/viewtopic.php?f=3&t=31803
There is also a codesnippet for testing!

We fixed it the way you suggested.