Changeset 866 for trunk/ccl/examples/cocoa-window.lisp

Timestamp:

Aug 30, 2004, 9:34:30 PM (17 years ago)

Author:

gb

Message:

Use (THE ...) to help the bridge resolve some messages.

File:

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

trunk/ccl/examples/cocoa-window.lisp

@@ -131 +131 @@
 (define-objc-method ((:void :send-event e)
                      lisp-application)
-  (if (and (eql (send e 'type) #$NSApplicationDefined)
-           (eql (send e 'subtype) process-interrupt-event-subtype))
+  (if (and (eql (send (the ns:ns-event e) 'type) #$NSApplicationDefined)
+           (eql (send (the ns:ns-event e) 'subtype) process-interrupt-event-subtype))
     ;;; The thunk to funcall is identified by the value
     ;;; of the event's data1 attribute.