summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2015-11-19 21:04:08 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2015-11-19 21:04:08 (GMT)
commitd7e64d08df9fe0539c308b04f9a33201faa188f5 (patch)
treea6b9ec5271f3cce6bf256e9378132f0a7a0089cc /generic
parentf0e7b98adcaa0890c60fdf84c8e9753f8f903a53 (diff)
downloadtk-d7e64d08df9fe0539c308b04f9a33201faa188f5.zip
tk-d7e64d08df9fe0539c308b04f9a33201faa188f5.tar.gz
tk-d7e64d08df9fe0539c308b04f9a33201faa188f5.tar.bz2
better argument checking
Diffstat (limited to 'generic')
-rw-r--r--generic/tkText.c8
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) {