FiveTech Software tech support forums

In the following sample, if you click on the window you will get TBAR. With the previous FWH release you got TSAY.

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oWnd

    DEFINE WINDOW oWnd

    DEFINE BUTTONBAR OF oWnd

    @ 10, 10 SAY "This is a test"

    ACTIVATE WINDOW oWnd;
             ON CLICK MSGINFO( oWnd:aControls[ 1 ]:ClassName )

    RETURN NIL

EMG

The problem seems to be in TBar New() method:

Code: Select all  Expand view

  if ! Empty( oWnd:hWnd )
      ::Create()
      ::GetFont()
//      oWnd:AddControl( Self )
   else

Commenting out oWnd:AddControl( Self ) seems to fix it.

Can you confirm?

EMG

Enrico,

In the following sample, if you click on the window you will get TBAR. With the previous FWH release you got TSAY.

That seems to be correct now. TBar is another control of the window and as it has to be created the first one
thats why it appears as the first control.

Antonio,

but it's no backward compatible.

EMG

We should not keep a bug backwards compatible

Does it means many changes in your app ?

Antonio,

probably not. But that behavior was there from the beginnings of FW.

EMG

Enrico,

Yes, you are right, but with recent TBar changes this was needed to be implemented