Fix drag-gesture error

db4
Slava Pestov 2008-05-07 08:48:42 -05:00
parent 0314d05a08
commit 9633bda052
1 changed files with 2 additions and 1 deletions
extra/ui/gestures

View File

@ -111,7 +111,8 @@ SYMBOL: double-click-timeout
] if ;
: drag-gesture ( -- )
hand-buttons get-global first <drag> button-gesture ;
hand-buttons get-global
dup empty? [ drop ] [ first <drag> button-gesture ] if ;
SYMBOL: drag-timer