Changeset 866

Timestamp:

Aug 30, 2004, 2:34:30 PM (20 years ago)

Author:

Gary Byers

Message:

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

Location:

trunk/ccl/examples

Files:

• cocoa-listener.lisp (modified) (1 diff)
• cocoa-window.lisp (modified) (1 diff)

trunk/ccl/examples/cocoa-listener.lisp

@@ -110 +110 @@
                        :object-for-key #?NSFileHandleNotificationDataItem))
            (document (send self 'document))
-           (data-length (send data 'length))
+           (data-length (send (the ns:ns-data data) 'length))
            (buffer (hemlock-document-buffer document))
            (string (make-string data-length))

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.