From a7112d75b06f0c7bba86d032d765f74116f4c41e Mon Sep 17 00:00:00 2001
From: patthoyts <patthoyts@users.sourceforge.net>
Date: Mon, 3 Nov 2008 22:59:05 +0000
Subject: bug #2218949: force focus to the tested widget

---
 tests/ttk/spinbox.test | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/ttk/spinbox.test b/tests/ttk/spinbox.test
index 66a7652..a1b8b1f 100644
--- a/tests/ttk/spinbox.test
+++ b/tests/ttk/spinbox.test
@@ -177,8 +177,8 @@ test spinbox-1.8.4 "-validate option: " -setup {
     .sb configure -validate all -validatecommand {lappend ::spinbox_test %P}
     pack .sb
     .sb set 50
-    focus .sb
-    after 100 {set ::spinbox_wait 1} ; vwait ::spinbox_wait
+    focus -force .sb
+    update
     set ::spinbox_test
 } -cleanup {
     destroy .sb
-- 
cgit v0.12