diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-16 15:45:15 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-16 15:45:15 (GMT) |
| commit | f76a56b12b16dcadb74a3227122180b565685410 (patch) | |
| tree | 1c26ce3212f2077788a2e287d2025aee1da30676 /generic/tkIcu.c | |
| parent | 047b7c2265f3c7cb8e20cc44d5c3282675712518 (diff) | |
| parent | fcb6be17dafdd55f33da3b09e925c9e58ef7c50e (diff) | |
| download | tk-f76a56b12b16dcadb74a3227122180b565685410.zip tk-f76a56b12b16dcadb74a3227122180b565685410.tar.gz tk-f76a56b12b16dcadb74a3227122180b565685410.tar.bz2 | |
Merge 8.7. Better error-message for invalid index
Diffstat (limited to 'generic/tkIcu.c')
| -rw-r--r-- | generic/tkIcu.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tkIcu.c b/generic/tkIcu.c index 1bd03c6..44ed6da 100644 --- a/generic/tkIcu.c +++ b/generic/tkIcu.c @@ -101,7 +101,7 @@ startEndOfCmd( len = Tcl_DStringLength(&ds)/2; if (TkGetIntForIndex(objv[2], len-1, 0, &idx) != TCL_OK) { Tcl_DStringFree(&ds); - Tcl_SetObjResult(interp, Tcl_ObjPrintf("bad index \"%s\"", Tcl_GetString(objv[2]))); + Tcl_SetObjResult(interp, Tcl_ObjPrintf("bad index \"%s\": must be integer?[+-]integer?, end?[+-]integer?, or \"\"", Tcl_GetString(objv[2]))); Tcl_SetErrorCode(interp, "TK", "ICU", "INDEX", NULL); return TCL_ERROR; } |