Swallow key gestures in key-caps window
parent
acf515d6c6
commit
d2d5dba6a8
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue