Hi Paul,
>> With GTWIN I still have to see proof that
>> it's technically possible to catch close
>> events like that, until then I assume it's
>> not possible, and for sure it's not implemented
>> in Harbour.
>
> I have seen some code posted on the Clipper forum that I hope I captured
> concerning fullscreen/Windows from code in a cmd shell. Given that, it
> should be possible to work out the events for the close button. (I think)
>
> I have it in mind to try that 'one of these days', meaning probably within
> your lifetime. ;-)
It would be nice if this could be chewed
into HB_GTI_NOTIFIERBLOCK support for GTWIN,
at least for close events that is.
Any results of your experiments is useful,
so just take your time. My lifetime is not very
relevant here, that of Harbour is :)
[ I made a little test and the event is
caught though and even the callback works,
but at this point it becomes unstable, no
input device works and it crashes then. ]
--- .dif
Index: gtwin.c
===================================================================
--- gtwin.c (revision 14049)
+++ gtwin.c (working copy)
@@ -82,6 +82,7 @@
#include "hbapiitm.h"
#include "hbapierr.h"
#include "hbwinuni.h"
+#include "hbvm.h"
#include "hbapicdp.h"
@@ -149,6 +150,7 @@
#define HB_GTSUPER (&SuperTable)
#define HB_GTID_PTR (&s_GtId)
+static PHB_GT s_pGT = NULL;
static HB_BOOL s_bOldClosable;
static HB_BOOL s_bClosable;
static HB_BOOL s_bSpecialKeyHandling;
@@ -549,6 +551,27 @@
/* *********************************************************************** */
+static int hb_gt_win_FireEvent( PHB_GT pGT, int nEvent )
+{
+ int nResult = 0; /* Unhandled */
+
+ if( pGT->pNotifierBlock )
+ {
+ if( hb_vmRequestReenter() )
+ {
+ PHB_ITEM pEvent = hb_itemPutNI( NULL, nEvent );
+
+ nResult = hb_itemGetNI( hb_vmEvalBlockV( pGT->pNotifierBlock, 1,
pEvent ) );
+
+ hb_itemRelease( pEvent );
+
+ hb_vmRequestRestore();
+ }
+ }
+
+ return nResult;
+}
+
static BOOL WINAPI hb_gt_win_CtrlHandler( DWORD dwCtrlType )
{
BOOL bHandled;
@@ -562,6 +585,15 @@
break;
case CTRL_CLOSE_EVENT:
+ if( s_pGT )
+ {
+ s_bBreak = ( hb_gt_win_FireEvent( s_pGT, HB_GTE_CLOSE ) == 0 );
+ bHandled = TRUE;
+ }
+ else
+ bHandled = FALSE;
+ break;
+
case CTRL_BREAK_EVENT:
s_bBreak = HB_TRUE;
bHandled = TRUE;
@@ -801,6 +833,7 @@
/* AllocConsole() initializes standard input, standard output,
and standard error handles for the new console. [jarabal] */
/* Add Ctrl+Break handler [vszakats] */
+ s_pGT = pGT;
SetConsoleCtrlHandler( hb_gt_win_CtrlHandler, TRUE );
HB_GTSUPER_INIT( pGT, hFilenoStdin, hFilenoStdout, hFilenoStderr );
---
Brgds,
Viktor
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
