From 3acb6a2bfc899780c3704647c4df356b0f411d12 Mon Sep 17 00:00:00 2001
From: SHIMODA Hiroshi <shimoda@clear-code.com>
Date: Wed, 8 Dec 2010 20:34:42 +0900
Subject: [PATCH] add "close other tabs except this tree" context menu item

---
 content/treestyletab/config.xul             |  9 +++++++++
 content/treestyletab/treestyletab.js        | 20 ++++++++++++++++++++
 content/treestyletab/treestyletab.xul       |  7 +++++++
 content/treestyletab/treestyletabbrowser.js | 12 ++++++++++++
 defaults/preferences/treestyletab.js        |  1 +
 locale/de-DE/treestyletab/treestyletab.dtd  |  2 ++
 locale/en-US/treestyletab/treestyletab.dtd  |  2 ++
 locale/es-ES/treestyletab/treestyletab.dtd  |  2 ++
 locale/fr-FR/treestyletab/treestyletab.dtd  |  2 ++
 locale/it-IT/treestyletab/treestyletab.dtd  |  2 ++
 locale/ja/treestyletab/treestyletab.dtd     |  2 ++
 locale/pl/treestyletab/treestyletab.dtd     |  2 ++
 locale/ru-RU/treestyletab/treestyletab.dtd  |  2 ++
 locale/zh-CN/treestyletab/treestyletab.dtd  |  2 ++
 locale/zh-TW/treestyletab/treestyletab.dtd  |  2 ++
 modules/utils.js                            | 12 ++++++++++++
 16 files changed, 81 insertions(+)

diff --git a/content/treestyletab/config.xul b/content/treestyletab/config.xul
index 583b8250..da6255d7 100644
--- a/content/treestyletab/config.xul
+++ b/content/treestyletab/config.xul
@@ -245,6 +245,9 @@
 		<preference id="extensions.treestyletab.show.context-item-removeDescendantTabs"
 			name="extensions.treestyletab.show.context-item-removeDescendantTabs"
 			type="bool"/>
+		<preference id="extensions.treestyletab.show.context-item-removeAllTabsButThisTree"
+			name="extensions.treestyletab.show.context-item-removeAllTabsButThisTree"
+			type="bool"/>
 		<preference id="extensions.treestyletab.show.context-item-collapseAllSubtree"
 			name="extensions.treestyletab.show.context-item-collapseAllSubtree"
 			type="bool"/>
@@ -282,9 +285,15 @@
 				preference="extensions.treestyletab.show.context-item-removeTabSubtree"
 				label="&context.removeTabSubtree.label;"/>
 			<checkbox id="extensions.treestyletab.show.context-item-removeDescendantTabs-check"
+
 				preference="extensions.treestyletab.show.context-item-removeDescendantTabs"
 				label="&context.removeDescendantTabs.label;"/>
 		</hbox>
+		<hbox align="center">
+			<checkbox id="extensions.treestyletab.show.context-item-removeAllTabsButThisTree-check"
+				preference="extensions.treestyletab.show.context-item-removeAllTabsButThisTree"
+				label="&context.removeAllTabsBut.label;"/>
+		</hbox>
 		<hbox align="center">
 			<checkbox id="extensions.treestyletab.show.context-item-collapseAllSubtree-check"
 				preference="extensions.treestyletab.show.context-item-collapseAllSubtree"
diff --git a/content/treestyletab/treestyletab.js b/content/treestyletab/treestyletab.js
index be13251d..598229c6 100644
--- a/content/treestyletab/treestyletab.js
+++ b/content/treestyletab/treestyletab.js
@@ -1528,6 +1528,26 @@ var TreeStyleTabService = {
 	},
 	_tabShouldBeExpandedAfterKeyReleased : null,
  
