From 80cdf73f6b5f4893490b7dafe876b8cd1ae232b7 Mon Sep 17 00:00:00 2001
From: Sven Weidauer <sven.weidauer@gmail.com>
Date: Wed, 26 Jan 2011 15:04:42 +0000
Subject: Cmd-W closes active tab.

svn path=/trunk/netsurf/; revision=11497
---
 cocoa/BrowserWindowController.m | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'cocoa/BrowserWindowController.m')

diff --git a/cocoa/BrowserWindowController.m b/cocoa/BrowserWindowController.m
index 21e787b03..32cb57e9a 100644
--- a/cocoa/BrowserWindowController.m
+++ b/cocoa/BrowserWindowController.m
@@ -113,6 +113,11 @@ extern NSString * const kHomepageURL;
 	browser_window_create( [homepageURL UTF8String], clone, NULL, false, true );
 }
 
+- (IBAction) closeCurrentTab: (id) sender;
+{
+	[self removeTab: activeBrowser];
+}
+
 - (void) setActiveBrowser: (BrowserViewController *)newBrowser;
 {
 	activeBrowser = newBrowser;
-- 
cgit v1.2.3