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