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

report some errors instead of potentially ignoring them

Browse Source 
original commit: 3f11ef9b119b2afbd19afa1f35fc90dd2cfce527
This commit is contained in:
Matthew Flatt 2011-09-01 07:06:20 -06:00
parent 6c30211409
commit afcb8b3e86
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -89,8 +89,10 @@
(define-appserv TransformProcessType (_fun _ProcessSerialNumber-pointer (define-appserv TransformProcessType (_fun _ProcessSerialNumber-pointer
_uint32 _uint32
-> _OSStatus)) -> _OSStatus))
(void (TransformProcessType (make-ProcessSerialNumber 0 kCurrentProcess) (let ([v (TransformProcessType (make-ProcessSerialNumber 0 kCurrentProcess)
kProcessTransformToForegroundApplication)) kProcessTransformToForegroundApplication)])
(unless (zero? v)
(log-error (format "error from TransformProcessType: ~a" v))))
(define app-delegate (tell (tell MyApplicationDelegate alloc) init)) (define app-delegate (tell (tell MyApplicationDelegate alloc) init))
(tellv app setDelegate: app-delegate) (tellv app setDelegate: app-delegate)
@ -108,8 +110,9 @@
(define-appserv CGDisplayRegisterReconfigurationCallback (define-appserv CGDisplayRegisterReconfigurationCallback
(_fun (_fun #:atomic? #t -> _void) _pointer -> _int32)) (_fun (_fun #:atomic? #t -> _void) _pointer -> _int32))
(define (on-screen-changed) (post-dummy-event)) (define (on-screen-changed) (post-dummy-event))
(void (let ([v (CGDisplayRegisterReconfigurationCallback on-screen-changed #f)])
(CGDisplayRegisterReconfigurationCallback on-screen-changed #f)) (unless (zero? v)
(log-error (format "error from CGDisplayRegisterReconfigurationCallback: ~a" v))))
(tellv app finishLaunching) (tellv app finishLaunching)