Changeset 11998


Ignore:
Timestamp:
May 5, 2009, 12:59:01 AM (10 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:
1 edited

Legend:

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

    r11992 r11998  
    3333                (lisp-string-from-nsstring parent))))
    3434    (ccl::replace-base-translation "ccl:" path)))
    35          
     35
     36
     37(defvar *ccl-ide-init-file* "home:ccl-ide-init")
     38
     39;;; Errors that occur while this file is loading will enter a break
     40;;; loop, with *DEBUG-IO* connected to the terminal/Emacs, to AltConsole,
     41;;; or to /dev/null and syslog.
     42(defun load-ide-init-file ()
     43  (with-simple-restart (continue "Skip loading IDE init file.")
     44    (load *ccl-ide-init-file* :if-does-not-exist nil :verbose nil)))
    3645
    3746(objc:defmethod (#/applicationWillFinishLaunching: :void)
     
    3948  (declare (ignore notification))
    4049  (initialize-user-interface)
    41   (let* ((c (#/init (#/alloc console-window))))
    42     (unless (%null-ptr-p c)
    43       (setf (console *nsapp*) c))))
     50  (load-ide-init-file))
    4451
    4552(objc:defmethod (#/applicationWillTerminate: :void)
Note: See TracChangeset for help on using the changeset viewer.