Attempt to make more test-cases pass on Catalina (not sure we should go this way, but let's see)

3 files changed, 14 insertions, 14 deletions

diff --git a/tests/entry.test b/tests/entry.test
index 67f8374..3951205 100644
--- a/tests/entry.test
+++ b/tests/entry.test
@@ -1671,7 +1671,7 @@ test entry-5.7 {ConfigureEntry procedure} -setup {
 } -body {
     .e configure -font {Courier -12} -width 4 -xscrollcommand scroll
     .e insert end "01234567890"
-    update
+    vwait scrollInfo
     .e configure -width 5
     format {%.6f %.6f} {*}$scrollInfo
 } -cleanup {
@@ -1916,7 +1916,7 @@ test entry-7.1 {InsertChars procedure} -setup {
     .e configure -textvariable contents -xscrollcommand scroll
     .e insert 0 abcde
     .e insert 2 XXX
-    update
+    vwait scrollInfo
     list [.e get] $contents [format {%.6f %.6f} {*}$scrollInfo]
 } -cleanup {
     destroy .e
@@ -1931,7 +1931,7 @@ test entry-7.2 {InsertChars procedure} -setup {
     .e configure -textvariable contents -xscrollcommand scroll
     .e insert 0 abcde
     .e insert 500 XXX
-    update
+    vwait scrollInfo
     list [.e get] $contents [format {%.6f %.6f} {*}$scrollInfo]
 } -cleanup {
     destroy .e
@@ -2927,7 +2927,7 @@ test entry-17.1 {EntryUpdateScrollbar procedure} -body {
     pack .e
     .e delete 0 end
     .e insert 0 123
-    update
+    vwait scrollInfo
     format {%.6f %.6f} {*}$scrollInfo
 } -cleanup {
     destroy .e
@@ -2937,7 +2937,7 @@ test entry-17.2 {EntryUpdateScrollbar procedure} -body {
     pack .e
     .e insert 0 0123456789abcdef
     .e xview 3
-    update
+    vwait scrollInfo
     format {%.6f %.6f} {*}$scrollInfo
 } -cleanup {
     destroy .e
@@ -2947,7 +2947,7 @@ test entry-17.3 {EntryUpdateScrollbar procedure} -body {
     pack .e
     .e insert 0 abcdefghijklmnopqrs
     .e xview 6
-    update
+    vwait scrollInfo
     format {%.6f %.6f} {*}$scrollInfo
 } -cleanup {
     destroy .e
@@ -2960,7 +2960,7 @@ test entry-17.4 {EntryUpdateScrollbar procedure} -setup {
 } -body {
     entry .e -width 5 -xscrollcommand thisisnotacommand
     pack .e
-    update
+    vwait x
     list $x $errorInfo
 } -cleanup {
     destroy .e
diff --git a/tests/scale.test b/tests/scale.test
index 75293aa..48832f4 100644
--- a/tests/scale.test
+++ b/tests/scale.test
@@ -1478,7 +1478,7 @@ test scale-20.4 {Bug [2262543fff] - Scale widget unexpectedly fires command call
     scale .s -from 1 -to 50 -command {set commandedVar}
     .s set 10
     pack .s
-    update  ; # -command callback shall fire
+    vwait commandedVar  ; # -command callback shall fire
     set res [list [.s get] $commandedVar]
 } -cleanup {
     destroy .s
@@ -1506,7 +1506,7 @@ test scale-20.6 {Bug [2262543fff] - Scale widget unexpectedly fires command call
     pack .s
     .s configure -command {set commandedVar}
     .s set 10
-    update  ; # -command callback shall fire
+    vwait commandedVar  ; # -command callback shall fire
     set res [list [.s get] $commandedVar]
 } -cleanup {
     destroy .s
@@ -1519,7 +1519,7 @@ test scale-20.7 {Bug [2262543fff] - Scale widget unexpectedly fires command call
     scale .s -from 1 -to 50 -command {set commandedVar}
     pack .s
     .s set 10
-    update  ; # -command callback shall fire
+    vwait commandedVar  ; # -command callback shall fire
     set res [list [.s get] $commandedVar]
 } -cleanup {
     destroy .s
@@ -1533,7 +1533,7 @@ test scale-20.8 {Bug [2262543fff] - Scale widget unexpectedly fires command call
     scale .s -from 1 -to 50 -variable scaleVar -command {set commandedVar}
     pack .s
     .s set 10
-    update  ; # -command callback shall fire
+    vwait commandedVar  ; # -command callback shall fire
     set res [list [.s get] $commandedVar]
 } -cleanup {
     destroy .s
diff --git a/tests/spinbox.test b/tests/spinbox.test
index f9e11b6..3e99ccf 100644
--- a/tests/spinbox.test
+++ b/tests/spinbox.test
@@ -2013,7 +2013,7 @@ test spinbox-5.7 {ConfigureSpinbox procedure} -setup {
 } -body {
     .e configure -font {Courier -12} -width 4 -xscrollcommand scroll
     .e insert end "01234567890"
-    update
+    vwait scrollInfo
     .e configure -width 5
     format {%.6f %.6f} {*}$scrollInfo
 } -cleanup {
@@ -3173,7 +3173,7 @@ test spinbox-17.2 {SpinboxUpdateScrollbar procedure} -body {
     pack .e
     .e insert 0 0123456789abcdef
     .e xview 3
-    update
+    vwait scrollInfo
     format {%.6f %.6f} {*}$scrollInfo
 } -cleanup {
     destroy .e
@@ -3183,7 +3183,7 @@ test spinbox-17.3 {SpinboxUpdateScrollbar procedure} -body {
     pack .e
     .e insert 0 abcdefghijklmnopqrs
     .e xview 6
-    update
+    vwait scrollInfo
     format {%.6f %.6f} {*}$scrollInfo
 } -cleanup {
     destroy .e