diff options
| author | culler <culler> | 2024-05-31 23:09:32 (GMT) |
|---|---|---|
| committer | culler <culler> | 2024-05-31 23:09:32 (GMT) |
| commit | f1542aec0c1636298ec381a06c196f76a5807085 (patch) | |
| tree | 55b032bda050e9d66d789299e375209ba37882b9 /tests | |
| parent | a075e134b1d8a47abdce9fcedf5266529846f271 (diff) | |
| download | tk-f1542aec0c1636298ec381a06c196f76a5807085.zip tk-f1542aec0c1636298ec381a06c196f76a5807085.tar.gz tk-f1542aec0c1636298ec381a06c196f76a5807085.tar.bz2 | |
Restore accidentally deleted linux test code
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/event.test | 24 |
1 files changed, 20 insertions, 4 deletions
diff --git a/tests/event.test b/tests/event.test index ea46dd1..c37fc67 100644 --- a/tests/event.test +++ b/tests/event.test @@ -936,7 +936,11 @@ test event-9.11 {pointer window container = parent} -setup { bind all <Leave> {append result "<Leave> %d %W|"} bind all <Enter> {append result "<Enter> %d %W|"} destroy .one.f1.f2 - if {[tk windowingsystem] ne "x11"} {processevents enter leave} + if {[tk windowingsystem] ne "x11"} { + processevents enter leave + } else { + update + } set result } -cleanup { bind all <Leave> {} @@ -960,7 +964,11 @@ test event-9.12 {pointer window container != parent} -setup { bind all <Leave> {append result "<Leave> %d %W|"} bind all <Enter> {append result "<Enter> %d %W|"} destroy .one.g - if {[tk windowingsystem] ne "x11"} {processevents enter leave} + if {[tk windowingsystem] ne "x11"} { + processevents enter leave + } else { + update + } set result } -cleanup { bind all <Leave> {} @@ -983,7 +991,11 @@ test event-9.13 {pointer window is a toplevel, toplevel destination} -setup { bind all <Enter> {append result "<Enter> %d %W|"} destroy .two waitForWindowEvent .one <Enter> - if {[tk windowingsystem] ne "x11"} {processevents enter leave} + if {[tk windowingsystem] ne "x11"} { + processevents enter leave + } else { + update + } set result } -cleanup { bind all <Leave> {} @@ -1055,7 +1067,11 @@ test event-9.16 {Successive destructions (pointer window + parent), single gener bind all <Leave> {append result "<Leave> %d %W|"} bind all <Enter> {append result "<Enter> %d %W|"} destroy .one.f1 - if {[tk windowingsystem] ne "x11"} {processevents enter leave} + if {[tk windowingsystem] ne "x11"} { + processevents enter leave + } else { + update + } set result } -cleanup { bind all <Leave> {} |