Changeset 5911

Timestamp:

Feb 13, 2007, 5:07:49 PM (18 years ago)

Author:

Gary Byers

Message:

Don't change-class *cocoa-event-process* until we start to run the event
loop.

Don't do _deallocHardCore: explicitly.

File:

• trunk/ccl/examples/cocoa-window.lisp (modified) (2 diffs)

trunk/ccl/examples/cocoa-window.lisp

@@ -167 +167 @@
 (defun run-event-loop ()
   (%set-toplevel nil)
+  (change-class *cocoa-event-process* 'appkit-process)
   (let* ((app *NSApp*))
     (loop
@@ -172 +173 @@
           (error (c) (nslog-condition c)))
         (unless (send app 'is-running)
-          (return)))
-    ;; This is a little funky (OK, it's a -lot- funky.) The
-    ;; -[NSApplication _deallocHardCore:] method wants an autorelease
-    ;; pool to be established when it's called, but one of the things
-    ;; that it does is to release all autorelease pools.  So, we create
-    ;; one, but don't worry about freeing it ...
-    #+apple-objc
-    (progn
-      (create-autorelease-pool)
-      (objc-message-send app "_deallocHardCore:" :<BOOL> #$YES :void))))
-
-
-(change-class *cocoa-event-process* 'appkit-process)
+          (return)))))
+
+
 
 (defun start-cocoa-application (&key