Changeset 14210

Timestamp:

Aug 24, 2010, 10:41:55 AM (14 years ago)

Author:

R. Matthew Emerson

Message:

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

See ticket:726.

File:

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

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

@@ -59 +59 @@
   (declare (ignore notification))
   (initialize-user-interface)
-  (load-ide-init-file))
+  (let* ((event (#_CGEventCreate +null-ptr+))
+         (flags (#_CGEventGetFlags event)))
+    (unless (logtest flags #$kCGEventFlagMaskShift)
+      (load-ide-init-file))
+    (#_CFRelease event)))
 
 (objc:defmethod (#/applicationWillTerminate: :void)