Bug in TComboBox

[Enrico Maria Giordano]

In the following sample, try to hit TAB on the keyboard giving the focus to the combobox. Why the VALID is evaluated on gotfocus?

Code: Select all  Expand view  RUN

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg

    LOCAL oCbx, cVar := SPACE( 20 )

    DEFINE DIALOG oDlg

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

    @ 3, 1 COMBOBOX oCbx VAR cVar;
           ITEMS { "First", "Second", "Third" };
           STYLE CBS_DROPDOWN;
           VALID ( MSGINFO( "Valid" ), .T. )

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL

EMG