From 0d9d00cb1cdcdc13320d7e8b00ec4c7e4e40d9bd Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 24 Nov 2010 16:57:44 -0700
Subject: [PATCH] cocoa: finally found the documented API to enable GUI mode

original commit: ab070b205ea20b76b76dea5e027d2a35e7de6c73
---
 collects/mred/private/wx/cocoa/finfo.rkt |  2 --
 collects/mred/private/wx/cocoa/queue.rkt | 19 ++++++++++---------
 collects/mred/private/wx/cocoa/types.rkt |  4 +++-
 3 files changed, 13 insertions(+), 12 deletions(-)

diff --git a/collects/mred/private/wx/cocoa/finfo.rkt b/collects/mred/private/wx/cocoa/finfo.rkt
index dad503cb..300386ef 100644
--- a/collects/mred/private/wx/cocoa/finfo.rkt
+++ b/collects/mred/private/wx/cocoa/finfo.rkt
@@ -65,8 +65,6 @@
 
 (define _FSRef _pointer) ; 80 bytes
 
-(define _OSStatus _sint32)
-
 (define-coreserv FSPathMakeRef (_fun _path _FSRef (_pointer = #f) -> _OSStatus))
 
 (define-coreserv FSGetCatalogInfo
diff --git a/collects/mred/private/wx/cocoa/queue.rkt b/collects/mred/private/wx/cocoa/queue.rkt
index 651d0eea..d6ca67c5 100644
--- a/collects/mred/private/wx/cocoa/queue.rkt
+++ b/collects/mred/private/wx/cocoa/queue.rkt
@@ -68,15 +68,16 @@
 ;; In case we were started in an executable without a bundle,
 ;; explicitly register with the dock so the application can receive
 ;; keyboard events.
-;; This technique is not sanctioned by Apple --- I found the code in SDL.
-(define-cstruct _CPSProcessSerNum ([lo _uint32] [hi _uint32]))
-(define-appserv CPSGetCurrentProcess (_fun _CPSProcessSerNum-pointer -> _int)
-  #:fail (lambda () (lambda args 1)))
-(define-appserv CPSEnableForegroundOperation (_fun _CPSProcessSerNum-pointer _int _int _int _int -> _int)
-  #:fail (lambda () #f))
-(let ([psn (make-CPSProcessSerNum 0 0)])
-  (when (zero? (CPSGetCurrentProcess psn))
-    (void (CPSEnableForegroundOperation psn #x03 #x3C #x2C #x1103))))
+(define-cstruct _ProcessSerialNumber
+  ([highLongOfPSN _ulong]
+   [lowLongOfPSN _ulong]))
+(define kCurrentProcess 2)
+(define kProcessTransformToForegroundApplication 1)
+(define-appserv TransformProcessType (_fun _ProcessSerialNumber-pointer
+                                           _uint32
+                                           -> _OSStatus))
+(void (TransformProcessType (make-ProcessSerialNumber 0 kCurrentProcess)
+                            kProcessTransformToForegroundApplication))
 
 (define app-delegate (tell (tell MyApplicationDelegate alloc) init))
 (tellv app setDelegate: app-delegate)
diff --git a/collects/mred/private/wx/cocoa/types.rkt b/collects/mred/private/wx/cocoa/types.rkt
index 5e577c95..665aeae1 100644
--- a/collects/mred/private/wx/cocoa/types.rkt
+++ b/collects/mred/private/wx/cocoa/types.rkt
@@ -5,7 +5,7 @@
          "utils.rkt")
 
 (provide 
- (protect-out _NSInteger _NSUInteger
+ (protect-out _NSInteger _NSUInteger _OSStatus
               _CGFloat
               _NSPoint _NSPoint-pointer (struct-out NSPoint)
               _NSSize _NSSize-pointer (struct-out NSSize)
@@ -18,6 +18,8 @@
 (define _NSInteger _long)
 (define _NSUInteger _ulong)
 
+(define _OSStatus _sint32)
+
 (define 64-bit? (= (ctype-sizeof _long) 8))
 
 (define _CGFloat (make-ctype (if 64-bit? _double _float)