Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Add "Minimize All" and "Zoom All" items to "Windows" menu

  • Loading branch information...
commit 11ec93a03a0ea8cad5d677f6da23d958844086ce 1 parent c2f8b39
@b4winckler authored
View
2  src/MacVim/Actions.plist
@@ -68,5 +68,7 @@
<string></string>
<key>unhideAllApplications:</key>
<string></string>
+ <key>zoomAll:</key>
+ <string></string>
</dict>
</plist>
View
1  src/MacVim/MMAppController.h
@@ -39,5 +39,6 @@
- (IBAction)orderFrontPreferencePanel:(id)sender;
- (IBAction)openWebsite:(id)sender;
- (IBAction)showHelp:(id)sender;
+- (IBAction)zoomAll:(id)sender;
@end
View
5 src/MacVim/MMAppController.m
@@ -742,6 +742,11 @@ - (IBAction)showHelp:(id)sender
@"-c", @":h gui_mac", nil]];
}
+- (IBAction)zoomAll:(id)sender
+{
+ [NSApp makeWindowsPerform:@selector(performZoom:) inOrder:YES];
+}
+
- (byref id <MMFrontendProtocol>)
connectBackend:(byref in id <MMBackendProtocol>)backend
pid:(int)pid
View
8 src/MacVim/gvimrc
@@ -79,7 +79,9 @@ an 20.470 Edit.Special\ Characters\.\.\. <Nop>
aunmenu Window
an <silent> 9900.300 Window.Minimize <Nop>
+an <silent> 9900.301 Window.Minimize\ All <Nop>
an <silent> 9900.310 Window.Zoom <Nop>
+an <silent> 9900.311 Window.Zoom\ All <Nop>
an <silent> 9900.320 Window.Toggle\ Full\ Screen\ Mode :set invfullscreen<CR>
an <silent> 9900.325 Window.Cycle\ Through\ Windows <Nop>
an <silent> 9900.326 Window.Cycle\ Through\ Windows\ Backwards <Nop>
@@ -237,8 +239,10 @@ macm Tools.Previous\ Error key=<D-C-Left>
macm Tools.Older\ List key=<D-C-Up>
macm Tools.Newer\ List key=<D-C-Down>
-macm Window.Minimize key=<D-m> action=performMiniaturize:
-macm Window.Zoom key=<D-C-z> action=performZoom:
+macm Window.Minimize key=<D-m> action=performMiniaturize:
+macm Window.Minimize\ All key=<D-M-m> action=miniaturizeAll: alt=YES
+macm Window.Zoom key=<D-C-z> action=performZoom:
+macm Window.Zoom\ All key=<D-M-C-z> action=zoomAll: alt=YES
macm Window.Toggle\ Full\ Screen\ Mode key=<D-F>
macm Window.Cycle\ Through\ Windows key=<D-`> action=_cycleWindows:
macm Window.Cycle\ Through\ Windows\ Backwards key=<D-S-`> action=_cycleWindowsBackwards: alt=YES
Please sign in to comment.
Something went wrong with that request. Please try again.