Bug in TButton CANCEL clause
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
The following sample shows that if you hit ALT-C the DIALOG is closed but the VALID of the GET is also executed while if you click on the button with the mouse the VALID is not executed (as it should be):
EMG
- Code: Select all Expand view
#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oDlg
LOCAL cVar := SPACE( 20 )
DEFINE DIALOG oDlg
@ 1, 1 GET cVar;
VALID ( MSGINFO( "Hello" ), .T. )
@ 3, 1 BUTTON "&Close";
ACTION oDlg:End();
CANCEL
ACTIVATE DIALOG oDlg;
CENTER
RETURN NIL
EMG