Hi,
Did you test this code?
Yes, if you're referring to that SetCancel( .T. ) Clipper's program under NTVDM
differs.
IMHO this difference can be assumed because the code must be fixed in MT mode.
[
#if ! defined( HB_MT_VM ) && 0
if( hb_setGetCancel() )
s_bBreak = HB_TRUE;
#endif
]
But I do a new question.
How can it be fixed something that does not exist?
[ And is not valid the quick answer "does not exist, no problem" because by
this logic Harbour would be perfect if not exist. :) ]
Best regards,
--
Xavi
El 04/03/2010 8:31, Viktor Szakáts escribió:
Hi Xavi,
Yes, you're right.
I have another patch to fix this, IMHO a issue, but I don't have right to
commit it, there are two differents points of view and few opinions. Please
note that GTWIN behavior is the same as a Clipper program under NTVDM.
--- .patch
Index: gtwin.c
===================================================================
--- gtwin.c (revision 14052)
+++ gtwin.c (working copy)
@@ -563,7 +563,9 @@
case CTRL_CLOSE_EVENT:
case CTRL_BREAK_EVENT:
- s_bBreak = HB_TRUE;
+ /* Avoid irregular shutdown if SetCancel( .F. ) [jarabal] */
+ if( hb_setGetCancel() )
+ s_bBreak = HB_TRUE;
bHandled = TRUE;
break;
Did you test this code?
Brgds,
Viktor
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
