diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-05-23 12:00:02 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-05-23 12:00:02 (GMT) |
| commit | 565885307e6c24d3a27eaa01d7701dd2819336a8 (patch) | |
| tree | f1e603441cacd53820174d4bb1c4573cc6436588 | |
| parent | f1be70ab35fd454a2234ac10ed10c88b9c884b13 (diff) | |
| download | tcl-565885307e6c24d3a27eaa01d7701dd2819336a8.zip tcl-565885307e6c24d3a27eaa01d7701dd2819336a8.tar.gz tcl-565885307e6c24d3a27eaa01d7701dd2819336a8.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; |