Beep exiting dialogs

[Enrico Maria Giordano]

Try to close this dialog using ESC and you will hear a beep:

Code: Select all  Expand view  RUN

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg

    LOCAL oGet

    LOCAL cVar := SPACE( 30 )

    DEFINE DIALOG oDlg

    @ 1, 1 GET oGet VAR cVar

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

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL

EMG

[James Bott]

Enrico,

Is that for the new release? I do not hear a beep using FW2.7, May 2005 build.

James

[Enrico Maria Giordano]

Enrico,

Is that for the new release? I do not hear a beep using FW2.7, May 2005 build.

James

Yes, February build.

EMG

[Antonio Linares]

Enrico,

It is something related with the GET because if the button has the focus, then there is no beep. We are searching...

[Antonio Linares]

Fixed:

Code: Select all  Expand view  RUN

METHOD KeyChar( nKey, nFlags ) CLASS TGet

   local nHi, nLo
   local lAccept
   local bKeyAction := SetKey( nKey )
   local nDefButton

   if nKey == VK_ESCAPE     // new
      return 1                       
   endif                               

   ...


[Enrico Maria Giordano]

Thank you!

EMG

[Antonio Linares]

Enrico,

This is the right code:

Code: Select all  Expand view  RUN

METHOD KeyChar( nKey, nFlags ) CLASS TGet

   local nHi, nLo
   local lAccept
   local bKeyAction := SetKey( nKey )
   local nDefButton

   if nKey == VK_ESCAPE  // avoids a beep!
      ::oWnd:KeyChar( nKey, nFlags )
      return 1
   endif   

   ...


[Enrico Maria Giordano]

Thank you again!

EMG