Calling update after pack .t to make sure the Text is mapped fixes the

sporadic failures in text-27.11, textWind-11.1 - textWind-11.3.

2 files changed, 8 insertions, 0 deletions

diff --git a/tests/text.test b/tests/text.test
index 5eadeac..11dd41c 100644
--- a/tests/text.test
+++ b/tests/text.test
@@ -6542,6 +6542,8 @@ test text-27.10 {TextEditCmd procedure, set modified flag} -body {
 test text-27.11 {TextEditCmd procedure, set modified flag repeat} -setup {
     text .t
     pack .t
+# Make sure the Text is mapped before we start
+    update
     set ::retval {}
 } -body {
     bind .t <<Modified>> "lappend ::retval modified"
diff --git a/tests/textWind.test b/tests/textWind.test
index 5f0c9b0..e189663 100644
--- a/tests/textWind.test
+++ b/tests/textWind.test
@@ -947,6 +947,8 @@ test textWind-11.1 {EmbWinDisplayProc procedure, geometry transforms} -setup {
     destroy .f
     place forget .t
     pack .t
+# Make sure the Text is mapped before we start
+    update
 } -body {
     .t insert 1.0 "Some sample text"
     pack forget .t
@@ -965,6 +967,8 @@ test textWind-11.2 {EmbWinDisplayProc procedure, geometry transforms} -setup {
     destroy .t.f
     place forget .t
     pack .t
+# Make sure the Text is mapped before we start
+    update
 } -body {
     .t insert 1.0 "Some sample text"
     pack forget .t
@@ -984,6 +988,8 @@ test textWind-11.3 {EmbWinDisplayProc procedure, configuration optimization} -se
     destroy .f
     place forget .t
     pack .t
+# Make sure the Text is mapped before we start
+    update
 } -body {
     .t insert 1.0 "Some sample text"
     frame .f -width 30 -height 20 -bg $color