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

add to ui backend update-click# and button-down

erg 2006-10-20 19:25:56 +00:00
parent 28053041cb
commit d7df0b209b
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
library/ui/gestures.factor
View File

@ -70,6 +70,10 @@ SYMBOL: hand-loc
SYMBOL: hand-clicked
SYMBOL: hand-click-loc
SYMBOL: hand-click#
SYMBOL: hand-last-button
SYMBOL: hand-last-time
0 hand-last-button set-global
0 hand-last-time set-global
SYMBOL: hand-buttons
V{ } clone hand-buttons set-global
@ -146,6 +150,22 @@ SYMBOL: scroll-direction
: hand-click-rel ( gadget -- loc )
hand-click-loc get-global relative-loc ;
: update-click# ( button -- )
hand-last-button get = [
global [ hand-click# inc ] bind
] [
1 hand-click# set-global
] if ;
: button-down ( button timeout -- )
millis hand-last-time get - rot < [
dup update-click#
] [
1 hand-click# set-global
] if
hand-last-button set-global
millis hand-last-time set-global ;
: under-hand ( -- seq )
#! A sequence whose first element is the world and last is
#! the current gadget, with all parents in between.