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

cocoa: FFI type corrections

Browse Source
This commit is contained in:
Matthew Flatt 2011-02-14 05:48:06 -07:00
parent d2eb80be35
commit aea79be7a4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -49,7 +49,7 @@
(define-objc-class MyApplicationDelegate NSObject #:protocols (NSApplicationDelegate) (define-objc-class MyApplicationDelegate NSObject #:protocols (NSApplicationDelegate)
[] []
[-a _int (applicationShouldTerminate: [_id app]) [-a _NSUInteger (applicationShouldTerminate: [_id app])
(queue-quit-event) (queue-quit-event)
0] 0]
[-a _BOOL (openPreferences: [_id app]) [-a _BOOL (openPreferences: [_id app])
@ -120,7 +120,7 @@
(import-class NSEvent) (import-class NSEvent)
(define wake-evt (define wake-evt
(tell NSEvent (tell NSEvent
otherEventWithType: #:type _int NSApplicationDefined otherEventWithType: #:type _NSUInteger NSApplicationDefined
location: #:type _NSPoint (make-NSPoint 0.0 0.0) location: #:type _NSPoint (make-NSPoint 0.0 0.0)
modifierFlags: #:type _NSUInteger 0 modifierFlags: #:type _NSUInteger 0
timestamp: #:type _double 0.0 timestamp: #:type _double 0.0