From f1542aec0c1636298ec381a06c196f76a5807085 Mon Sep 17 00:00:00 2001
From: culler <culler>
Date: Fri, 31 May 2024 23:09:32 +0000
Subject: Restore accidentally deleted linux test code

---
 tests/event.test | 24 ++++++++++++++++++++----
 1 file 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> {}
-- 
cgit v0.12