Changeset 154


Ignore:
Timestamp:
Dec 29, 2003, 12:15:06 AM (21 years ago)
Author:
Gary Byers
Message:

Use (SUPER) in OBJC-MESSAGE-SEND-SUPER call.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ccl/examples/cocoa-window.lisp

    r6 r154  
    9797(define-objc-method ("_shouldTerminate" lisp-application)
    9898  (:<BOOL>)
    99   (setq termp (objc-message-send-super super "_shouldTerminate" :<BOOL>)))
     99  (setq termp (objc-message-send-super (super) "_shouldTerminate" :<BOOL>)))
    100100
    101101(define-objc-method ((:<BOOL> termp) lisp-application)
Note: See TracChangeset for help on using the changeset viewer.