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

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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.