ui.gadgets.panes: Shift-clicking to extend the selection in a pane should not focus the pane's input area

2009-07-03 22:41:32 -05:00 · 2009-07-03 22:41:32 -05:00 · d108324f19
parent 8c3c007d8e
commit d108324f19
1 changed files with 2 additions and 2 deletions
--- a/basis/ui/gadgets/panes/panes.factor
+++ b/basis/ui/gadgets/panes/panes.factor
@ -397,8 +397,8 @@ M: f sloppy-pick-up*
    ] [ drop ] if ;

 : end-selection ( pane -- )
-    f >>selecting?
-    hand-moved?
+    dup selecting?>> hand-moved? or
+    [ f >>selecting? ] dip
    [ [ com-copy-selection ] [ request-focus ] bi ]
    [ [ relayout-1 ] [ focus-input ] bi ]
    if ;