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

delay the update of the module language's re-parsing of the editor (and re-computing the buttons) until no keys have been typed for 200 msec

Browse Source 
closes PR 11406
This commit is contained in:
Robby Findler 2011-01-22 17:30:08 -06:00
parent faf152a931
commit 71ecf83d63
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/drracket/private/module-language-tools.rkt
View File

@ -88,12 +88,22 @@
(define/augment (after-delete start len)
(inner (void) after-delete start len)
(modification-at start))
(define timer #f)
(define/private (modification-at start)
(when (send (send (get-tab) get-frame) initialized?)
(when in-module-language?
(when (or (not hash-lang-last-location)
(<= start hash-lang-last-location))
(move-to-new-language)))))
(unless timer
(set! timer (new timer%
[notify-callback
(λ () (move-to-new-language))]
[just-once? #t])))
(send timer stop)
(send timer start 200 #t)))))
(define/private (update-in-module-language? new-one)
(unless (equal? new-one in-module-language?)