             1 hand-click# set
         ] if
         hand-last-button set
-        now hand-last-time set
+        nano-count hand-last-time set
     ] bind ;
 
 : update-clicked ( -- )

    hand-click-loc get-global swap screen-loc v- ;

: multi-click-timeout? ( -- ? )
    now hand-last-time get time- double-click-timeout get before=? ;

: multi-click-button? ( button -- button ? )
    dup hand-last-button get = ;

SYMBOL: hand-last-button
SYMBOL: hand-last-time
0 hand-last-button set-global
nano-count hand-last-time set-global

SYMBOL: hand-buttons
V{ } clone hand-buttons set-global
