diff options
-rw-r--r-- | generic/tkArgv.c | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/generic/tkArgv.c b/generic/tkArgv.c index c9a33d8..33e7d4f 100644 --- a/generic/tkArgv.c +++ b/generic/tkArgv.c @@ -181,10 +181,6 @@ Tk_ParseArgv( goto missingArg; } if (Tcl_GetInt(interp, argv[srcIndex], (int *) infoPtr->dst) != TCL_OK) { - Tcl_SetObjResult(interp, Tcl_ObjPrintf( - "expected %s argument for \"%s\" but got \"%s\"", - "integer", infoPtr->key, argv[srcIndex])); - Tcl_SetErrorCode(interp, "TK", "ARG", "INTEGER", curArg,NULL); return TCL_ERROR; } srcIndex++; |