From e2ca2f59aa1081854544acd8e685e50c819cc307 Mon Sep 17 00:00:00 2001 From: Xavi Date: Tue, 6 Apr 2010 01:01:13 +0000 Subject: [PATCH] 2010-04-06 03:00 UTC+0200 Xavi (jarabal/at/gmail.com) * harbour/src/rtl/gtwin/gtwin.c ! Fixed CTRL_CLOSE_EVENT according to present project goals. --- harbour/ChangeLog | 4 ++++ harbour/src/rtl/gtwin/gtwin.c | 3 +++ 2 files changed, 7 insertions(+) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index ed37116aaa..490d9705cd 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,10 @@ past entries belonging to author(s): Viktor Szakats. */ +2010-04-06 03:00 UTC+0200 Xavi (jarabal/at/gmail.com) + * harbour/src/rtl/gtwin/gtwin.c + ! Fixed CTRL_CLOSE_EVENT according to present project goals. + 2010-04-05 09:04 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) * contrib/hbxbp/hbpprocess.prg + Implemented ::lDetached functionality to execute a process independent diff --git a/harbour/src/rtl/gtwin/gtwin.c b/harbour/src/rtl/gtwin/gtwin.c index 13857603f2..fb0fb5086f 100644 --- a/harbour/src/rtl/gtwin/gtwin.c +++ b/harbour/src/rtl/gtwin/gtwin.c @@ -1382,6 +1382,9 @@ static int hb_gt_win_ReadKey( PHB_GT pGT, int iEventMask ) /* Reset the global Ctrl+Break flag */ s_bBreak = HB_FALSE; ch = HB_BREAK_FLAG; /* Indicate that Ctrl+Break was pressed */ + PHB_ITEM pItem = hb_itemPutL( NULL, HB_TRUE ); + hb_setSetItem( HB_SET_CANCEL, pItem ); + hb_itemRelease( pItem ); } /* Check for events only when the event buffer is exhausted. */ else if( s_wRepeated == 0 && s_cNumRead <= s_cNumIndex )