From a39f501d79c524995811455bd9a8b41e9f40b807 Mon Sep 17 00:00:00 2001
From: culler <culler>
Date: Tue, 28 Nov 2017 14:08:38 +0000
Subject: Use -1 instead of 0 as the invalid keycode in test bind-13.14 since 0
 is a valid keycode (for lowercase a) on a Macintosh.

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

diff --git a/tests/bind.test b/tests/bind.test
index 892ba36..03b9cb1 100644
--- a/tests/bind.test
+++ b/tests/bind.test
@@ -648,8 +648,8 @@ test bind-13.14 {Tk_BindEvent procedure: invalid key detail} -setup {
 } -body {
     bind .t.f <Key> "lappend x Key%K"
     bind .t.f <KeyRelease> "lappend x Release%K"
-    event generate .t.f <Key> -keycode 0
-    event generate .t.f <KeyRelease> -keycode 0
+    event generate .t.f <Key> -keycode -1
+    event generate .t.f <KeyRelease> -keycode -1
     return $x
 } -cleanup {
     destroy .t.f
-- 
cgit v0.12