Use new distance word

db4
Slava Pestov 2008-11-29 10:38:27 -06:00
parent 5bc173b9cf
commit cbf392c889
1 changed files with 1 additions and 1 deletions

View File

@ -205,7 +205,7 @@ SYMBOL: drag-timer
dup hand-last-button get = ;
: multi-click-position? ( -- ? )
hand-loc get hand-click-loc get v- norm-sq 100 <= ;
hand-loc get hand-click-loc get distance 10 <= ;
: multi-click? ( button -- ? )
{