diff options
| author | jan.nijtmans <jan.nijtmans@noemail.net> | 2012-05-08 09:07:07 (GMT) |
|---|---|---|
| committer | jan.nijtmans <jan.nijtmans@noemail.net> | 2012-05-08 09:07:07 (GMT) |
| commit | aa83ea41fb07516ceff1834386e218f75edd007a (patch) | |
| tree | 1b4f08124e5aa678ebee8eb014791f26bc3ffc42 /win/tclWinDde.c | |
| parent | 6ba6310e69c4409684ebbf15cae066db84acb6da (diff) | |
| download | tcl-aa83ea41fb07516ceff1834386e218f75edd007a.zip tcl-aa83ea41fb07516ceff1834386e218f75edd007a.tar.gz tcl-aa83ea41fb07516ceff1834386e218f75edd007a.tar.bz2 | |
fix test-cases winDde 5.1 and 5.3
FossilOrigin-Name: e200c4594c844e45cd3c7bdc8406b1d985d63c0a
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; } |