suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

try to be slightly smarter about invalidating the green region

Browse Source 
in the line numbers when it moves around

specifically, if the before and after green line are right
next to each other, then put it into a single edit sequence
(which unions the invalidated regions); if not, then we
may be jumping far away, so invalidate the two regions
and redraw them separately
This commit is contained in:
Robby Findler 2013-02-14 19:48:54 -06:00
parent 30ca1f0baf
commit ca8ad3b88b
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/framework/private/text.rkt
View File

@ -4288,13 +4288,20 @@ designates the character that triggers autocompletion
;; when the line stays the same, don't invalidate anything
(set! old-position (get-start-position))]
[else
(when old-position
(invalidate-at-position old-position))
(define old-position-before old-position)
(set! old-position (and (= (get-start-position)
(get-end-position))
(get-start-position)))
(when old-position
(invalidate-at-position old-position))])
(define single-edit-sequence?
(and old-position-before
old-position
(<= (abs (- (position-paragraph old-position-before)
(position-paragraph old-position)))
1)))
(when single-edit-sequence? (begin-edit-sequence #f #f))
(when old-position-before (invalidate-at-position old-position-before))
(when old-position (invalidate-at-position old-position))
(when single-edit-sequence? (end-edit-sequence))])
(inner (void) after-set-position))
(define/private (invalidate-at-position pos)