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

work around cocoa display-change issue

Browse Source
This commit is contained in:
Matthew Flatt 2010-10-26 16:15:53 -06:00
parent bffff78aad
commit 47c032ff34
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/mred/private/wx/cocoa/queue.rkt
View File

@ -58,6 +58,16 @@
(tellv app setDelegate: app-delegate) (tellv app setDelegate: app-delegate)
(tellv app activateIgnoringOtherApps: #:type _BOOL #t) (tellv app activateIgnoringOtherApps: #:type _BOOL #t)
;; For some reason, nextEventMatchingMask:... gets stuck if the
;; display changes, and it doesn't even send the
;; `applicationDidChangeScreenParameters:' callback. Unstick
;; it by posting a dummy event, since we fortunately can receive
;; a callback via CGDisplayRegisterReconfigurationCallback().
(define-appserv CGDisplayRegisterReconfigurationCallback
(_fun (_fun #:atomic? #t -> _void) _pointer -> _int32))
(define (on-screen-changed) (post-dummy-event))
(CGDisplayRegisterReconfigurationCallback on-screen-changed #f)
;; ------------------------------------------------------------ ;; ------------------------------------------------------------
;; Create an event to post when MzScheme has been sleeping but is ;; Create an event to post when MzScheme has been sleeping but is
;; ready to wake up ;; ready to wake up