Tk Source Code

the ttk::combobox widget has a "current" method which allow to choose which item of the list given to the combobox to be displayed. Unfortunatly, this method doesn't accept the "end" mark, specifying the end of the list.
It would be great to have to "end" indice available in order to avoid computation of the length of the list before invoking <pathname> current method.

Merged to core-8-6-branch and trunk following acceptance of TIP #541 through TCT vote.

After discussing the matter with myself I decided that merging this would need a TIP.

[https://core.tcl-lang.org/tips/doc/trunk/tip/541.md|TIP #541] is now created and sits in draft state. RFQ sent to the tcl-core list.

Implemented, with new tests and updated documentation, in branch [https://core.tcl-lang.org/tk/timeline?r=bug-2858503fff|bug-2858503fff].

DIFF-ed against version 1.17

diff -ru ..\tksrc_orig/generic/ttk/ttkEntry.c ./generic/ttk/ttkEntry.c
--- ..\tksrc_orig/generic/ttk/ttkEntry.c2009-09-19 22:35:23.828125000 +0200
+++ ./generic/ttk/ttkEntry.c2009-09-19 22:40:44.046875000 +0200
@@ -1760,7 +1760,10 @@
 Tcl_SetObjResult(interp, Tcl_NewIntObj(currentIndex));
 return TCL_OK;
     } else if (objc == 3) {
-if (Tcl_GetIntFromObj(interp, objv[2], &currentIndex) != TCL_OK) {
+if(!strcmp(Tcl_GetString(objv[2]), "end")) {
+currentIndex = nValues - 1;
+} 
+else if (Tcl_GetIntFromObj(interp, objv[2], &currentIndex) != TCL_OK) {
     return TCL_ERROR;
 }
 if (currentIndex < 0 || currentIndex >= nValues) {