diff options
author | fvogel <fvogelnew1@free.fr> | 2016-03-07 21:00:40 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2016-03-07 21:00:40 (GMT) |
commit | 70d03f07ed797cf9314d9d44517a12ac9448814e (patch) | |
tree | 6c90f08137d4aaf4df153530525977dd87cca60c /generic | |
parent | c95a7df9de062d04dcfc5fdc5688d78bfe1358f0 (diff) | |
parent | 1b0adcf04a83a228748415aa2c01506890ea8941 (diff) | |
download | tk-70d03f07ed797cf9314d9d44517a12ac9448814e.zip tk-70d03f07ed797cf9314d9d44517a12ac9448814e.tar.gz tk-70d03f07ed797cf9314d9d44517a12ac9448814e.tar.bz2 |
Fixed bug [2262543] - Scale widget unexpectedly fires command callback
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tkScale.c | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/generic/tkScale.c b/generic/tkScale.c index cc7c294..cbc5202 100644 --- a/generic/tkScale.c +++ b/generic/tkScale.c @@ -303,6 +303,12 @@ Tk_ScaleObjCmd( return TCL_ERROR; } + /* + * The widget was just created, no command callback must be invoked. + */ + + scalePtr->flags &= ~INVOKE_COMMAND; + Tcl_SetObjResult(interp, TkNewWindowObj(scalePtr->tkwin)); return TCL_OK; } @@ -1268,7 +1274,14 @@ TkScaleSetValue( return; } scalePtr->value = value; - if (invokeCommand) { + + /* + * Schedule command callback invocation only if there is such a command + * already registered, otherwise the callback would trigger later when + * configuring the widget -command option even if the value did not change. + */ + + if ((invokeCommand) && (scalePtr->command != NULL)) { scalePtr->flags |= INVOKE_COMMAND; } TkEventuallyRedrawScale(scalePtr, REDRAW_SLIDER); |