+	removeAllTabsBut : function TSTService_removeAllTabsBut(aTab)
+	{
+		var keepTabs = [aTab].concat(this.getDescendantTabs(aTab));
+		var b = this.getTabBrowserFromChild(aTab);
+		var closeTabs = this.getTabsArray(b)
+					.filter(function(aTab) {
+						return keepTabs.indexOf(aTab) < 0;
+					});
+
+		if (!this.warnAboutClosingTabs(closeTabs.length))
+			return;
+
+		this.stopRendering();
+		this.markAsClosedSet(closeTabs);
+		closeTabs.reverse().forEach(function(aTab) {
+			b.removeTab(aTab);
+		});
+		this.startRendering();
+	},
+ 
 	// For backward compatibility. You should use DOM event to block TST's focus handling.
 	registerTabFocusAllowance : function TSTService_registerTabFocusAllowance(aProcess) /* PUBLIC API */ 
 	{
diff --git a/content/treestyletab/treestyletab.xul b/content/treestyletab/treestyletab.xul
index 267076d5..4fe74741 100644
--- a/content/treestyletab/treestyletab.xul
+++ b/content/treestyletab/treestyletab.xul
@@ -107,6 +107,13 @@
 			multipletab-insertafter="TreeStyleTabService.evaluateXPath(
 				&quot;descendant::*[starts-with(@id, 'context-item-removeTabSubtree')][1]&quot;
 			, tabContextMenu, XPathResult.FIRST_ORDERED_NODE_TYPE).singleNodeValue"/>
+		<menuitem id="context-item-removeAllTabsButThisTree"
+			label="&context.removeAllTabsBut.label;"
+			accesskey="&context.removeAllTabsBut.accesskey;"
+			oncommand="TreeStyleTabService.removeAllTabsBut(TreeStyleTabService.getTabBrowserFromChild(this).mContextTab);"
+			multipletab-insertafter="TreeStyleTabService.evaluateXPath(
+				&quot;descendant::*[starts-with(@id, 'context_closeOtherTabs')][1]&quot;
+			, tabContextMenu, XPathResult.FIRST_ORDERED_NODE_TYPE).singleNodeValue"/>
 
 		<menuitem id="context-item-bookmarkTabSubtree"
 			label="&context.bookmarkTabSubtree.label;"
