From 019224348b0e6c1e77e8a789cc691ef9c879eafc Mon Sep 17 00:00:00 2001 From: Erik Charlebois Date: Mon, 23 May 2011 15:10:39 -0400 Subject: [PATCH] Only do mouse selections for button 1 --- basis/ui/gadgets/editors/editors.factor | 2 +- basis/ui/gadgets/panes/panes.factor | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/ui/gadgets/editors/editors.factor b/basis/ui/gadgets/editors/editors.factor index d50405809f..2ead238a8b 100644 --- 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 8fec7e45ce..773ad29c93 100644 --- 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 -- 2.34.1