Fix drag-gesture error

2008-05-07 08:48:42 -05:00 · 2008-05-07 08:48:42 -05:00 · 9633bda052
parent 0314d05a08
commit 9633bda052
1 changed files with 2 additions and 1 deletions
--- a/extra/ui/gestures/gestures.factor
+++ b/extra/ui/gestures/gestures.factor
@ -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