From d2d5dba6a84cdc172c6fe5c201a14f26abf14d18 Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Sun, 27 Jul 2008 09:36:05 -0700 Subject: [PATCH] Swallow key gestures in key-caps window --- extra/key-caps/key-caps.factor | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/extra/key-caps/key-caps.factor b/extra/key-caps/key-caps.factor index 149036287d..4161b94908 100755 --- a/extra/key-caps/key-caps.factor +++ b/extra/key-caps/key-caps.factor @@ -1,7 +1,7 @@ USING: game-input game-input.backend game-input.scancodes kernel ui.gadgets ui.gadgets.buttons sequences accessors words arrays assocs math calendar fry alarms ui -ui.gadgets.borders ; +ui.gadgets.borders ui.gestures ; IN: key-caps : key-locations H{ @@ -168,6 +168,9 @@ M: key-caps-gadget graft* M: key-caps-gadget ungraft* alarm>> [ cancel-alarm ] when* ; +M: key-caps-gadget handle-gesture* + drop nip [ key-down? ] [ key-up? ] bi or not ; + : key-caps ( -- ) [ open-game-input