From 565885307e6c24d3a27eaa01d7701dd2819336a8 Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Wed, 23 May 2012 12:00:02 +0000 Subject: fix [bug 3529063]: 2 minor bugs in TIP #106 implementation --- win/tclWinDde.c | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/win/tclWinDde.c b/win/tclWinDde.c index 895551a..617e4e5 100644 --- a/win/tclWinDde.c +++ b/win/tclWinDde.c @@ -1189,8 +1189,8 @@ DdeObjCmd( enum DdeExecOptions { DDE_EXEC_ASYNC, DDE_EXEC_BINARY }; - static const char *const ddePokeOptions[] = { - "-binary", NULL + static const char *const ddeEvalOptions[] = { + "-async", NULL }; static const char *const ddeReqOptions[] = { "-binary", NULL @@ -1295,7 +1295,7 @@ DdeObjCmd( firstArg = 2; break; } else if ((objc == 7) && (Tcl_GetIndexFromObj(NULL, objv[2], - ddePokeOptions, "option", 0, &argIndex) == TCL_OK)) { + ddeReqOptions, "option", 0, &argIndex) == TCL_OK)) { binary = 1; firstArg = 3; break; @@ -1306,7 +1306,7 @@ DdeObjCmd( */ Tcl_WrongNumArgs(interp, 2, objv, - "serviceName ?-binary? topicName item value"); + "?-binary? serviceName topicName item value"); return TCL_ERROR; case DDE_REQUEST: if (objc == 5) { @@ -1340,7 +1340,7 @@ DdeObjCmd( return TCL_ERROR; } else { firstArg = 2; - if (Tcl_GetIndexFromObj(NULL, objv[2], ddeExecOptions, "option", + if (Tcl_GetIndexFromObj(NULL, objv[2], ddeEvalOptions, "option", 0, &argIndex) == TCL_OK) { if (objc < 5) { goto wrongDdeEvalArgs; -- cgit v0.12