Only do mouse selections for button 1

[factor.git] / basis / ui / gadgets / panes / panes.factor

diff --git a/basis/ui/gadgets/panes/panes.factor b/basis/ui/gadgets/panes/panes.factor
index 8fec7e45ce02511a9156a958cb6d2a1543118f5e..773ad29c935478d65b38a2a846fb3efbb980fc9c 100644 (file)
--- a/basis/ui/gadgets/panes/panes.factor
+++ b/basis/ui/gadgets/panes/panes.factor
@@ -420,7 +420,7 @@ pane H{
     { T{ button-down f { S+ } 1 } [ select-to-caret ] }
     { T{ button-up f { S+ } 1 } [ end-selection ] }
     { T{ button-up } [ end-selection ] }
-    { T{ drag } [ extend-selection ] }
+    { T{ drag { # 1 } } [ extend-selection ] }
     { copy-action [ com-copy ] }
     { T{ button-down f f 3 } [ pane-menu ] }
 } set-gestures