Revert [e17046c5] since it does not fix instabilities in textWind-3.* on macOS, and try something else for these tests.

1 files changed, 14 insertions, 20 deletions

diff --git a/tests/textWind.test b/tests/textWind.test
index c96951c..c4ec601 100644
--- a/tests/textWind.test
+++ b/tests/textWind.test
@@ -338,12 +338,11 @@ test textWind-3.2 {EmbWinConfigure procedure} -setup {
     destroy .f
 } -body {
     .t insert 1.0 "Some sample text"
-    update
     frame .f -width 10 -height 20 -bg $color
     .t window create 1.3 -window .f
-    updateWidgets
+    updateWidgets ; after 10 ; updateWidgets
     .t window configure 1.3 -window {}
-    updateWidgets
+    updateWidgets ; after 10 ; updateWidgets
     .t index .f
 } -cleanup {
     destroy .f
@@ -353,13 +352,12 @@ test textWind-3.3 {EmbWinConfigure procedure} -setup {
     destroy .f
 } -body {
     .t insert 1.0 "Some sample text"
-    update
     frame .f -width 10 -height 20 -bg $color
     .t window create 1.3 -window .f
-    updateWidgets
+    updateWidgets ; after 10 ; updateWidgets
     set res [winfo ismapped .f]
     .t window configure 1.3 -window {}
-    updateWidgets
+    updateWidgets ; after 10 ; updateWidgets
     lappend res [winfo ismapped .f] [.t bbox 1.4]
 } -cleanup {
     destroy .f
@@ -370,12 +368,11 @@ test textWind-3.4 {EmbWinConfigure procedure} -setup {
     destroy .t.f
 } -body {
     .t insert 1.0 "Some sample text"
-    update
     frame .t.f -width 10 -height 20 -bg $color
     .t window create 1.3 -window .t.f
-    updateWidgets
+    updateWidgets ; after 10 ; updateWidgets
     .t window configure 1.3 -window {}
-    updateWidgets
+    updateWidgets ; after 10 ; updateWidgets
     .t index .t.f
 } -cleanup {
     destroy .t.f
@@ -385,13 +382,12 @@ test textWind-3.5 {EmbWinConfigure procedure} -setup {
     destroy .t.f
 } -body {
     .t insert 1.0 "Some sample text"
-    update
     frame .t.f -width 10 -height 20 -bg $color
     .t window create 1.3 -window .t.f
-    updateWidgets
+    updateWidgets ; after 10 ; updateWidgets
     set res [winfo ismapped .t.f]
     .t window configure 1.3 -window {}
-    updateWidgets
+    updateWidgets ; after 10 ; updateWidgets
     lappend res [winfo ismapped .t.f] [.t bbox 1.4]
 } -cleanup {
     destroy .t.f
@@ -402,12 +398,11 @@ test textWind-3.6 {EmbWinConfigure procedure} -setup {
     destroy .f
 } -body {
     .t insert 1.0 "Some sample text"
-    update
     frame .f -width 10 -height 20 -bg $color
     .t window create 1.3
-    updateWidgets
+    updateWidgets ; after 10 ; updateWidgets
     .t window configure 1.3 -window .f
-    updateWidgets
+    updateWidgets ; after 10 ; updateWidgets
     list [catch {.t index .f} msg] $msg [winfo ismapped .f] [.t bbox 1.4]
 } -cleanup {
     destroy .f
@@ -418,7 +413,6 @@ test textWind-3.7 {EmbWinConfigure procedure} -setup {
     destroy .f
 } -body {
     .t insert 1.0 "Some sample text"
-    update
     frame .f
     frame .f.f -width 15 -height 20 -bg $color
     pack .f.f
@@ -426,22 +420,22 @@ test textWind-3.7 {EmbWinConfigure procedure} -setup {
 } -cleanup {
     destroy .f
 } -returnCodes error -result {can't embed .f.f in .t}
+
 test textWind-3.8 {EmbWinConfigure procedure} -setup {
     destroy .t2
 } -body {
     .t insert 1.0 "Some sample text"
-    update
     toplevel .t2 -width 20 -height 10 -bg $color
     .t window create 1.3
     .t window configure 1.3 -window .t2
 } -cleanup {
     destroy .t2
 } -returnCodes error -result {can't embed .t2 in .t}
+
 test textWind-3.9 {EmbWinConfigure procedure} -setup {
     destroy .t2
 } -body {
     .t insert 1.0 "Some sample text"
-    update
     toplevel .t2 -width 20 -height 10 -bg $color
     .t window create 1.3
     catch {.t window configure 1.3 -window .t2}
@@ -449,21 +443,21 @@ test textWind-3.9 {EmbWinConfigure procedure} -setup {
 } -cleanup {
     destroy .t2
 } -result {-window {} {} {} {}}
+
 test textWind-3.10 {EmbWinConfigure procedure} -setup {
     .t delete 1.0 end
 } -body {
     .t insert 1.0 "Some sample text"
-    update
     .t window create 1.3
     .t window configure 1.3 -window .t
 } -returnCodes error -result {can't embed .t in .t}
+
 test textWind-3.11 {EmbWinConfigure procedure} -setup {
     .t delete 1.0 end
 } -body {
     # This test checks for various errors when the text claims
     # a window away from itself.
     .t insert 1.0 "Some sample text"
-    update
     button .t.b -text "Hello!"
     .t window create 1.4 -window .t.b
     .t window create 1.6 -window .t.b