diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-05-08 09:26:53 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-05-08 09:26:53 (GMT) |
| commit | a55cf4a7e5aa5b506929c232ed2a3c8402a41852 (patch) | |
| tree | 3f2b0908268023c30e1adb924e17a6436a2f4d1e /win | |
| parent | 8622e716bb6d347375ac273af7b73c6f7952f223 (diff) | |
| download | tcl-a55cf4a7e5aa5b506929c232ed2a3c8402a41852.zip tcl-a55cf4a7e5aa5b506929c232ed2a3c8402a41852.tar.gz tcl-a55cf4a7e5aa5b506929c232ed2a3c8402a41852.tar.bz2 | |
another bug: [dde eval -async -binary] didn't work
Diffstat (limited to 'win')
| -rw-r--r-- | win/tclWinDde.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/win/tclWinDde.c b/win/tclWinDde.c index 83c2aa3..11e713b 100644 --- a/win/tclWinDde.c +++ b/win/tclWinDde.c @@ -1253,9 +1253,9 @@ DdeObjCmd( } else if (objc >= 6 && objc <= 7) { firstArg = objc - 3; for (i = 2; i < firstArg; i++) { - if (Tcl_GetIndexFromObj(interp, objv[2], ddeExecOptions, + if (Tcl_GetIndexFromObj(interp, objv[i], ddeExecOptions, "option", 0, &argIndex) != TCL_OK) { - return TCL_ERROR; + goto wrongDdeExecuteArgs; } if (argIndex == DDE_EXEC_ASYNC) { async = 1; @@ -1266,6 +1266,7 @@ DdeObjCmd( break; } /* otherwise... */ + wrongDdeExecuteArgs: Tcl_WrongNumArgs(interp, 2, objv, "?-async? ?-binary? serviceName topicName value"); return TCL_ERROR; |