From fa56d2849b4e6e67833cb3865424531135247e2c Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sat, 22 Nov 2008 02:23:43 -0600
Subject: [PATCH] Fix alt-click and control-click to simulate middle and right
 mouse button clicks

---
 basis/ui/gadgets/worlds/worlds.factor | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/basis/ui/gadgets/worlds/worlds.factor b/basis/ui/gadgets/worlds/worlds.factor
index d9ed50c2ec..904a2a5bac 100644
--- a/basis/ui/gadgets/worlds/worlds.factor
+++ b/basis/ui/gadgets/worlds/worlds.factor
@@ -117,12 +117,14 @@ PREDICATE: specific-drag < drag #>> ;
     clone f >># button-gesture ;
 
 M: world handle-gesture ( gesture gadget -- ? )
-    {
-        { [ over specific-button-up? ] [ drop generalize-gesture t ] }
-        { [ over specific-button-down? ] [ drop generalize-gesture t ] }
-        { [ over specific-drag? ] [ drop generalize-gesture t ] }
-        [ call-next-method ]
-    } cond ;
+    2dup call-next-method [
+        {
+            { [ over specific-button-up? ] [ drop generalize-gesture f ] }
+            { [ over specific-button-down? ] [ drop generalize-gesture f ] }
+            { [ over specific-drag? ] [ drop generalize-gesture f ] }
+            [ 2drop t ]
+        } cond
+    ] [ 2drop f ] if ;
 
 : close-global ( world global -- )
     dup get-global find-world rot eq?