Attachment "tclWinDde.patch" to
ticket [648022ffff]
added by
kennykb
2003-01-29 07:12:16.
Index: tclWinDde.c
===================================================================
RCS file: /cvsroot/tcl/tcl/win/tclWinDde.c,v
retrieving revision 1.8
diff -u -b -r1.8 tclWinDde.c
--- tclWinDde.c 18 Jan 2002 14:07:40 -0000 1.8
+++ tclWinDde.c 29 Jan 2003 00:05:31 -0000
@@ -1263,13 +1263,14 @@
ddeData = DdeClientTransaction((LPBYTE) ddeItemData,
0xFFFFFFFF, hConv, 0,
CF_TEXT, XTYP_EXECUTE, TIMEOUT_ASYNC, &ddeResult);
+ if(ddeData) ddeItemData = NULL; /* AGL - 12/02/2002 */
DdeAbandonTransaction(ddeInstance, hConv, ddeResult);
} else {
ddeData = DdeClientTransaction((LPBYTE) ddeItemData,
0xFFFFFFFF, hConv, 0,
CF_TEXT, XTYP_EXECUTE, 30000, NULL);
if (ddeData != 0) {
-
+ ddeItemData = NULL; /* AGL - 12/02/2002 */
ddeCookie = DdeCreateStringHandle(ddeInstance,
"$TCLEVAL$EXECUTE$RESULT", CP_WINANSI);
ddeData = DdeClientTransaction(NULL, 0, hConv,