Changeset 15020


Ignore:
Timestamp:
Oct 12, 2011, 3:57:23 PM (8 years ago)
Author:
gz
Message:

add :initial-function arg to new-cocoa-listener-process

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/cocoa-listener.lisp

    r14996 r15020  
    256256(defloadvar *first-listener* t)
    257257
    258 (defun new-cocoa-listener-process (procname window &key (class 'cocoa-listener-process) initargs)
     258(defun new-cocoa-listener-process (procname window &key (class 'cocoa-listener-process)
     259                                                        (initial-function 'ccl::listener-function)
     260                                                        initargs)
    259261  (declare (special *standalone-cocoa-ide*))
    260262  (let* ((input-stream (make-instance 'cocoa-listener-input-stream))
     
    285287           (ccl::startup-ccl (ccl::application-init-file ccl::*application*))
    286288           (ui-object-note-package *nsapp* *package*))
    287          (ccl::listener-function))
     289         (funcall initial-function))
    288290     :echoing nil
    289291     :class class
Note: See TracChangeset for help on using the changeset viewer.