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

Wrap highlighting in an edit sequence.

Browse Source 
Speeds up display.
This commit is contained in:
Vincent St-Amour 2012-07-23 17:17:49 -04:00
parent 70f8f4d743
commit 73942fcfa8
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/typed-racket/optimizer/tool/tool.rkt
View File

@ -63,7 +63,8 @@
(mixin (text:basic<%> drracket:unit:definitions-text<%>) () (mixin (text:basic<%> drracket:unit:definitions-text<%>) ()
(inherit highlight-range unhighlight-range (inherit highlight-range unhighlight-range
get-tab get-canvas get-pos/text get-tab get-canvas get-pos/text
position-line line-end-position) position-line line-end-position
begin-edit-sequence end-edit-sequence)
(define highlights '()) ; (listof `(,start ,end ,popup-fun)) (define highlights '()) ; (listof `(,start ,end ,popup-fun))
(define clear-thunks '()) ; list of thunks that clear highlights (define clear-thunks '()) ; list of thunks that clear highlights
@ -124,9 +125,11 @@
(apply max (cons 0 (map report-entry-badness report)))) (apply max (cons 0 (map report-entry-badness report))))
(unless (= max-badness 0) ; no missed opts, color table code would error (unless (= max-badness 0) ; no missed opts, color table code would error
(set! color-table (make-color-table max-badness))) (set! color-table (make-color-table max-badness)))
(begin-edit-sequence)
(set! clear-thunks (for/fold ([res '()]) (set! clear-thunks (for/fold ([res '()])
([r (in-list report)]) ([r (in-list report)])
(append (highlight-entry r) res))) (append (highlight-entry r) res)))
(end-edit-sequence)
(set! on? #t)) (set! on? #t))
(define/public (clear-highlights) (define/public (clear-highlights)