summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-06-05 13:03:22 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-06-05 13:03:22 (GMT)
commit060bda7e185c8d85adc2791b6cc059e007db799b (patch)
tree92859838396d648063a8b2de87532b940528d730 /generic
parent01d203705e3d97a96e794e0b54e79508e285c3c2 (diff)
parentd9a44369370d90d1b8dfd0decd866879a62715f6 (diff)
downloadtk-060bda7e185c8d85adc2791b6cc059e007db799b.zip
tk-060bda7e185c8d85adc2791b6cc059e007db799b.tar.gz
tk-060bda7e185c8d85adc2791b6cc059e007db799b.tar.bz2
Fix [2100430]: ttk::entry widget index must be integer
Diffstat (limited to 'generic')
-rw-r--r--generic/tkEntry.c4
-rw-r--r--generic/ttk/ttkEntry.c8
-rw-r--r--generic/ttk/ttkScroll.c5
3 files changed, 11 insertions, 6 deletions
diff --git a/generic/tkEntry.c b/generic/tkEntry.c
index 1244273..f68e1a3 100644
--- a/generic/tkEntry.c
+++ b/generic/tkEntry.c
@@ -2560,7 +2560,7 @@ GetEntryIndex(
case '@': {
int x, roundUp, maxWidth;
- if (Tcl_GetInt(interp, string + 1, &x) != TCL_OK) {
+ if (Tcl_GetInt(NULL, string + 1, &x) != TCL_OK) {
goto badIndex;
}
if (x < entryPtr->inset) {
@@ -2589,7 +2589,7 @@ GetEntryIndex(
break;
}
default:
- if (Tcl_GetInt(interp, string, indexPtr) != TCL_OK) {
+ if (Tcl_GetInt(NULL, string, indexPtr) != TCL_OK) {
goto badIndex;
}
if (*indexPtr < 0){
diff --git a/generic/ttk/ttkEntry.c b/generic/ttk/ttkEntry.c
index 62a2720..f395649 100644
--- a/generic/ttk/ttkEntry.c
+++ b/generic/ttk/ttkEntry.c
@@ -1644,6 +1644,14 @@ static int EntryXViewCommand(
void *recordPtr, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
{
Entry *entryPtr = recordPtr;
+ if (objc == 3) {
+ int newFirst;
+ if (EntryIndex(interp, entryPtr, objv[2], &newFirst) != TCL_OK) {
+ return TCL_ERROR;
+ }
+ TtkScrollTo(entryPtr->entry.xscrollHandle, newFirst);
+ return TCL_OK;
+ }
return TtkScrollviewCommand(interp, objc, objv, entryPtr->entry.xscrollHandle);
}
diff --git a/generic/ttk/ttkScroll.c b/generic/ttk/ttkScroll.c
index 2ff3d8e..2bd3ddb 100644
--- a/generic/ttk/ttkScroll.c
+++ b/generic/ttk/ttkScroll.c
@@ -202,10 +202,7 @@ int TtkScrollviewCommand(
Tcl_SetObjResult(interp, Tcl_NewListObj(2, result));
return TCL_OK;
} else if (objc == 3) {
- const char *string = Tcl_GetString(objv[2]);
- if (strcmp(string, "end") == 0) {
- newFirst = s->total;
- } else if (Tcl_GetIntFromObj(interp, objv[2], &newFirst) != TCL_OK) {
+ if (Tcl_GetIntFromObj(interp, objv[2], &newFirst) != TCL_OK) {
return TCL_ERROR;
}
} else {