Changeset 541

Timestamp:

Feb 15, 2004, 8:19:45 AM (21 years ago)

Author:

Gary Byers

Message:

Change PROCESS-INTERRUPT mechanism, since postEvent:atStart: doesn't seem
to always do so from subthreads.

File:

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

trunk/ccl/examples/cocoa-window.lisp

@@ -63 +63 @@
 
 (defconstant process-interrupt-event-subtype 17)
+
+
+
+
+(defclass lisp-application (ns:ns-application)
+    ((termp :foreign-type :<BOOL>))
+  (:metaclass ns:+ns-object))
+
+
+(define-objc-method ((:void :post-event-at-start e) ns:ns-application)
+  (send self :post-event e :at-start t))
 
 ;;; Interrupt the AppKit event process, by enqueing an event (if the
@@ -88 +99 @@
                       :data2 0)))
         (send e 'retain)
-        (send *NSApp* :post-event e :at-start t)))))
-
-
-(defclass lisp-application (ns:ns-application)
-    ((termp :foreign-type :<BOOL>))
-  (:metaclass ns:+ns-object))
-
-
+        (send *NSApp*
+              :perform-selector-on-main-thread (@selector
+                                                "postEventAtStart:")
+              :with-object e
+              :wait-until-done t)))))
 
 #+apple-objc