Changeset 138

Timestamp:

Dec 19, 2003, 3:31:13 PM (21 years ago)

Author:

Gary Byers

Message:

Some fixes: ensure that the Cocoa demo works under OSX.

File:

• trunk/ccl/examples/objc-runtime.lisp (modified) (3 diffs)

trunk/ccl/examples/objc-runtime.lisp

@@ -142 +142 @@
             (let* ((id (assign-next-class-id))
                    (class (%inc-ptr class 0))
-                   (meta (pref class :objc_class.class_pointer)))
+                   (meta (pref class #+apple-objc :objc_class.isa #+gnu-objc :objc_class.class_pointer)))
               (ensure-objc-classptr-resolved class)
               (splay-tree-put objc-class-map class id)
@@ -180 +180 @@
   (when *default-bundle-path*
     (let* ((fakepath
-            (native-translated-namestring
-             )))
+            (native-translated-namestring *default-bundle-executable-path*)))
       (setenv "CFProcessPath" fakepath))))
 
+(defloadvar *cocoa-event-process* *initial-process*)
 
 (defun run-in-cocoa-process-and-wait  (f)
@@ -1009 +1009 @@
                                         (objc-class-info-ivars info))))
           (%add-objc-class class)
+          (map-objc-class class)
           (%objc-class-classptr descriptor)))))