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

fix frame registration on show' when current-eventspace' is weird

Browse Source 
(i.e., not the frame's eventspace)
 Closes PR 11573

original commit: ffd4193e32317f730b9dd064aa00df2ebc1cb75b
This commit is contained in:
Matthew Flatt 2010-12-29 07:45:49 -07:00
parent bb8f88f28d
commit 93a64e3ebf
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mred/private/wx/cocoa/window.rkt
View File

@ -122,8 +122,9 @@
;; Make sure we're in the right eventspace: ;; Make sure we're in the right eventspace:
(let ([wx (->wx wxb)]) (let ([wx (->wx wxb)])
(and wx (and wx
(eq? (current-eventspace) (eq? (current-thread)
(send wx get-eventspace)))) (eventspace-handler-thread
(send wx get-eventspace)))))
;; Right event space, so handle the event: ;; Right event space, so handle the event:
(do-mouse-event wxb event 'motion #f #f #f))] (do-mouse-event wxb event 'motion #f #f #f))]
[-a _void (mouseEntered: [_id event]) [-a _void (mouseEntered: [_id event])

2
collects/mred/private/wx/common/queue.rkt
View File

@ -453,7 +453,7 @@
(queue-event es cb 'timer-remove))) (queue-event es cb 'timer-remove)))
(define (register-frame-shown f on?) (define (register-frame-shown f on?)
(queue-event (current-eventspace) f (if on? (queue-event (send f get-eventspace) f (if on?
'frame-add 'frame-add
'frame-remove))) 'frame-remove)))