summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorculler <culler>2023-12-06 20:27:46 (GMT)
committerculler <culler>2023-12-06 20:27:46 (GMT)
commit8a1948af29ccf03658724cf589bdf9deb773911b (patch)
treead6a12f072083028ce7aabd1f2ed374bab9fc111
parent2f27571a5b6fe32eb945073839b1a67cf4dc2ba2 (diff)
parentcf28e70a810d8fe325d1724cc5db74e9e0732a5f (diff)
downloadtk-8a1948af29ccf03658724cf589bdf9deb773911b.zip
tk-8a1948af29ccf03658724cf589bdf9deb773911b.tar.gz
tk-8a1948af29ccf03658724cf589bdf9deb773911b.tar.bz2
Merge core-8-6-branch
-rw-r--r--tests/focus.test1
-rw-r--r--tests/wm.test2
2 files changed, 2 insertions, 1 deletions
diff --git a/tests/focus.test b/tests/focus.test
index 1a318c3..ecbf496 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 222dcb8..9fb3c73 100644
--- 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
}