From 6d1f1e3b5e263456e1137ffb109fe2d4afe68711 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Fri, 15 May 2009 11:04:11 -0500
Subject: [PATCH] cocoa doesn't send key-up gestures for cmd+keys

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

diff --git a/extra/terrain/terrain.factor b/extra/terrain/terrain.factor
index d6905144bb..fb326ef534 100644
--- a/extra/terrain/terrain.factor
+++ b/extra/terrain/terrain.factor
@@ -134,7 +134,7 @@ M: terrain-world tick-length
 
 
 terrain-world H{
-    { T{ key-up { mods { A+ } } { sym "RET" } } [ toggle-fullscreen ] }
+    { T{ key-down { mods { A+ } } { sym "RET" } } [ toggle-fullscreen ] }
 } set-gestures
 
 :: handle-input ( world -- )