--- a/Tools__Inspector2.st	Fri Jan 26 08:54:34 2018 +0100
+++ b/Tools__Inspector2.st	Tue Jan 30 16:19:58 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2006 by eXept Software AG
 	      All Rights Reserved
@@ -18,7 +20,7 @@
 		browser currentObjectHolder colorProfileHolder
 		toolbarBackgroundHolder evaluationLanguageHolder
 		evaluationLanguageList operationsMenuEnabledHolder'
-	classVariableNames:'LastExtent ColorProfiles EvaluationLanguageMap'
+	classVariableNames:'ColorProfiles EvaluationLanguageMap LastExtent'
 	poolDictionaries:''
 	category:'Interface-Inspector2'
 !
@@ -394,6 +396,35 @@
                   label: 'Exit'
                   itemValue: closeRequest
                 )
+               (MenuItem
+                  label: '-'
+                )
+               (MenuItem
+                  label: 'Deiconify all Inspectors'
+                  itemValue: deiconifyAllInspectors
+                )
+               (MenuItem
+                  label: '-'
+                )
+               (MenuItem
+                  label: 'Iconify all Other Inspectors'
+                  itemValue: iconifyAllOtherInspectors
+                )
+               (MenuItem
+                  label: 'Iconify all Inspectors'
+                  itemValue: iconifyAllInspectors
+                )
+               (MenuItem
+                  label: '-'
+                )
+               (MenuItem
+                  label: 'Close all Other Inspectors'
+                  itemValue: closeAllOtherInspectors
+                )
+               (MenuItem
+                  label: 'Close all Inspectors'
+                  itemValue: closeAllInspectors
+                )
                )
               nil
               nil
@@ -1199,6 +1230,26 @@
     "Created: / 17-01-2012 / 01:03:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+closeAllInspectors
+    self class allInstancesDo:[:eachInspector |
+        eachInspector closeRequest
+    ].
+!
+
+closeAllOtherInspectors
+    self class allInstancesDo:[:eachInspector |
+        eachInspector ~~ self ifTrue:[
+            eachInspector closeRequest
+        ].
+    ].
+!
+
+deiconifyAllInspectors
+    self class allInstancesDo:[:eachInspector |
+        eachInspector window expand
+    ].
+!
+
 editImageAction
     "open an imageEditor on the current object"
 
@@ -1218,6 +1269,20 @@
     "Modified: / 15-07-2011 / 16:26:33 / cg"
 !
 
+iconifyAllInspectors
+    self class allInstancesDo:[:eachInspector |
+        eachInspector window collapse
+    ].
+!
+
+iconifyAllOtherInspectors
+    self class allInstancesDo:[:eachInspector |
+        eachInspector ~~ self ifTrue:[
+            eachInspector window collapse
+        ].
+    ].
+!
+
 openDocumentation
     HTMLDocumentView openFullOnDocumentationFile:'tools/misc/TOP.html#INSPECTOR'.
 !
@@ -1373,6 +1438,7 @@
     "Modified: / 10-03-2015 / 09:46:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+
 !Inspector2::NavigationState class methodsFor:'creating classes'!
 
 for:anObject