summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-05-23 12:00:02 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-05-23 12:00:02 (GMT)
commit565885307e6c24d3a27eaa01d7701dd2819336a8 (patch)
treef1e603441cacd53820174d4bb1c4573cc6436588
parentf1be70ab35fd454a2234ac10ed10c88b9c884b13 (diff)
downloadtcl-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.c10
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;