diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-08-20 12:53:03 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-08-20 12:53:03 (GMT) |
| commit | 887e27ac8de846f7e985c5037b1d2ac1e9fea2a8 (patch) | |
| tree | 2b0ed22de1dacceff5e9efca43e319666094e255 /generic/tkObj.c | |
| parent | 10faa132df0677d6fb353c0cabb1191c58c90f45 (diff) | |
| parent | 06b5ea26625d50fb3cf48c115b4efa0115f20d9e (diff) | |
| download | tk-887e27ac8de846f7e985c5037b1d2ac1e9fea2a8.zip tk-887e27ac8de846f7e985c5037b1d2ac1e9fea2a8.tar.gz tk-887e27ac8de846f7e985c5037b1d2ac1e9fea2a8.tar.bz2 | |
Merge trunk
Diffstat (limited to 'generic/tkObj.c')
| -rw-r--r-- | generic/tkObj.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tkObj.c b/generic/tkObj.c index b8ddb2b..a5ac233 100644 --- a/generic/tkObj.c +++ b/generic/tkObj.c @@ -233,6 +233,9 @@ TkGetIntForIndex( } return TCL_ERROR; } + if (Tcl_GetString(indexObj)[0] == '-') { + return TCL_ERROR; + } if ((end + 1 >= 0) && (*indexPtr + 1) > (end + 1)) { *indexPtr = end + 1; } |