bGotFocus three beeps

[MarcoBoschi]

If I enter in the combo using mouse I hear the sound once.
If I enter using keyboard (TAB) I hear three times instead
Do you know why?

King regards

marco

Code: Select all  Expand view

#include "fivewin.ch"

#DEFINE EM_SETSEL   177
#DEFINE VK_CTRL_Z    26

REQUEST HB_GT_GUI_DEFAULT


FUNCTION main()

   LOCAL oDlg
   LOCAl oGet1  , cGet1  := PADR( "Marco Boschi"                , 100 )
   LOCAL oCombo , cCombo := "BERSANI MARCO          "

   LOCAL aItem := { "Antonio"             , ;
                    "Enrico"              , ;
                    "Marco"               , ;
                    "James"  }

   DEFINE DIALOG oDlg FROM 1 , 1 TO 20 , 100

   @ 1,1 GET oGet1 VAR cGet1 of oDlg update
   oGet1:bGotFocus  := { || tone( 800,4)  }

   @ 4 , 1 COMBOBOX oCombo VAR cCombo OF oDlg  ITEMS aItem  STYLE CBS_DROPDOWN    SIZE 300 , 300
   oCombo:oGet:bGotFocus  := { || tone(1000,4)  }
//    oCombo:bGotFocus  := { || tone(1000,4)  }


   ACTIVATE DIALOG oDlg CENTER

return nil
 

[Antonio Linares]

Marco,

Please test this EXE built with FWH 11.11:

http://code.google.com/p/fivewin-contributions/downloads/detail?name=marco.zop&can=2&q=

Here it sounds just once each one

[MarcoBoschi]

Antonio,
It's time to upgrade
Many thanks
marco