diff options
| author | fvogel <fvogelnew1@free.fr> | 2017-12-03 18:35:25 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2017-12-03 18:35:25 (GMT) |
| commit | 762eb7c3ef4ecb6723c31c4d3a6b93137b146a45 (patch) | |
| tree | 29afc2f89cd6c8aec1b06144b5f0012de176ef30 /tests | |
| parent | a049de0ed966543077018ed1e86f4577564cac86 (diff) | |
| download | tk-762eb7c3ef4ecb6723c31c4d3a6b93137b146a45.zip tk-762eb7c3ef4ecb6723c31c4d3a6b93137b146a45.tar.gz tk-762eb7c3ef4ecb6723c31c4d3a6b93137b146a45.tar.bz2 | |
Remove letftover try.
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 336f018..56d2b57 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 |