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

suppress error when clicking the keyboard in key-caps

db4
Joe Groff 2008-12-09 14:50:54 -08:00
parent 4f6ed727d0
commit c3c50d2cda
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -139,7 +139,7 @@ TUPLE: key-caps-gadget < gadget keys alarm ;
: make-key-gadget ( scancode dim array -- ) : make-key-gadget ( scancode dim array -- )
[ [
swap [ swap [
" " [ ] <bevel-button> " " [ drop ] <bevel-button>
swap [ first >>loc ] [ second >>dim ] bi swap [ first >>loc ] [ second >>dim ] bi
] [ execute ] bi* ] [ execute ] bi*
] dip set-nth ; ] dip set-nth ;