TDialog bKeyChar and bKeyDown bugs

[Enrico Maria Giordano]

This is the sample. Try to hit ESC. Is it expected?

Code: Select all  Expand view  RUN

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg

    LOCAL cVar := SPACE( 30 )

    DEFINE DIALOG oDlg

    oDlg:bKeyChar = { || MsgInfo( "bKeyChar" ) }
    oDlg:bKeyDown = { || MsgInfo( "bKeyDown" ) }

    @ 1, 1 GET cVar

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL

This is a possible solution:

Code: Select all  Expand view  RUN

METHOD KeyChar( nKey, nFlags ) CLASS TDialog

   if nKey == VK_ESCAPE
//      if ! Empty( ::bKeyChar )
//         Eval( ::bKeyChar, nKey, nFlags, Self )
//      endif   

...

METHOD KeyDown( nKey, nFlags ) CLASS TDialog

   if nKey == VK_ESCAPE
//      if ! Empty( ::bKeyDown )
//         Eval( ::bKeyDown, nKey, nFlags, Self )
//      endif   
//      if ! Empty( ::bKeyDown )
//         Eval( ::bKeyDown, nKey, nFlags, Self )
//      endif   

...

EMG

[Antonio Linares]

Enrico,

IMO the bKeyDown and bKeyChar events should be processed even if ESC is pressed. What do you think ?

[Enrico Maria Giordano]

Decision is yours (of course) but I think this would cause a serious backward compatibility problem.

EMG

[Antonio Linares]

Enrico,

Yes, you are right