From c3c50d2cda143b8cb3e72472fcf992869d9c93cf Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Tue, 9 Dec 2008 14:50:54 -0800
Subject: [PATCH] suppress error when clicking the keyboard in key-caps

---
 extra/key-caps/key-caps.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/key-caps/key-caps.factor b/extra/key-caps/key-caps.factor
index 0865b0ada2..05edb205d2 100755
--- a/extra/key-caps/key-caps.factor
+++ b/extra/key-caps/key-caps.factor
@@ -139,7 +139,7 @@ TUPLE: key-caps-gadget < gadget keys alarm ;
 : make-key-gadget ( scancode dim array -- )
     [ 
         swap [ 
-            " " [ ] <bevel-button>
+            " " [ drop ] <bevel-button>
             swap [ first >>loc ] [ second >>dim ] bi
         ] [ execute ] bi*
     ] dip set-nth ;