- Code: Select all Expand view
#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oDlg
LOCAL oGet, cVar := SPACE( 30 )
DEFINE DIALOG oDlg
@ 1, 1 GET oGet VAR cVar MEMO
@ 3, 1 BUTTON "&Close";
ACTION oDlg:End()
ACTIVATE DIALOG oDlg;
CENTER
RETURN NIL
It seems that the cause is a change in TControl:
- Code: Select all Expand view
METHOD KeyDown( nKey, nFlags ) CLASS TControl
if nKey == VK_ESCAPE
::oWnd:KeyDown( nKey, nFlags )
return 0
endif
This is the previous working version:
- Code: Select all Expand view
METHOD KeyDown( nKey, nFlags ) CLASS TControl
if nKey == VK_ESCAPE
::oWnd:KeyChar( nKey, nFlags )
return 0
endif
EMG