diff options
| author | fvogel <fvogelnew1@free.fr> | 2016-03-07 21:10:15 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2016-03-07 21:10:15 (GMT) |
| commit | 0e4e2778068da247b591c03d482b78e9d22bd0a8 (patch) | |
| tree | 0f2ce54afe09556f41daee9acbdbfbc0a5f66a25 /generic | |
| parent | e97e9aead9bd1631f75f3778e3163251078de44e (diff) | |
| parent | e353dfd7b77de377b5475b760d286a0990958dd6 (diff) | |
| download | tk-0e4e2778068da247b591c03d482b78e9d22bd0a8.zip tk-0e4e2778068da247b591c03d482b78e9d22bd0a8.tar.gz tk-0e4e2778068da247b591c03d482b78e9d22bd0a8.tar.bz2 | |
Fixed bug [841280] - spinbox -from and -to defaults and behaviour
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tkEntry.c | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/generic/tkEntry.c b/generic/tkEntry.c index ea8d7f1..5681e47 100644 --- a/generic/tkEntry.c +++ b/generic/tkEntry.c @@ -1176,13 +1176,15 @@ ConfigureEntry( if (entryPtr->type == TK_SPINBOX) { if (sbPtr->fromValue > sbPtr->toValue) { - Tcl_SetObjResult(interp, Tcl_NewStringObj( - "-to value must be greater than -from value", - -1)); - Tcl_SetErrorCode(interp, "TK", "SPINBOX", "RANGE_SANITY", - NULL); - continue; - } + /* + * Swap -from and -to values. + */ + + double tmpFromTo = sbPtr->fromValue; + + sbPtr->fromValue = sbPtr->toValue; + sbPtr->toValue = tmpFromTo; + } if (sbPtr->reqFormat && (oldFormat != sbPtr->reqFormat)) { /* |