Changeset 15064

Timestamp:

Nov 8, 2011, 11:15:06 AM (13 years ago)

Author:

gz

Message:

Add an inhibit-greeting arg to new-listener, and implement it kludgily

File:

• trunk/source/cocoa-ide/cocoa-utils.lisp (modified) (1 diff)

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

@@ -159 +159 @@
 
 
-(defun new-listener ()
+(defun new-listener (&key (inhibit-greeting ccl::*inhibit-greeting*))
   (let ((wptr (execute-in-gui (lambda ()
                                 (declare (special hemlock-listener-document))
-                                (#/newListener: (#/delegate *NSApp*) (%null-ptr))
+                                ;; TODO: fix this.
+                                (let ((old ccl::*inhibit-greeting*))
+                                  (unwind-protect
+                                      (progn
+                                        (setq ccl::*inhibit-greeting* inhibit-greeting)
+                                        (#/newListener: (#/delegate *NSApp*) (%null-ptr)))
+                                    (setq ccl::*inhibit-greeting* old)))
                                 (let ((doc (#/topListener hemlock-listener-document)))
                                   (unless (%null-ptr-p doc)