diff options
-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 } |