diff options
| author | simonbachmann <simonbachmann@bluewin.ch> | 2017-06-18 16:19:24 (GMT) |
|---|---|---|
| committer | simonbachmann <simonbachmann@bluewin.ch> | 2017-06-18 16:19:24 (GMT) |
| commit | 67481f6306a54cf170cfb2c2e414ce8cf0a6ba9f (patch) | |
| tree | f940e8f8d72f316ab79d8de29d7e7a230f54e3a4 /tests | |
| parent | 7d4cdf5417e7fc800b2c51c0adce91e7888d0359 (diff) | |
| parent | da857da74603d6899b12c090862c7f244e5bb215 (diff) | |
| download | tk-67481f6306a54cf170cfb2c2e414ce8cf0a6ba9f.zip tk-67481f6306a54cf170cfb2c2e414ce8cf0a6ba9f.tar.gz tk-67481f6306a54cf170cfb2c2e414ce8cf0a6ba9f.tar.bz2 | |
merge trunk
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/text.test | 1 | ||||
| -rw-r--r-- | tests/textTag.test | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/tests/text.test b/tests/text.test index 84ed50e..50db250 100644 --- a/tests/text.test +++ b/tests/text.test @@ -6333,6 +6333,7 @@ test text-27.11 {TextEditCmd procedure, set modified flag repeat} -setup { text .t pack .t set ::retval {} + update } -body { bind .t <<Modified>> "lappend ::retval modified" # Shouldn't require [update idle] to trigger event [Bug 1809538] diff --git a/tests/textTag.test b/tests/textTag.test index ca3dc0f..2c09e1d 100644 --- a/tests/textTag.test +++ b/tests/textTag.test @@ -1502,6 +1502,7 @@ test textTag-18.1 {TkTextPickCurrent tag bindings} -setup { bind .t <Leave> {lappend res Leave} set res {} + update # Bindings must not trigger on the widget border, only over # the actual tagged characters themselves. event gen .t <Motion> -warp 1 -x 0 -y 0 ; update |