Changeset 11998

Timestamp:

May 5, 2009, 12:59:01 AM (12 years ago)

Author:

gb

Message:

Try to load "home:ccl-ide-init" in the app delegate's
#/applicationWillFinishLaunching: method. At this point in time,
the menubar's been loaded and the event loop is about to begin; no
windows have been created yet.

Note that this occurs on the main thread (so there are issues related
to error handling, I/O, etc.) and that it happens before the standard
init file is loaded (in the first listener.)

File:

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

trunk/source/cocoa-ide/app-delegate.lisp

@@ -33 +33 @@
                 (lisp-string-from-nsstring parent))))
     (ccl::replace-base-translation "ccl:" path)))
-         
+
+
+(defvar *ccl-ide-init-file* "home:ccl-ide-init")
+
+;;; Errors that occur while this file is loading will enter a break
+;;; loop, with *DEBUG-IO* connected to the terminal/Emacs, to AltConsole,
+;;; or to /dev/null and syslog.
+(defun load-ide-init-file ()
+  (with-simple-restart (continue "Skip loading IDE init file.")
+    (load *ccl-ide-init-file* :if-does-not-exist nil :verbose nil)))
 
 (objc:defmethod (#/applicationWillFinishLaunching: :void)
@@ -39 +48 @@
   (declare (ignore notification))
   (initialize-user-interface)
-  (let* ((c (#/init (#/alloc console-window))))
-    (unless (%null-ptr-p c)
-      (setf (console *nsapp*) c))))
+  (load-ide-init-file))
 
 (objc:defmethod (#/applicationWillTerminate: :void)