From aea79be7a4b6baf6add8281866773cd6d452dfb7 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 14 Feb 2011 05:48:06 -0700 Subject: [PATCH] cocoa: FFI type corrections --- collects/mred/private/wx/cocoa/queue.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/mred/private/wx/cocoa/queue.rkt b/collects/mred/private/wx/cocoa/queue.rkt index 0480478fbb..f74b25be84 100644 --- a/collects/mred/private/wx/cocoa/queue.rkt +++ b/collects/mred/private/wx/cocoa/queue.rkt @@ -49,7 +49,7 @@ (define-objc-class MyApplicationDelegate NSObject #:protocols (NSApplicationDelegate) [] - [-a _int (applicationShouldTerminate: [_id app]) + [-a _NSUInteger (applicationShouldTerminate: [_id app]) (queue-quit-event) 0] [-a _BOOL (openPreferences: [_id app]) @@ -120,7 +120,7 @@ (import-class NSEvent) (define wake-evt (tell NSEvent - otherEventWithType: #:type _int NSApplicationDefined + otherEventWithType: #:type _NSUInteger NSApplicationDefined location: #:type _NSPoint (make-NSPoint 0.0 0.0) modifierFlags: #:type _NSUInteger 0 timestamp: #:type _double 0.0