summaryrefslogtreecommitdiffstats
path: root/generic/ttk/ttkEntry.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-06-05 12:52:35 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-06-05 12:52:35 (GMT)
commitd9a44369370d90d1b8dfd0decd866879a62715f6 (patch)
tree09201a141bfa1354170c3de9a5580e894a6f4bee /generic/ttk/ttkEntry.c
parent4e1d1269673ab48c37c3da8f289e756f26f6a0e5 (diff)
downloadtk-d9a44369370d90d1b8dfd0decd866879a62715f6.zip
tk-d9a44369370d90d1b8dfd0decd866879a62715f6.tar.gz
tk-d9a44369370d90d1b8dfd0decd866879a62715f6.tar.bz2
Fix [2100430]: ttk::entry widget index must be integer
Diffstat (limited to 'generic/ttk/ttkEntry.c')
-rw-r--r--generic/ttk/ttkEntry.c8
1 files changed, 8 insertions, 0 deletions
diff --git a/generic/ttk/ttkEntry.c b/generic/ttk/ttkEntry.c
index 5c280e4..ae43ae6 100644
--- a/generic/ttk/ttkEntry.c
+++ b/generic/ttk/ttkEntry.c
@@ -1642,6 +1642,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);
}