Merge 9.0

tcltk · Dec 6, 2023 · 77cac60 · 77cac60
2 parents c0cc6f0 + 954137b
commit 77cac60
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git 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
@@ -101,7 +101,7 @@ testConstraint failsOnXQuarz [expr {$tcl_platform(os) ne "Darwin" || [tk windowi
 #
 
 proc raiseDelay {} {
-    after 100;
+    after 200;
     update
     update idletasks
 }