diff options
| author | fvogel <fvogelnew1@free.fr> | 2020-06-18 20:05:06 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2020-06-18 20:05:06 (GMT) |
| commit | c4b734d933418f4ffd61054bc9cd994f4ab2c2be (patch) | |
| tree | e215a8a1920bd80e2309dfef9d81f37e366f79b8 /generic | |
| parent | c62fcfd3b5d1581983a0a9d23567012e2cc8df51 (diff) | |
| download | tk-c4b734d933418f4ffd61054bc9cd994f4ab2c2be.zip tk-c4b734d933418f4ffd61054bc9cd994f4ab2c2be.tar.gz tk-c4b734d933418f4ffd61054bc9cd994f4ab2c2be.tar.bz2 | |
More complete fix: deal with the case the textvariable is set more than once in the validatecommand script.
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tkEntry.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tkEntry.c b/generic/tkEntry.c index 3f6aa15..5fbff40 100644 --- a/generic/tkEntry.c +++ b/generic/tkEntry.c @@ -3293,6 +3293,9 @@ EntryValidateChange( if (entryPtr->validateCmd == NULL || entryPtr->validate == VALIDATE_NONE) { + if (entryPtr->flags & VALIDATING) { + entryPtr->flags |= VALIDATE_ABORT; + } return (varValidate ? TCL_ERROR : TCL_OK); } |