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

new accessors

db4
Doug Coleman 2008-09-02 12:35:24 -05:00
parent eb0abca39b
commit c26bf504ca
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/processing/gadget/gadget.factor
View File

@ -32,7 +32,7 @@ M: processing-gadget handle-gesture ( gesture gadget -- ? )
{
[ dup key-down? ]
[
key-down-sym key-value set
sym>> key-value set
key-pressed-value on
key-down>> dup [ call ] [ drop ] if
t
@ -49,7 +49,7 @@ M: processing-gadget handle-gesture ( gesture gadget -- ? )
{
[ dup button-down? ]
[
button-down-# button-value set
#>> button-value set
mouse-pressed-value on
button-down>> dup [ call ] [ drop ] if
t