diff options
author | patthoyts <patthoyts@users.sourceforge.net> | 2008-11-03 22:59:05 (GMT) |
---|---|---|
committer | patthoyts <patthoyts@users.sourceforge.net> | 2008-11-03 22:59:05 (GMT) |
commit | a7112d75b06f0c7bba86d032d765f74116f4c41e (patch) | |
tree | 5fb73b428dacf23ff45422b4ecee647975101543 | |
parent | f06df1b8e04eeb7f767e691d06ba1ed9b8b2bf7b (diff) | |
download | tk-a7112d75b06f0c7bba86d032d765f74116f4c41e.zip tk-a7112d75b06f0c7bba86d032d765f74116f4c41e.tar.gz tk-a7112d75b06f0c7bba86d032d765f74116f4c41e.tar.bz2 |
bug #2218949: force focus to the tested widget
-rw-r--r-- | tests/ttk/spinbox.test | 4 |
1 files 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 |