From 2c481a8b318d561e9941bd5152601d5957f2b443 Mon Sep 17 00:00:00 2001
From: culler <culler>
Date: Sat, 25 Jul 2020 14:21:28 +0000
Subject: Remove the race condition from listbox-21.10 the same way as for
 listbox-21.9

---
 tests/listbox.test | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/tests/listbox.test b/tests/listbox.test
index 806bbe0..3a6c860 100644
--- a/tests/listbox.test
+++ b/tests/listbox.test
@@ -2680,21 +2680,19 @@ test listbox-21.10 {ListboxListVarProc, test hscrollbar after listvar mod} -setu
 } -body {
     catch {unset x}
     listbox .l -font $fixed -width 10 -xscrollcommand "record x" -listvar x
-    set log {}
     pack .l
-    set timeout [after 500 {lappend log timeout2}]
-    vwait log
+    update idletasks
+    set log {}
     lappend x "0000000000"
-    update
+    update idletasks
     lappend x "00000000000000000000"
-    update
+    update idletasks
     set x [list "0000000000"]
-    update
+    update idletasks
     set log
 } -cleanup {
     destroy .l
-    after cancel $timeout
-} -result [list {x 0 1} {x 0 1} {x 0 0.5} {x 0 1}]
+} -result [list {x 0 1} {x 0 0.5} {x 0 1}]
 test listbox-21.11 {ListboxListVarProc, bad list} -setup {
     destroy .l
 } -body {
-- 
cgit v0.12