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

b4winckler · Jun 4, 2008 · 11ec93a · 11ec93a
1 parent c2f8b39
commit 11ec93a
Show file tree

Hide file tree

Showing 4 changed files with 14 additions and 2 deletions.
diff --git a/src/MacVim/Actions.plist b/src/MacVim/Actions.plist
@@ -68,5 +68,7 @@
 	<string></string>
 	<key>unhideAllApplications:</key>
 	<string></string>
+	<key>zoomAll:</key>
+	<string></string>
 </dict>
 </plist>
diff --git a/src/MacVim/MMAppController.h b/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
diff --git a/src/MacVim/MMAppController.m b/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

diff --git a/src/MacVim/gvimrc b/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