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

fix a bug in the colorer refactoring

Browse Source 
As it turns out, changing the color (via change-style) can somtimes
split snips, which can change the revision number, which means that
the open port into the editor is no longer valid.

Since this doesn't seem to happen very much when editing in DrRacket,
we just detect this situation and give up on this colorer's port, and
hopefully it actually doesn't happen much (the place it happened that
let me notice this was when inserting an image via a menu in the
drracket test suites)

original commit: 226a7140b5784531103e10338785249a37aac677
This commit is contained in:
Robby Findler 2012-10-31 09:42:49 -05:00
parent cd33065663
commit f0a85b7be2
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/framework/private/color.rkt
View File

@ -310,6 +310,7 @@ added get-regions
(lexer-state-end-pos re-tokenize-ls-argument)
(λ (x) #f)))
(port-count-lines! re-tokenize-in-argument)
(set! rev (get-revision-number))
(continue-re-tokenize start-time #t)]))
(define re-tokenize-lses #f)
@ -319,7 +320,8 @@ added get-regions
(define re-tokenize-lexer-mode-argument #f)
(define/private (continue-re-tokenize start-time did-something?)
(cond
[(and did-something? ((+ start-time 20) . <= . (current-inexact-milliseconds)))
[(or (not (= rev (get-revision-number)))
(and did-something? ((+ start-time 20) . <= . (current-inexact-milliseconds))))
#f]
[else
;(define-values (_line1 _col1 pos-before) (port-next-location in))
@ -512,7 +514,6 @@ added get-regions
[(and colorer-pending? (= rev (get-revision-number)))
(continue-re-tokenize (current-inexact-milliseconds) #f)]
[else
(set! rev (get-revision-number))
(start-re-tokenize (current-inexact-milliseconds))]))
(cond
[finished?