steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix shift-drag selection in panes

db4
Slava Pestov 2008-11-20 18:30:08 -06:00
parent 1477a0f6f5
commit d74af138e1
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/ui/gadgets/panes/panes.factor
View File

@ -363,7 +363,11 @@ M: f sloppy-pick-up*
dup hand-rel over sloppy-pick-up >>caret dup hand-rel over sloppy-pick-up >>caret
dup relayout-1 ; dup relayout-1 ;
: begin-selection ( pane -- ) move-caret f >>mark drop ; : begin-selection ( pane -- )
f >>selecting?
move-caret
f >>mark
drop ;
: extend-selection ( pane -- ) : extend-selection ( pane -- )
hand-moved? [ hand-moved? [
@ -389,6 +393,7 @@ M: f sloppy-pick-up*
] if ; ] if ;
: select-to-caret ( pane -- ) : select-to-caret ( pane -- )
t >>selecting?
dup mark>> [ caret>mark ] unless dup mark>> [ caret>mark ] unless
move-caret move-caret
dup request-focus dup request-focus