Clicks in the pane don't scroll anymore
parent
f7d8e204e7
commit
c5f760da65
|
@ -353,7 +353,6 @@ M: f sloppy-pick-up*
|
||||||
: move-caret ( pane -- )
|
: move-caret ( pane -- )
|
||||||
dup hand-rel
|
dup hand-rel
|
||||||
over sloppy-pick-up
|
over sloppy-pick-up
|
||||||
2dup gadget-at-path scroll>gadget
|
|
||||||
over set-pane-caret
|
over set-pane-caret
|
||||||
relayout-1 ;
|
relayout-1 ;
|
||||||
|
|
||||||
|
@ -372,6 +371,7 @@ M: f sloppy-pick-up*
|
||||||
dup caret>mark
|
dup caret>mark
|
||||||
] when
|
] when
|
||||||
] if
|
] if
|
||||||
|
dup dup pane-caret gadget-at-path scroll>gadget
|
||||||
] when drop ;
|
] when drop ;
|
||||||
|
|
||||||
: end-selection ( pane -- )
|
: end-selection ( pane -- )
|
||||||
|
|
Loading…
Reference in New Issue