Changeset 12627


Ignore:
Timestamp:
Aug 19, 2009, 6:14:46 PM (10 years ago)
Author:
gb
Message:

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.

File:
1 edited

Legend:

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

    r12563 r12627  
    2121         (dict (#/mutableCopy initial-values)))
    2222    (declare (special *standalone-cocoa-ide*))
     23    #+cocotron
     24    (#/setObject:forKey:
     25     dict
     26     (#/dictionaryWithObjectsAndKeys:
     27      ns:ns-dictionary
     28      #@"Control" #@"LeftControl"
     29      #@"Alt" #@"LeftAlt"
     30      #@"Command" #@"RightControl"
     31      #@"Alt" #@"RightAlt"
     32      +null-ptr+)
     33     #@"NSModifierFlagMapping")
    2334    (#/registerDefaults: domain dict)
    2435    (#/release dict)
Note: See TracChangeset for help on using the changeset viewer.