diff options
| author | fvogel <fvogelnew1@free.fr> | 2022-02-03 07:29:52 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2022-02-03 07:29:52 (GMT) |
| commit | dd62b800d5e7000814aaebbc56e5818ee5208ddd (patch) | |
| tree | 4da2542c750f12b27a0762fc4a33502491ab053d | |
| parent | 71d3ecf5286248746cff74281e25ad7705f2cb31 (diff) | |
| download | tk-dd62b800d5e7000814aaebbc56e5818ee5208ddd.zip tk-dd62b800d5e7000814aaebbc56e5818ee5208ddd.tar.gz tk-dd62b800d5e7000814aaebbc56e5818ee5208ddd.tar.bz2 | |
Change slightly the error message to match what 8.7 returns ([3fefb364e2] is not present in trunk, the problem is only with 8.6).
| -rw-r--r-- | generic/ttk/ttkEntry.c | 2 | ||||
| -rw-r--r-- | tests/ttk/combobox.test | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/generic/ttk/ttkEntry.c b/generic/ttk/ttkEntry.c index 1c2f477..1f013f9 100644 --- a/generic/ttk/ttkEntry.c +++ b/generic/ttk/ttkEntry.c @@ -1851,7 +1851,7 @@ static int ComboboxCurrentCommand( /* "end" index */ if (nValues <= 0) { Tcl_SetObjResult(interp, Tcl_ObjPrintf( - "Index end out of range")); + "Index \"end\" out of range")); Tcl_SetErrorCode(interp, "TTK", "COMBOBOX", "IDX_RANGE", NULL); return TCL_ERROR; } diff --git a/tests/ttk/combobox.test b/tests/ttk/combobox.test index fda0a08..0e931e2 100644 --- a/tests/ttk/combobox.test +++ b/tests/ttk/combobox.test @@ -63,7 +63,7 @@ test combobox-2.7 {current -- set to 0 index when empty [bug 924835c36d]} -body test combobox-2.8 "current -- set to end index in an empty combobox" -body { .cb configure -values {} .cb current end -} -returnCodes error -result {Index end out of range} +} -returnCodes error -result {Index "end" out of range} test combobox-2.end "Cleanup" -body { destroy .cb } |