From 7e71fe081cda913f1179512d648cb8d9eeeddd9c Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sat, 22 Nov 2008 02:24:17 -0600 Subject: [PATCH] Fix shift-drag again --- basis/ui/gadgets/panes/panes.factor | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/basis/ui/gadgets/panes/panes.factor b/basis/ui/gadgets/panes/panes.factor index c1b3df3857..c612cbef0a 100644 --- a/basis/ui/gadgets/panes/panes.factor +++ b/basis/ui/gadgets/panes/panes.factor @@ -10,7 +10,6 @@ io.streams.nested assocs ui.gadgets.presentations ui.gadgets.slots ui.gadgets.grids ui.gadgets.grid-lines classes.tuple models continuations destructors accessors math.geometry.rect ; - IN: ui.gadgets.panes TUPLE: pane < pack @@ -402,7 +401,7 @@ M: f sloppy-pick-up* pane H{ { T{ button-down } [ begin-selection ] } { T{ button-down f { S+ } 1 } [ select-to-caret ] } - { T{ button-up f { S+ } 1 } [ drop ] } + { T{ button-up f { S+ } 1 } [ end-selection ] } { T{ button-up } [ end-selection ] } { T{ drag } [ extend-selection ] } { T{ copy-action } [ com-copy ] }