diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-11-19 21:04:08 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-11-19 21:04:08 (GMT) |
| commit | d7e64d08df9fe0539c308b04f9a33201faa188f5 (patch) | |
| tree | a6b9ec5271f3cce6bf256e9378132f0a7a0089cc /generic/tkText.c | |
| parent | f0e7b98adcaa0890c60fdf84c8e9753f8f903a53 (diff) | |
| download | tk-d7e64d08df9fe0539c308b04f9a33201faa188f5.zip tk-d7e64d08df9fe0539c308b04f9a33201faa188f5.tar.gz tk-d7e64d08df9fe0539c308b04f9a33201faa188f5.tar.bz2 | |
better argument checking
Diffstat (limited to 'generic/tkText.c')
| -rw-r--r-- | generic/tkText.c | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/generic/tkText.c b/generic/tkText.c index 2c4d54c..9cae716 100644 --- a/generic/tkText.c +++ b/generic/tkText.c @@ -1508,8 +1508,14 @@ TextWidgetObjCmd( result = TkTextXviewCmd(textPtr, interp, objc, objv); break; case TEXT_YUPDATE: { - if ((objc == 4) && !strncmp(Tcl_GetString(objv[2]), "-command", objv[3]->length)) { + if (objc == 4) { Tcl_Obj *cmd = objv[3]; + const char *option = Tcl_GetString(objv[2]); + if (strncmp(option, "-command", objv[2]->length)) { + Tcl_AppendResult(interp, "wrong option \"", option, "\": should be \"-command\"", NULL); + result = TCL_ERROR; + goto done; + } Tcl_IncrRefCount(cmd); if (TkTextPendingyupdate(textPtr)) { if (textPtr->linesUpdatedCmd) { |