[Openmcl-cvs-notifications] r12627 - /trunk/source/cocoa-ide/app-delegate.lisp

[gb at clozure.com]

Author: gb
Date: Wed Aug 19 14:14:46 2009
New Revision: 12627

Log:
When registering defaults, add a Cocotron-specific dictionary
under the #@"NSModifierFlagMapping" key; this dictionary maps
left Control and Alt keys to the control and alt modifiers
and the right Control key to the command modifier.

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

Modified: trunk/source/cocoa-ide/app-delegate.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/cocoa-ide/app-delegate.lisp (original)
+++ trunk/source/cocoa-ide/app-delegate.lisp Wed Aug 19 14:14:46 2009
@@ -20,6 +20,17 @@
 	 (initial-values (cocoa-defaults-initial-values))
 	 (dict (#/mutableCopy initial-values)))
     (declare (special *standalone-cocoa-ide*))
+    #+cocotron
+    (#/setObject:forKey:
+     dict
+     (#/dictionaryWithObjectsAndKeys:
+      ns:ns-dictionary
+      #@"Control" #@"LeftControl"
+      #@"Alt" #@"LeftAlt"
+      #@"Command" #@"RightControl"
+      #@"Alt" #@"RightAlt"
+      +null-ptr+)
+     #@"NSModifierFlagMapping")
     (#/registerDefaults: domain dict)
     (#/release dict)
     (update-cocoa-defaults)