diff options
author | fvogel <fvogelnew1@free.fr> | 2019-05-26 18:38:14 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2019-05-26 18:38:14 (GMT) |
commit | aea299e392c37984bf1ded9e99b1299c559ff9cb (patch) | |
tree | e32decce372f373f5a7918d4453751c88f7b1d7c | |
parent | b4cc27df599020f49f57d39aa9b384deedea3877 (diff) | |
parent | bd4341f10b3d578fa90169f24e61d8db933d680d (diff) | |
download | tk-aea299e392c37984bf1ded9e99b1299c559ff9cb.zip tk-aea299e392c37984bf1ded9e99b1299c559ff9cb.tar.gz tk-aea299e392c37984bf1ded9e99b1299c559ff9cb.tar.bz2 |
Merge implementation of TIP #541 following positive vote by the TCT.
-rw-r--r-- | doc/ttk_combobox.n | 4 | ||||
-rw-r--r-- | generic/ttk/ttkEntry.c | 55 | ||||
-rw-r--r-- | tests/ttk/combobox.test | 11 |
3 files changed, 60 insertions, 10 deletions
diff --git a/doc/ttk_combobox.n b/doc/ttk_combobox.n index b8fd2bc..9d0bcc6 100644 --- a/doc/ttk_combobox.n +++ b/doc/ttk_combobox.n @@ -67,7 +67,9 @@ The following subcommands are possible for combobox widgets: .TP \fIpathName \fBcurrent\fR ?\fInewIndex\fR? If \fInewIndex\fR is supplied, sets the combobox value -to the element at position \fInewIndex\fR in the list of \fB\-values\fR. +to the element at position \fInewIndex\fR in the list of \fB\-values\fR +(in addition to integers, the \fBend\fR index is supported and indicates +the last element of the list). Otherwise, returns the index of the current value in the list of \fB\-values\fR or \fB\-1\fR if the current value does not appear in the list. .TP diff --git a/generic/ttk/ttkEntry.c b/generic/ttk/ttkEntry.c index 36edf38..1579a32 100644 --- a/generic/ttk/ttkEntry.c +++ b/generic/ttk/ttkEntry.c @@ -1701,6 +1701,16 @@ static WidgetSpec EntryWidgetSpec = { }; /*------------------------------------------------------------------------ + * Named indices for the combobox "current" command + */ +static const char *const comboboxCurrentIndexNames[] = { + "end", NULL +}; +enum comboboxCurrentIndices { + INDEX_END +}; + +/*------------------------------------------------------------------------ * +++ Combobox widget record. */ @@ -1801,15 +1811,42 @@ static int ComboboxCurrentCommand( Tcl_SetObjResult(interp, Tcl_NewIntObj(currentIndex)); return TCL_OK; } else if (objc == 3) { - if (Tcl_GetIntFromObj(interp, objv[2], ¤tIndex) != TCL_OK) { - return TCL_ERROR; - } - if (currentIndex < 0 || currentIndex >= nValues) { - Tcl_SetObjResult(interp, Tcl_ObjPrintf( - "Index %s out of range", Tcl_GetString(objv[2]))); - Tcl_SetErrorCode(interp, "TTK", "COMBOBOX", "IDX_RANGE", NULL); - return TCL_ERROR; - } + int result, index; + + result = Tcl_GetIndexFromObj(NULL, objv[2], comboboxCurrentIndexNames, + "", 0, &index); + if (result == TCL_OK) { + + /* + * The index is one of the named indices. + */ + + switch (index) { + case INDEX_END: + /* "end" index */ + currentIndex = nValues - 1; + break; + } + } else { + + /* + * The index should be just an integer. + */ + + if (Tcl_GetIntFromObj(NULL, objv[2], ¤tIndex) != TCL_OK) { + Tcl_SetObjResult(interp, Tcl_ObjPrintf( + "Incorrect index %s", Tcl_GetString(objv[2]))); + Tcl_SetErrorCode(interp, "TTK", "COMBOBOX", "IDX_VALUE", NULL); + return TCL_ERROR; + } + + if (currentIndex < 0 || currentIndex >= nValues) { + Tcl_SetObjResult(interp, Tcl_ObjPrintf( + "Index %s out of range", Tcl_GetString(objv[2]))); + Tcl_SetErrorCode(interp, "TTK", "COMBOBOX", "IDX_RANGE", NULL); + return TCL_ERROR; + } + } cbPtr->combobox.currentIndex = currentIndex; diff --git a/tests/ttk/combobox.test b/tests/ttk/combobox.test index 7ea0c5c..45fe0fc 100644 --- a/tests/ttk/combobox.test +++ b/tests/ttk/combobox.test @@ -43,6 +43,17 @@ test combobox-2.4 "current -- value not in list" -body { .cb current } -result -1 +test combobox-2.5 "current -- set to end index" -body { + .cb configure -values [list a b c d e thelastone] + .cb current end + .cb get +} -result thelastone + +test combobox-2.6 "current -- set to unknown index" -body { + .cb configure -values [list a b c d e] + .cb current notanindex +} -returnCodes error -result {Incorrect index notanindex} + test combobox-2.end "Cleanup" -body { destroy .cb } test combobox-3 "Read postoffset value dynamically from current style" -body { |