diff options
| author | fvogel <fvogelnew1@free.fr> | 2019-04-28 10:45:38 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2019-04-28 10:45:38 (GMT) |
| commit | a45cd9e5e3fc6da137e7a23ebd4b507b3905c142 (patch) | |
| tree | 0e5c44bca24a6e64b8230cd121f6c97e7c58dee4 /generic/ttk | |
| parent | 4c2a79de161bcf55a617eba4a6f0eb8a1e27ed8b (diff) | |
| download | tk-a45cd9e5e3fc6da137e7a23ebd4b507b3905c142.zip tk-a45cd9e5e3fc6da137e7a23ebd4b507b3905c142.tar.gz tk-a45cd9e5e3fc6da137e7a23ebd4b507b3905c142.tar.bz2 | |
Add a missing scroll info update needed to make x|yview moveto|units|pages work without an update idletasks call beforehand.
Diffstat (limited to 'generic/ttk')
| -rw-r--r-- | generic/ttk/ttkScroll.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/generic/ttk/ttkScroll.c b/generic/ttk/ttkScroll.c index 21b23b8..84fbff2 100644 --- a/generic/ttk/ttkScroll.c +++ b/generic/ttk/ttkScroll.c @@ -218,6 +218,14 @@ int TtkScrollviewCommand( double fraction; int count; + /* + * Update the scroll info (first, last, total) if needed. + */ + + if (h->corePtr->flags & REDISPLAY_PENDING) { + h->corePtr->widgetSpec->layoutProc(h->corePtr); + } + switch (Tk_GetScrollInfoObj(interp, objc, objv, &fraction, &count)) { case TK_SCROLL_ERROR: return TCL_ERROR; |