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

.

Browse Source 
original commit: b52c12cc3707d812b821618fefc8942d62637c37
This commit is contained in:
Matthew Flatt 2000-08-15 20:52:17 +00:00
parent 6eecef52d6
commit 984dd9daff
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/mred/wrap/mred.ss
View File

@ -1323,10 +1323,8 @@
(lambda ()
(let ([mred (get-mred)])
(if mred
(if (and (eq? 'windows (system-type))
(not (eq? (wx:current-eventspace)
(ivar (get-top-level) eventspace))))
;; Windows circumvented event queue, so delay
(if (eq? 'windows (system-type))
;; Windows can circumvent the event queue, so delay
(queue-window-callback
this
(lambda () (send mred on-paint)))