Changeset 15064


Ignore:
Timestamp:
Nov 8, 2011, 7:15:06 PM (8 years ago)
Author:
gz
Message:

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

File:
1 edited

Legend:

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

    r15030 r15064  
    159159
    160160
    161 (defun new-listener ()
     161(defun new-listener (&key (inhibit-greeting ccl::*inhibit-greeting*))
    162162  (let ((wptr (execute-in-gui (lambda ()
    163163                                (declare (special hemlock-listener-document))
    164                                 (#/newListener: (#/delegate *NSApp*) (%null-ptr))
     164                                ;; TODO: fix this.
     165                                (let ((old ccl::*inhibit-greeting*))
     166                                  (unwind-protect
     167                                      (progn
     168                                        (setq ccl::*inhibit-greeting* inhibit-greeting)
     169                                        (#/newListener: (#/delegate *NSApp*) (%null-ptr)))
     170                                    (setq ccl::*inhibit-greeting* old)))
    165171                                (let ((doc (#/topListener hemlock-listener-document)))
    166172                                  (unless (%null-ptr-p doc)
Note: See TracChangeset for help on using the changeset viewer.