diff options
| author | fvogel <fvogelnew1@free.fr> | 2017-12-03 18:36:35 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2017-12-03 18:36:35 (GMT) |
| commit | 93669096d3960ff7d5463cdb4d6b31b6a31262de (patch) | |
| tree | 37ba248645b4fab0e6d4ebd97f4b5a5dbef793c8 /tests | |
| parent | 5412bafd75cd0c664156f3941e45f6cd4c369bbd (diff) | |
| parent | 762eb7c3ef4ecb6723c31c4d3a6b93137b146a45 (diff) | |
| download | tk-93669096d3960ff7d5463cdb4d6b31b6a31262de.zip tk-93669096d3960ff7d5463cdb4d6b31b6a31262de.tar.gz tk-93669096d3960ff7d5463cdb4d6b31b6a31262de.tar.bz2 | |
Resolve unintended fork
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/bind.test | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/tests/bind.test b/tests/bind.test index f686e03..784b817 100644 --- a/tests/bind.test +++ b/tests/bind.test @@ -43,7 +43,7 @@ proc unsetBindings {} { # change. proc clearRingBuffer {{event}} { for {set i 0} {$i < 30} {incr i} { - event generate . $event ; + event generate . $event } } @@ -1415,11 +1415,6 @@ test bind-15.23 {MatchPatterns procedure, time wrap-around} -setup { clearRingBuffer <Key> bind .t.f <Double-1> {set x 1} set x 0 - # Make sure that no Button or ButtonRelease events are left in - # the pattern matcher's ring buffer. - for {set i 1} {$i < 50} {incr i} { - event generate .t.f <Key-a> ; - } event generate .t.f <Button-1> -time 1000 event generate .t.f <Button-1> -time 1600 event generate .t.f <ButtonRelease-1> -time 1500 |