Changeset 653

Timestamp:

Mar 17, 2004, 7:19:41 AM (21 years ago)

Author:

Gary Byers

Message:

Create an NSThread early.

File:

• trunk/ccl/examples/cocoa-window.lisp (modified) (1 diff)

trunk/ccl/examples/cocoa-window.lisp

@@ -45 +45 @@
                 :load-nib-named mainnibname
                 :owner app)
+          ;; Create an NSThread which does nothing but exit.
+          ;; This'll help to convince the AppKit that we're
+          ;; multitheaded.  (A lot of other things, including
+          ;; the ObjC runtime, seem to have already noticed.)
+          (send (@class "NSThread")
+                :detach-new-thread-selector (@selector "exit")
+                :to-target (@class "NSThread")
+                :with-object (%null-ptr))
           app))))