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

use nano-count instead of timestamps for mouse clicks

db4
Doug Coleman 2009-11-19 18:23:29 -06:00
parent dc1eefbcc9
commit d9d2fe6c92
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/ui/gestures/gestures.factor
View File

@ -156,7 +156,7 @@ SYMBOL: hand-click#
SYMBOL: hand-last-button SYMBOL: hand-last-button
SYMBOL: hand-last-time SYMBOL: hand-last-time
0 hand-last-button set-global 0 hand-last-button set-global
<zero> hand-last-time set-global nano-count hand-last-time set-global
SYMBOL: hand-buttons SYMBOL: hand-buttons
V{ } clone hand-buttons set-global V{ } clone hand-buttons set-global
@ -246,7 +246,8 @@ SYMBOL: drag-timer
hand-click-loc get-global swap screen-loc v- ; hand-click-loc get-global swap screen-loc v- ;
: multi-click-timeout? ( -- ? ) : multi-click-timeout? ( -- ? )
now hand-last-time get time- double-click-timeout get before=? ; nano-count hand-last-time get - nanoseconds
double-click-timeout get before=? ;
: multi-click-button? ( button -- button ? ) : multi-click-button? ( button -- button ? )
dup hand-last-button get = ; dup hand-last-button get = ;
@ -269,7 +270,7 @@ SYMBOL: drag-timer
1 hand-click# set 1 hand-click# set
] if ] if
hand-last-button set hand-last-button set
now hand-last-time set nano-count hand-last-time set
] bind ; ] bind ;
: update-clicked ( -- ) : update-clicked ( -- )