Only do mouse selections for button 1

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

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 }