     hand-click-loc get-global swap screen-loc v- ;
 
 : 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 ? )
     dup hand-last-button get = ;

            1 hand-click# set
        ] if
        hand-last-button set
        now hand-last-time set
    ] bind ;

: update-clicked ( -- )

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
