Changeset 14210


Ignore:
Timestamp:
Aug 24, 2010, 5:41:55 PM (9 years ago)
Author:
rme
Message:

When launching the IDE, don't load home:ccl-ide-init if the shift
key is being held down.

See ticket:726.

File:
1 edited

Legend:

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

    r12627 r14210  
    5959  (declare (ignore notification))
    6060  (initialize-user-interface)
    61   (load-ide-init-file))
     61  (let* ((event (#_CGEventCreate +null-ptr+))
     62         (flags (#_CGEventGetFlags event)))
     63    (unless (logtest flags #$kCGEventFlagMaskShift)
     64      (load-ide-init-file))
     65    (#_CFRelease event)))
    6266
    6367(objc:defmethod (#/applicationWillTerminate: :void)
Note: See TracChangeset for help on using the changeset viewer.