diff options
| author | nijtmans@users.sourceforge.net <jan.nijtmans> | 2012-05-23 12:00:02 (GMT) |
|---|---|---|
| committer | nijtmans@users.sourceforge.net <jan.nijtmans> | 2012-05-23 12:00:02 (GMT) |
| commit | eacb6c1b6ecac86331a1dc3b5f2d37cde77b90c4 (patch) | |
| tree | f1e603441cacd53820174d4bb1c4573cc6436588 | |
| parent | ee3ac6b31f40611889a304ba5838bd15ac6a0a07 (diff) | |
| download | tcl-eacb6c1b6ecac86331a1dc3b5f2d37cde77b90c4.zip tcl-eacb6c1b6ecac86331a1dc3b5f2d37cde77b90c4.tar.gz tcl-eacb6c1b6ecac86331a1dc3b5f2d37cde77b90c4.tar.bz2 | |
fix [bug 3529063]: 2 minor bugs in TIP #106 implementation
| -rw-r--r-- | win/tclWinDde.c | 10 |
1 files 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; |