diff --git a/content/treestyletab/treestyletabbrowser.js b/content/treestyletab/treestyletabbrowser.js
index 32cd3511..016bd21b 100644
--- a/content/treestyletab/treestyletabbrowser.js
+++ b/content/treestyletab/treestyletabbrowser.js
@@ -10,6 +10,7 @@ TreeStyleTabBrowser.prototype = {
 	kMENUITEM_RELOADCHILDREN           : 'context-item-reloadDescendantTabs',
 	kMENUITEM_REMOVESUBTREE            : 'context-item-removeTabSubtree',
 	kMENUITEM_REMOVECHILDREN           : 'context-item-removeDescendantTabs',
+	kMENUITEM_REMOVEALLTABSBUT         : 'context-item-removeAllTabsButThisTree',
 	kMENUITEM_COLLAPSEEXPAND_SEPARATOR : 'context-separator-collapseExpandAll',
 	kMENUITEM_COLLAPSE                 : 'context-item-collapseAllSubtree',
 	kMENUITEM_EXPAND                   : 'context-item-expandAllSubtree',
@@ -585,6 +586,7 @@ TreeStyleTabBrowser.prototype = {
 					aSelf.kMENUITEM_RELOADCHILDREN,
 					aSelf.kMENUITEM_REMOVESUBTREE,
 					aSelf.kMENUITEM_REMOVECHILDREN,
+					aSelf.kMENUITEM_REMOVEALLTABSBUT,
 					aSelf.kMENUITEM_COLLAPSEEXPAND_SEPARATOR,
 					aSelf.kMENUITEM_COLLAPSE,
 					aSelf.kMENUITEM_EXPAND,
@@ -3155,6 +3157,7 @@ TreeStyleTabBrowser.prototype = {
 			this.kMENUITEM_RELOADCHILDREN,
 			this.kMENUITEM_REMOVESUBTREE,
 			this.kMENUITEM_REMOVECHILDREN,
+			this.kMENUITEM_REMOVEALLTABSBUT,
 			this.kMENUITEM_COLLAPSE,
 			this.kMENUITEM_EXPAND,
 			this.kMENUITEM_AUTOHIDE,
@@ -3177,6 +3180,7 @@ TreeStyleTabBrowser.prototype = {
 				case this.kMENUITEM_RELOADCHILDREN:
 				case this.kMENUITEM_REMOVESUBTREE:
 				case this.kMENUITEM_REMOVECHILDREN:
+				case this.kMENUITEM_REMOVEALLTABSBUT:
 				case this.kMENUITEM_COLLAPSE:
 				case this.kMENUITEM_EXPAND:
 				case this.kMENUITEM_BOOKMARKSUBTREE:
@@ -3228,6 +3232,14 @@ TreeStyleTabBrowser.prototype = {
 			sep.removeAttribute('hidden');
 		}
 
+		// close all tabs but this tree
+		let removeAllTabsBut = items[this.kMENUITEM_REMOVEALLTABSBUT];
+		let rootTabs = this.visibleRootTabs;
+		if (rootTabs.length == 1 && rootTabs[0] == b.mContextTab)
+			removeAllTabsBut.setAttribute('disabled', true);
+		else
+			removeAllTabsBut.removeAttribute('disabled');
+
 		// auto hide
 		let autohide = items[this.kMENUITEM_AUTOHIDE];
 		this.autoHide.updateMenuItem(autohide);
diff --git a/defaults/preferences/treestyletab.js b/defaults/preferences/treestyletab.js
index a549ebea..2f5cc22d 100644
--- a/defaults/preferences/treestyletab.js
+++ b/defaults/preferences/treestyletab.js
@@ -77,6 +77,7 @@ pref("extensions.treestyletab.show.context-item-reloadTabSubtree", true);
 pref("extensions.treestyletab.show.context-item-reloadDescendantTabs", false);
 pref("extensions.treestyletab.show.context-item-removeTabSubtree", true);
 pref("extensions.treestyletab.show.context-item-removeDescendantTabs", false);
+pref("extensions.treestyletab.show.context-item-removeAllTabsButThisTree", false);
 pref("extensions.treestyletab.show.context-item-collapseAllSubtree", true);
 pref("extensions.treestyletab.show.context-item-expandAllSubtree", true);
 pref("extensions.treestyletab.show.context-item-toggleAutoHide", true);
diff --git a/locale/de-DE/treestyletab/treestyletab.dtd b/locale/de-DE/treestyletab/treestyletab.dtd
index bb11ce4a..1a07d9e9 100644
--- a/locale/de-DE/treestyletab/treestyletab.dtd
+++ b/locale/de-DE/treestyletab/treestyletab.dtd
@@ -145,6 +145,8 @@
 <!ENTITY context.removeTabSubtree.accesskey "s">
 <!ENTITY context.removeDescendantTabs.label     "Untergeordnete Tabs schließen">
 <!ENTITY context.removeDescendantTabs.accesskey "d">
+<!ENTITY context.removeAllTabsBut.label         "Close Other Tabs except this Tree">
+<!ENTITY context.removeAllTabsBut.accesskey     "a">
 <!ENTITY context.collapseAllSubtree.label     "Alle Zweige zuklappen">
 <!ENTITY context.collapseAllSubtree.accesskey "c">
 <!ENTITY context.expandAllSubtree.label     "Alle Zweige aufklappen">
diff --git a/locale/en-US/treestyletab/treestyletab.dtd b/locale/en-US/treestyletab/treestyletab.dtd
index 1f47d995..82005e23 100644
--- a/locale/en-US/treestyletab/treestyletab.dtd
+++ b/locale/en-US/treestyletab/treestyletab.dtd
@@ -146,6 +146,8 @@
 <!ENTITY context.removeTabSubtree.accesskey     "s">
 <!ENTITY context.removeDescendantTabs.label     "Close Children">
 <!ENTITY context.removeDescendantTabs.accesskey "d">
+<!ENTITY context.removeAllTabsBut.label         "Close Other Tabs except this Tree">
+<!ENTITY context.removeAllTabsBut.accesskey     "a">
 <!ENTITY context.collapseAllSubtree.label       "Collapse All Trees">
 <!ENTITY context.collapseAllSubtree.accesskey   "c">
 <!ENTITY context.expandAllSubtree.label         "Expand All Trees">
diff --git a/locale/es-ES/treestyletab/treestyletab.dtd b/locale/es-ES/treestyletab/treestyletab.dtd
index 7abf2263..274ff278 100644
--- a/locale/es-ES/treestyletab/treestyletab.dtd
+++ b/locale/es-ES/treestyletab/treestyletab.dtd
@@ -151,6 +151,8 @@
 <!ENTITY context.removeTabSubtree.accesskey "s">
 <!ENTITY context.removeDescendantTabs.label     "Cerrar hija">
 <!ENTITY context.removeDescendantTabs.accesskey "d">
+<!ENTITY context.removeAllTabsBut.label         "Close Other Tabs except this Tree">
+<!ENTITY context.removeAllTabsBut.accesskey     "a">
 <!ENTITY context.collapseAllSubtree.label     "Colapsar todos los árboles">
 <!ENTITY context.collapseAllSubtree.accesskey "c">
 <!ENTITY context.expandAllSubtree.label     "Expandir todos los árboles">
diff --git a/locale/fr-FR/treestyletab/treestyletab.dtd b/locale/fr-FR/treestyletab/treestyletab.dtd
index 89a9d86f..30360198 100644
--- a/locale/fr-FR/treestyletab/treestyletab.dtd
+++ b/locale/fr-FR/treestyletab/treestyletab.dtd
@@ -145,6 +145,8 @@
 <!ENTITY context.removeTabSubtree.accesskey     "s">
 <!ENTITY context.removeDescendantTabs.label     "Fermer les enfants">
 <!ENTITY context.removeDescendantTabs.accesskey "d">
+<!ENTITY context.removeAllTabsBut.label         "Close Other Tabs except this Tree">
+<!ENTITY context.removeAllTabsBut.accesskey     "a">
 <!ENTITY context.collapseAllSubtree.label       "Replier toutes les arborescences">
 <!ENTITY context.collapseAllSubtree.accesskey   "c">
 <!ENTITY context.expandAllSubtree.label         "Déplier toutes les arborescences">
diff --git a/locale/it-IT/treestyletab/treestyletab.dtd b/locale/it-IT/treestyletab/treestyletab.dtd
index 535ac683..734ca194 100644
--- a/locale/it-IT/treestyletab/treestyletab.dtd
+++ b/locale/it-IT/treestyletab/treestyletab.dtd
@@ -149,6 +149,8 @@
 <!ENTITY context.removeTabSubtree.accesskey "u">
 <!ENTITY context.removeDescendantTabs.label     "Chiudi sottoschede">
 <!ENTITY context.removeDescendantTabs.accesskey "i">
+<!ENTITY context.removeAllTabsBut.label         "Close Other Tabs except this Tree">
+<!ENTITY context.removeAllTabsBut.accesskey     "a">
 <!ENTITY context.collapseAllSubtree.label     "Contrai tutti i sottoalberi">
 <!ENTITY context.collapseAllSubtree.accesskey "o">
 <!ENTITY context.expandAllSubtree.label     "Espandi tutti i sottoalberi">
diff --git a/locale/ja/treestyletab/treestyletab.dtd b/locale/ja/treestyletab/treestyletab.dtd
index 9c6dc931..584fc9aa 100644
--- a/locale/ja/treestyletab/treestyletab.dtd
+++ b/locale/ja/treestyletab/treestyletab.dtd
@@ -145,6 +145,8 @@
 <!ENTITY context.removeTabSubtree.accesskey     "s">
 <!ENTITY context.removeDescendantTabs.label     "このタブの子タブをすべて閉じる">
 <!ENTITY context.removeDescendantTabs.accesskey "d">
+<!ENTITY context.removeAllTabsBut.label         "このツリー以外の他のタブをすべて閉じる">
+<!ENTITY context.removeAllTabsBut.accesskey     "b">
 <!ENTITY context.collapseAllSubtree.label       "ツリーをすべてたたむ">
 <!ENTITY context.collapseAllSubtree.accesskey   "c">
 <!ENTITY context.expandAllSubtree.label         "ツリーをすべて展開する">
diff --git a/locale/pl/treestyletab/treestyletab.dtd b/locale/pl/treestyletab/treestyletab.dtd
index f5499e84..b187bc3b 100644
--- a/locale/pl/treestyletab/treestyletab.dtd
+++ b/locale/pl/treestyletab/treestyletab.dtd
@@ -139,6 +139,8 @@
 <!ENTITY context.removeTabSubtree.accesskey "N">
 <!ENTITY context.removeDescendantTabs.label     "Zamknij potomne">
 <!ENTITY context.removeDescendantTabs.accesskey "O">
+<!ENTITY context.removeAllTabsBut.label         "Close Other Tabs except this Tree">
+<!ENTITY context.removeAllTabsBut.accesskey     "a">
 <!ENTITY context.collapseAllSubtree.label     "Zwiń wszystkie drzewa">
 <!ENTITY context.collapseAllSubtree.accesskey "T">
 <!ENTITY context.expandAllSubtree.label     "Rozwiń wszystkie drzewa">
diff --git a/locale/ru-RU/treestyletab/treestyletab.dtd b/locale/ru-RU/treestyletab/treestyletab.dtd
index c382ae33..78c8a686 100755
--- a/locale/ru-RU/treestyletab/treestyletab.dtd
+++ b/locale/ru-RU/treestyletab/treestyletab.dtd
@@ -145,6 +145,8 @@
 <!ENTITY context.removeTabSubtree.accesskey "s">
 <!ENTITY context.removeDescendantTabs.label     "Закрыть дочерние вкладки">
 <!ENTITY context.removeDescendantTabs.accesskey "d">
+<!ENTITY context.removeAllTabsBut.label         "Close Other Tabs except this Tree">
+<!ENTITY context.removeAllTabsBut.accesskey     "a">
 <!ENTITY context.collapseAllSubtree.label     "Свернуть все деревья">
 <!ENTITY context.collapseAllSubtree.accesskey "c">
 <!ENTITY context.expandAllSubtree.label     "Раскрыть все деревья">
diff --git a/locale/zh-CN/treestyletab/treestyletab.dtd b/locale/zh-CN/treestyletab/treestyletab.dtd
index aebb5833..1e06761c 100644
--- a/locale/zh-CN/treestyletab/treestyletab.dtd
+++ b/locale/zh-CN/treestyletab/treestyletab.dtd
@@ -145,6 +145,8 @@
 <!ENTITY context.removeTabSubtree.accesskey     "s">
 <!ENTITY context.removeDescendantTabs.label     "关闭子标签">
 <!ENTITY context.removeDescendantTabs.accesskey "d">
+<!ENTITY context.removeAllTabsBut.label         "Close Other Tabs except this Tree">
+<!ENTITY context.removeAllTabsBut.accesskey     "a">
 <!ENTITY context.collapseAllSubtree.label       "折叠所有树">
 <!ENTITY context.collapseAllSubtree.accesskey   "c">
 <!ENTITY context.expandAllSubtree.label         "展开所有树">
diff --git a/locale/zh-TW/treestyletab/treestyletab.dtd b/locale/zh-TW/treestyletab/treestyletab.dtd
index 9f589bd3..f0754a61 100644
--- a/locale/zh-TW/treestyletab/treestyletab.dtd
+++ b/locale/zh-TW/treestyletab/treestyletab.dtd
@@ -147,6 +147,8 @@
 <!ENTITY context.removeTabSubtree.accesskey "s">
 <!ENTITY context.removeDescendantTabs.label     "關閉所有子分頁">
 <!ENTITY context.removeDescendantTabs.accesskey "d">
+<!ENTITY context.removeAllTabsBut.label         "Close Other Tabs except this Tree">
+<!ENTITY context.removeAllTabsBut.accesskey     "a">
 <!ENTITY context.collapseAllSubtree.label     "摺疊全部樹狀目錄">
 <!ENTITY context.collapseAllSubtree.accesskey "c">
 <!ENTITY context.expandAllSubtree.label     "展開全部樹狀目錄">
diff --git a/modules/utils.js b/modules/utils.js
index 6fab4988..a2eda1fc 100644
--- a/modules/utils.js
+++ b/modules/utils.js
@@ -1384,6 +1384,18 @@ var TreeStyleTabUtils = {
 			);
 	},
  
+	get allRootTabs() /* PUBLIC API */ 
+	{
+		return this.rootTabs;
+	},
+ 
+	get visibleRootTabs() /* PUBLIC API */ 
+	{
+		return this.rootTabs.filter(function(aTab) {
+				return !aTab.hidden;
+			});
+	},
+ 
 	canCollapseSubtree : function TSTUtils_canCollapseSubtree(aTabOrTabBrowser) /* PUBLIC API */ 
 	{
 		if (aTabOrTabBrowser &&