steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/key-caps/key-caps.factor
View File

@ -1,7 +1,7 @@
USING: game-input game-input.backend game-input.scancodes USING: game-input game-input.backend game-input.scancodes
kernel ui.gadgets ui.gadgets.buttons sequences accessors kernel ui.gadgets ui.gadgets.buttons sequences accessors
words arrays assocs math calendar fry alarms ui words arrays assocs math calendar fry alarms ui
ui.gadgets.borders ; ui.gadgets.borders ui.gestures ;
IN: key-caps IN: key-caps
: key-locations H{ : key-locations H{
@ -168,6 +168,9 @@ M: key-caps-gadget graft*
M: key-caps-gadget ungraft* M: key-caps-gadget ungraft*
alarm>> [ cancel-alarm ] when* ; alarm>> [ cancel-alarm ] when* ;
M: key-caps-gadget handle-gesture*
drop nip [ key-down? ] [ key-up? ] bi or not ;
: key-caps ( -- ) : key-caps ( -- )
[ [
open-game-input open-game-input