Swallow key gestures in key-caps window

db4
Joe Groff 2008-07-27 09:36:05 -07:00
parent acf515d6c6
commit d2d5dba6a8
1 changed files with 4 additions and 1 deletions

View File

@ -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