suzanne.soy/gui
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

original commit: ca8ad3b88b38034e4dac6715511a749581d0c059
This commit is contained in:
Robby Findler 2013-02-14 19:48:54 -06:00
parent a57a867cf9
commit 3fd96440ad
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)