Changeset 240

Timestamp:

Jan 7, 2004, 4:30:28 PM (21 years ago)

Author:

Gary Byers

Message:

A little bit of conditionalization.

Location:

trunk/ccl/examples

Files:

• cocoa-window.lisp (modified) (8 diffs)
• cocoa.lisp (modified) (1 diff)

trunk/ccl/examples/cocoa-window.lisp

@@ -18 +18 @@
 (in-package "CCL")                      ; for now.
 
-(eval-when (:compile-toplevel :execute)
-  (use-interface-dir :cocoa))
-
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (require "OBJC-SUPPORT"))
+
+(eval-when (:compile-toplevel :execute)
+  (use-interface-dir #+apple-objc  :cocoa #+gnu-objc :gnustep))
+
 
 (defun init-cocoa-application ()
@@ -47 +48 @@
 
 
-
+#+apple-objc
 (defun trace-dps-events (flag)
   (external-call "__DPSSetEventsTraced"
@@ -94 +95 @@
 
 
-
+#+apple-objc
 (define-objc-method ("_shouldTerminate" lisp-application)
   (:<BOOL>)
@@ -105 +106 @@
     "LispApplicationDelegate")
 
+#+apple-objc
 (defun enable-foreground ()
   (%stack-block ((psn 8))
@@ -125 +127 @@
 ;;; split off this way because we don't necessarily wamt to just do
 ;;  (#_exit 0) when we've shut down the Cocoa UI.
+#+apple-objc
 (define-objc-method ((:void shutdown)
                      lisp-application)
@@ -174 +177 @@
 
 
+#+apple-objc
 (defmethod process-verify-quit ((process appkit-process))
   (let* ((app *NSApp*))
@@ -191 +195 @@
        (send app 'termp)))))
 
+#+apple-objc
 (defmethod process-exit-application ((process appkit-process) thunk)
   (when (eq process *initial-process*)
@@ -211 +216 @@
     ;; that it does is to release all autorelease pools.  So, we create
     ;; one, but don't worry about freeing it ...
-    (create-autorelease-pool)
-    (objc-message-send app "_deallocHardCore:" :<BOOL> #$YES :void)))
+    #+apple-objc
+    (progn
+      (create-autorelease-pool)
+      (objc-message-send app "_deallocHardCore:" :<BOOL> #$YES :void))))
 
 

trunk/ccl/examples/cocoa.lisp

@@ -6 +6 @@
 ;;; below.
 
+#+darwinppc-target
+(progn
 (require "FAKE-CFBUNDLE-PATH")
-(fake-cfbundle-path "ccl:OpenMCL.app;Contents;MacOS;dppccl")
+(fake-cfbundle-path "ccl:OpenMCL.app;Contents;MacOS;dppccl"))