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

fix thaw-colorer, as reflected in restoring coloring in an edtor after test-coverage coloring

Browse Source 
svn: r15651
This commit is contained in:
Matthew Flatt 2009-08-01 02:31:51 +00:00
parent 1bf2520388
commit 021a65020f
1 changed files with 15 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
collects/framework/private/color.ss
View File

@ -559,19 +559,21 @@ added get-regions
(else
(begin-edit-sequence #f #f)
(finish-now)
(for-each
(lambda (ls)
(let ([tokens (lexer-state-tokens ls)]
[start-pos (lexer-state-start-pos ls)])
(send tokens for-each
(λ (start len type)
(when (and should-color? (should-color-type? type))
(let ((color (send (get-style-list) find-named-style
(token-sym->style type)))
(sp (+ start-pos start))
(ep (+ start-pos (+ start len))))
(change-style color sp ep #f)))))))
lexer-states)
(when should-color?
(for-each
(lambda (ls)
(let ([tokens (lexer-state-tokens ls)]
[start-pos (lexer-state-start-pos ls)])
(send tokens for-each
(λ (start len data)
(let ([type (data-type data)])
(when (should-color-type? type)
(let ((color (send (get-style-list) find-named-style
(token-sym->style type)))
(sp (+ start-pos start))
(ep (+ start-pos (+ start len))))
(change-style color sp ep #f))))))))
lexer-states))
(end-edit-sequence))))))))