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

Add key-gesture superclass for key-down and key-up

db4
Slava Pestov 2009-01-31 02:39:27 -06:00
parent 36ebb97dc5
commit 7d632980d8
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/ui/gestures/gestures.factor
View File

@ -87,18 +87,20 @@ zoom-in-action zoom-out-action ;
! Modifiers ! Modifiers
SYMBOLS: C+ A+ M+ S+ ; SYMBOLS: C+ A+ M+ S+ ;
TUPLE: key-down mods sym ; TUPLE: key-gesture mods sym ;
: <key-gesture> ( mods sym action? class -- mods' sym' ) TUPLE: key-down < key-gesture ;
: new-key-gesture ( mods sym action? class -- mods' sym' )
[ [ [ S+ swap remove f like ] dip ] unless ] dip boa ; inline [ [ [ S+ swap remove f like ] dip ] unless ] dip boa ; inline
: <key-down> ( mods sym action? -- key-down ) : <key-down> ( mods sym action? -- key-down )
key-down <key-gesture> ; key-down new-key-gesture ;
TUPLE: key-up mods sym ; TUPLE: key-up < key-gesture ;
: <key-up> ( mods sym action? -- key-up ) : <key-up> ( mods sym action? -- key-up )
key-up <key-gesture> ; key-up new-key-gesture ;
! Hand state ! Hand state