From cf28e70a810d8fe325d1724cc5db74e9e0732a5f Mon Sep 17 00:00:00 2001
From: culler <culler>
Date: Wed, 6 Dec 2023 19:12:11 +0000
Subject: [PATCH] Increase delays so tests pass on macOS Sonoma.

---
 tests/focus.test | 1 +
 tests/wm.test    | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/tests/focus.test b/tests/focus.test
index 5a13d9128c..e8d3c580b9 100644
--- a/tests/focus.test
+++ b/tests/focus.test
@@ -78,6 +78,7 @@ if {[testConstraint altDisplay]} {
 
 test focus-1.1 {Tk_FocusCmd procedure} -constraints unix -body {
     focusClear
+    after 100
     focus
 } -result {}
 test focus-1.2 {Tk_FocusCmd procedure} -constraints {
diff --git a/tests/wm.test b/tests/wm.test
index f931e3b0b7..79b1b8dcfd 100644
--- a/tests/wm.test
+++ b/tests/wm.test
@@ -36,7 +36,7 @@ testConstraint failsOnXQuarz [expr {$tcl_platform(os) ne "Darwin" || [tk windowi
 #
 
 proc raiseDelay {} {
-    after 100;
+    after 200;
     update
     update idletasks
 }