diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-08-14 13:07:38 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-08-14 13:07:38 (GMT) |
commit | c9bb96468f1ed1e24b9aaa8df6f69cbba9665680 (patch) | |
tree | 22b5c91828f6941dc0bb1e3773fa93775a329902 /generic/ttk/ttkProgress.c | |
parent | 00c61e611d0efe1b62775b665e0157345c9ad7b5 (diff) | |
download | tk-c9bb96468f1ed1e24b9aaa8df6f69cbba9665680.zip tk-c9bb96468f1ed1e24b9aaa8df6f69cbba9665680.tar.gz tk-c9bb96468f1ed1e24b9aaa8df6f69cbba9665680.tar.bz2 |
tkConfig.c: protect usage of internalPtr when offset is TCL_INDEX_NONE. Backported from revised_text.
Various minor changes in error-messages, also inspired by revised_text
Diffstat (limited to 'generic/ttk/ttkProgress.c')
-rw-r--r-- | generic/ttk/ttkProgress.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/ttk/ttkProgress.c b/generic/ttk/ttkProgress.c index 6e5875e..505748b 100644 --- a/generic/ttk/ttkProgress.c +++ b/generic/ttk/ttkProgress.c @@ -137,7 +137,7 @@ static void AnimateProgressProc(ClientData clientData) if (pb->progress.maxPhase) phase %= pb->progress.maxPhase; Tcl_DecrRefCount(pb->progress.phaseObj); - pb->progress.phaseObj = Tcl_NewIntObj(phase); + pb->progress.phaseObj = Tcl_NewWideIntObj(phase); Tcl_IncrRefCount(pb->progress.phaseObj); /* |