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

.

Browse Source 
original commit: b7bc89dd7e837632aa832dc5d99609b744841f09
This commit is contained in:
Matthew Flatt 2004-11-10 18:13:19 +00:00
parent 6acee2d830
commit f0ca288447
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
collects/mred/mred.ss
View File

@ -623,16 +623,18 @@
[delay-updates [delay-updates
(case-lambda (case-lambda
[() (not perform-updates?)] [() (not perform-updates?)]
[(f) (set! perform-updates? (not f)) [(f)
(when (and perform-updates? pending-redraws?) (set! perform-updates? (not f))
(force-redraw)) (when perform-updates?
(when (and perform-updates? (positive? (hash-table-count show-ht))) (when pending-redraws?
(let ([t show-ht]) (force-redraw))
(set! show-ht (make-hash-table)) (when (positive? (hash-table-count show-ht))
(hash-table-for-each (let ([t show-ht])
show-ht (set! show-ht (make-hash-table))
(lambda (win v?) (hash-table-for-each
(send win show v?)))))])] t
(lambda (win v?)
(send win show v?))))))])]
[begin-container-sequence [begin-container-sequence
(lambda () (lambda ()
(when (zero? seq-count) (when (zero? seq-count)