Bug in SkinButtons()

[Enrico Maria Giordano]

This is the sample showing the problem. Pressing "Test" button the other one lost the skin effect:

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg, oBtn

    SKINBUTTONS()

    DEFINE DIALOG oDlg

    @ 2, 2 BUTTON "&Test";
           ACTION ( oBtn:Disable(), oBtn:Enable() )

    @ 3, 2 BUTTON oBtn PROMPT "&Close";
           ACTION oDlg:End()

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL

EMG

[Antonio Linares]

Enrico,

It seems as there is a painting state that we are not controlling yet.

As a workaround you can do:

Code: Select all  Expand view

    @ 2, 2 BUTTON "&Test";
           ACTION ( oBtn:Disable(), oBtn:Enable(), oDlg:Refresh() )
 

[Silvio]

Antonio ,

there is another error

when I click on test button ( I click on many tries) the obtn is disable but then I CANNOT CLOSE THE DIALOG !!!!!

I try to click on "X" but it not run ok

the error not run when I click one on test button

to create the error you must click on test button many tries

then If you wait some seconds you can close the dialog

[Enrico Maria Giordano]

Any news?

EMG

[Antonio Linares]

Not yet

[Enrico Maria Giordano]

No problem, my friend. It's only a pity that such a wonderful option can't be used yet.

EMG

[MarcoBoschi]

Just a question:
from the practical point of view which is the way to enable and disable the button?

@ 2, 2 BUTTON "&Test";
ACTION ( oBtn:Disable(), oBtn:Enable() )

...excuse me dear friends but I do not understand the problem.

[Antonio Linares]

Marco,

To disable a button, or any window, dialog or control, we use oControl:Disable() only.

In this case Enrico found that when calling to both oBtn:Disable(), oBtn:Enable() then the used skin is not applied.

[MarcoBoschi]

Antonio,
is this the case:

1) disable button
2) call to several functions
3) enable button again


Is that correct? is this the case?
Bye

[Antonio Linares]

Marco,

Yes, that should work fine.

The problem is only when doing the two consecutive calls

[Enrico Maria Giordano]

No, the problem is when any function is called in between too:

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg, oBtn

    SKINBUTTONS()

    DEFINE DIALOG oDlg

    @ 2, 2 BUTTON "&Test";
           ACTION ( oBtn:Disable(), TEST(), oBtn:Enable() )

    @ 3, 2 BUTTON oBtn PROMPT "&Close";
           ACTION oDlg:End()

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL


STATIC FUNCTION TEST()

    LOCAL oDlg

    DEFINE DIALOG oDlg

    @ 1, 2 BUTTON "&Close";
           ACTION oDlg:End()

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL

EMG

[Antonio Linares]

Enrico,

This reduced version from yours also fails in Windows 7:

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg, oBtn

    SKINBUTTONS()

    DEFINE DIALOG oDlg

    @ 2, 2 BUTTON "&Test";
           ACTION ( oBtn:Disable(), oBtn:Enable() )

    @ 3, 2 BUTTON oBtn PROMPT "&Close";
           ACTION oDlg:End()

    ACTIVATE DIALOG oDlg;
             CENTER

RETURN NIL
 

[hua]

Is this bug present in 10.3 or has it been resolved?

[Enrico Maria Giordano]

Unfortunately, It is still present.

EMG

[hua]

Thank you for the info Enrico