Changeset 866


Ignore:
Timestamp:
Aug 30, 2004, 9:34:30 PM (16 years ago)
Author:
gb
Message:

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

Location:
trunk/ccl/examples
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/examples/cocoa-listener.lisp

    r816 r866  
    110110                       :object-for-key #?NSFileHandleNotificationDataItem))
    111111           (document (send self 'document))
    112            (data-length (send data 'length))
     112           (data-length (send (the ns:ns-data data) 'length))
    113113           (buffer (hemlock-document-buffer document))
    114114           (string (make-string data-length))
  • trunk/ccl/examples/cocoa-window.lisp

    r840 r866  
    131131(define-objc-method ((:void :send-event e)
    132132                     lisp-application)
    133   (if (and (eql (send e 'type) #$NSApplicationDefined)
    134            (eql (send e 'subtype) process-interrupt-event-subtype))
     133  (if (and (eql (send (the ns:ns-event e) 'type) #$NSApplicationDefined)
     134           (eql (send (the ns:ns-event e) 'subtype) process-interrupt-event-subtype))
    135135    ;;; The thunk to funcall is identified by the value
    136136    ;;; of the event's data1 attribute.
Note: See TracChangeset for help on using the changeset viewer.