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

added edit-sequence when flushing the delegate updates

Browse Source
This commit is contained in:
Robby Findler 2011-06-17 15:44:48 +08:00
parent 24d11805ac
commit 524d533392
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/framework/private/text.rkt
View File

@ -1509,8 +1509,10 @@
(define timer (new timer% (define timer (new timer%
[notify-callback [notify-callback
(λ () (λ ()
(send delegate begin-edit-sequence)
(for ([th (in-list (reverse todo))]) (for ([th (in-list (reverse todo))])
(th)) (th))
(send delegate end-edit-sequence)
(set! todo '()))])) (set! todo '()))]))
(define/private (to-delegate thunk) (define/private (to-delegate thunk)
(when delegate (when delegate