Changeset 16063


Ignore:
Timestamp:
Apr 17, 2014, 2:57:15 AM (6 years ago)
Author:
svspire
Message:

Command-option-w now closes all windows similar to frontmost.
New menu item "Close Similar" shows this. Fixes ticket:1176.
Undid Rev 16048 because it broke functionality.

Location:
trunk/source/cocoa-ide
Files:
2 edited

Legend:

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

    r16050 r16063  
    309309
    310310(defun window-type (w)
    311   (type-of (#/windowController w)))
     311  (type-of w))
    312312
    313313(defun maybe-close-all-windows-of-this-class (sender)
  • trunk/source/cocoa-ide/menus.lisp

    r16027 r16063  
    3434    (#/addItem: menu (#/separatorItem ns:ns-menu-item))
    3535    (#/addItemWithTitle:action:keyEquivalent: menu #@"Close" (objc:@selector #/performClose:) #@"w")
     36    (let ((closesimilar
     37           (#/addItemWithTitle:action:keyEquivalent: menu #@"Close Similar" (objc:@selector #/performClose:) #@"w")))
     38      (#/setKeyEquivalentModifierMask: closesimilar (logior #$NSCommandKeyMask #$NSAlternateKeyMask)))
     39   
    3640    (#/addItemWithTitle:action:keyEquivalent: menu #@"Save" (objc:@selector #/saveDocument:) #@"s")
    3741    (#/addItemWithTitle:action:keyEquivalent: menu #@"Save As..." (objc:@selector #/saveDocumentAs:) #@"S")
Note: See TracChangeset for help on using the changeset viewer.