diff options
author | fvogel <fvogelnew1@free.fr> | 2019-05-08 08:41:10 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2019-05-08 08:41:10 (GMT) |
commit | 590aacc76691cd115ffcd3a0b4643f5f53941cb8 (patch) | |
tree | 1383c68084b65eb1f480c669b2f696460a830db2 /generic/ttk/ttkEntry.c | |
parent | c4bbfb925fae272f474e5c33bf19fd2107821838 (diff) | |
parent | d843a7eadb157bca482e150f7298e9cf3007c85c (diff) | |
download | tk-590aacc76691cd115ffcd3a0b4643f5f53941cb8.zip tk-590aacc76691cd115ffcd3a0b4643f5f53941cb8.tar.gz tk-590aacc76691cd115ffcd3a0b4643f5f53941cb8.tar.bz2 |
Fix [2513186fff], [f9343d8f72] and [8261c517af]: ttk scrolling (xview/yview commands) is incorrect until idle tasks are run
Diffstat (limited to 'generic/ttk/ttkEntry.c')
-rw-r--r-- | generic/ttk/ttkEntry.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/ttk/ttkEntry.c b/generic/ttk/ttkEntry.c index 4e702be..bde3a0c 100644 --- a/generic/ttk/ttkEntry.c +++ b/generic/ttk/ttkEntry.c @@ -1403,6 +1403,7 @@ EntryIndex( *indexPtr = Tk_PointToChar(entryPtr->entry.textLayout, x - entryPtr->entry.layoutX, 0); + TtkUpdateScrollInfo(entryPtr->entry.xscrollHandle); if (*indexPtr < entryPtr->entry.xscroll.first) { *indexPtr = entryPtr->entry.xscroll.first; } @@ -1697,7 +1698,7 @@ static int EntryXViewCommand( if (EntryIndex(interp, entryPtr, objv[2], &newFirst) != TCL_OK) { return TCL_ERROR; } - TtkScrollTo(entryPtr->entry.xscrollHandle, newFirst); + TtkScrollTo(entryPtr->entry.xscrollHandle, newFirst, 1); return TCL_OK; } return TtkScrollviewCommand(interp, objc, objv, entryPtr->entry.xscrollHandle); |