--- 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