Only do mouse selections for button 1

diff --git a/basis/ui/gadgets/editors/editors.factor b/basis/ui/gadgets/editors/editors.factor
index d50405809fd79e5ff105c1915ccaac0f69bc1474..2ead238a8bf9bafe60924963dc2fc52629906d7d 100644 (file)
--- a/basis/ui/gadgets/editors/editors.factor
+++ b/basis/ui/gadgets/editors/editors.factor
@@ -466,7 +466,7 @@ editor "caret-motion" f {
 editor "selection" f {
     { T{ button-down f { S+ } 1 } extend-selection }
     { T{ button-up f { S+ } 1 } com-copy-selection }
-    { T{ drag } drag-selection }
+    { T{ drag { # 1 } } drag-selection }
     { gain-focus focus-editor }
     { lose-focus unfocus-editor }
     { delete-action remove-selection }

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