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

Make frequency a constant

db4
Doug Coleman 2010-05-24 21:20:14 -05:00
parent 586dadba88
commit e9110c09d1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,7 +1,7 @@
USING: game.input game.input.scancodes USING: game.input 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.gestures ; ui.gadgets.borders ui.gestures literals ;
IN: key-caps IN: key-caps
CONSTANT: key-locations H{ CONSTANT: key-locations H{
@ -132,7 +132,7 @@ CONSTANT: key-locations H{
} }
CONSTANT: KEYBOARD-SIZE { 230 65 } CONSTANT: KEYBOARD-SIZE { 230 65 }
: FREQUENCY ( -- f ) 30 recip seconds ; CONSTANT: FREQUENCY $[ 1/30 seconds ]
TUPLE: key-caps-gadget < gadget keys alarm ; TUPLE: key-caps-gadget < gadget keys alarm ;