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

Improve multi-click detection logic

release
Slava Pestov 2007-11-22 14:21:32 -05:00
parent a7ef4eb1a2
commit 812277815f
1 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
extra/ui/gestures/gestures.factor Normal file → Executable file
View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays assocs kernel math models namespaces USING: arrays assocs kernel math models namespaces
sequences words strings system hashtables math.parser sequences words strings system hashtables math.parser
math.vectors tuples classes ui.gadgets timers ; math.vectors tuples classes ui.gadgets timers combinators ;
IN: ui.gestures IN: ui.gestures
: set-gestures ( class hash -- ) "gestures" set-word-prop ; : set-gestures ( class hash -- ) "gestures" set-word-prop ;
@ -176,9 +176,23 @@ drag-timer construct-empty drag-timer set-global
: hand-click-rel ( gadget -- loc ) : hand-click-rel ( gadget -- loc )
hand-click-loc get-global swap screen-loc v- ; hand-click-loc get-global swap screen-loc v- ;
: multi-click-timeout? ( -- ? )
millis hand-last-time get - double-click-timeout get <= ;
: multi-click-button? ( button -- button ? )
dup hand-last-button get = ;
: multi-click-position? ( -- ? )
hand-loc get hand-click-loc get v- norm 10 <= ;
: multi-click? ( button -- ? ) : multi-click? ( button -- ? )
millis hand-last-time get - double-click-timeout get <= {
swap hand-last-button get = and ; { [ multi-click-timeout? not ] [ f ] }
{ [ multi-click-button? not ] [ f ] }
{ [ multi-click-position? not ] [ f ] }
{ [ multi-click-position? not ] [ f ] }
{ [ t ] [ t ] }
} cond nip ;
: update-click# ( button -- ) : update-click# ( button -- )
global [ global [