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

.

Browse Source 
original commit: fbd9b904b5fde80b223e82f3309920fa88c4d159
This commit is contained in:
Matthew Flatt 2000-10-26 03:10:34 +00:00
parent 543f70f63b
commit b9da05ef9d
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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