Changeset 15020

Timestamp:

Oct 12, 2011, 8:57:23 AM (13 years ago)

Author:

gz

Message:

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

File:

• trunk/source/cocoa-ide/cocoa-listener.lisp (modified) (2 diffs)

trunk/source/cocoa-ide/cocoa-listener.lisp

@@ -256 +256 @@
 (defloadvar *first-listener* t)
 
-(defun new-cocoa-listener-process (procname window &key (class 'cocoa-listener-process) initargs)
+(defun new-cocoa-listener-process (procname window &key (class 'cocoa-listener-process)
+                                                        (initial-function 'ccl::listener-function)
+                                                        initargs)
   (declare (special *standalone-cocoa-ide*))
   (let* ((input-stream (make-instance 'cocoa-listener-input-stream))
@@ -285 +287 @@
            (ccl::startup-ccl (ccl::application-init-file ccl::*application*))
            (ui-object-note-package *nsapp* *package*))
-         (ccl::listener-function))
+         (funcall initial-function))
      :echoing nil
      :class class