diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-05-08 09:07:07 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-05-08 09:07:07 (GMT) |
| commit | 8622e716bb6d347375ac273af7b73c6f7952f223 (patch) | |
| tree | 1b4f08124e5aa678ebee8eb014791f26bc3ffc42 /win/tclWinDde.c | |
| parent | cfc88759ab9d2a7118cb286943fc3074b430804b (diff) | |
| download | tcl-8622e716bb6d347375ac273af7b73c6f7952f223.zip tcl-8622e716bb6d347375ac273af7b73c6f7952f223.tar.gz tcl-8622e716bb6d347375ac273af7b73c6f7952f223.tar.bz2 | |
fix test-cases winDde 5.1 and 5.3
Diffstat (limited to 'win/tclWinDde.c')
| -rw-r--r-- | win/tclWinDde.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/win/tclWinDde.c b/win/tclWinDde.c index e917570..83c2aa3 100644 --- a/win/tclWinDde.c +++ b/win/tclWinDde.c @@ -1253,7 +1253,7 @@ DdeObjCmd( } else if (objc >= 6 && objc <= 7) { firstArg = objc - 3; for (i = 2; i < firstArg; i++) { - if (Tcl_GetIndexFromObj(NULL, objv[2], ddeExecOptions, + if (Tcl_GetIndexFromObj(interp, objv[2], ddeExecOptions, "option", 0, &argIndex) != TCL_OK) { return TCL_ERROR; } |