diff options
Diffstat (limited to 'tests/visual_bb.test')
-rw-r--r-- | tests/visual_bb.test | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/tests/visual_bb.test b/tests/visual_bb.test index 2b06d05..9adb231 100644 --- a/tests/visual_bb.test +++ b/tests/visual_bb.test @@ -11,7 +11,6 @@ namespace import ::tcltest::* tcltest::configure {*}$argv tcltest::loadTestedCommands - set auto_path ". $auto_path" wm title . "Visual Tests for Tk" @@ -95,7 +94,7 @@ test 1.1 {running visual tests} -constraints userInteraction -body { # Set up for keyboard-based menu traversal bind . <Any-FocusIn> { - if {("%d" == "NotifyVirtual") && ("%m" == "NotifyNormal")} { + if {("%d" eq "NotifyVirtual") && ("%m" eq "NotifyNormal")} { focus .menu } } |