--- a/Tools__Inspector2.st	Fri Jul 26 15:29:11 2019 +0200
+++ b/Tools__Inspector2.st	Sat Jul 27 11:40:12 2019 +0200
@@ -20,7 +20,7 @@
 		browser currentObjectHolder colorProfileHolder
 		toolbarBackgroundHolder evaluationLanguageHolder
 		evaluationLanguageList operationsMenuEnabledHolder'
-	classVariableNames:'ColorProfiles EvaluationLanguageMap LastExtent'
+	classVariableNames:'ColorProfiles EvaluationLanguageMap LastExtent LastAlphabetical'
 	poolDictionaries:''
 	category:'Interface-Inspector2'
 !
@@ -952,7 +952,7 @@
 !
 
 showAlphabeticalHolder
-      ^ builder booleanValueAspectFor:#showAlphabeticalHolder
+      ^ builder valueAspectFor:#showAlphabeticalHolder initialValue:(LastAlphabetical ? false)
 !
 
 sortOrderHolder
@@ -1024,6 +1024,32 @@
 
 !Inspector2 methodsFor:'change & update'!
 
+setShowAlphabeticalInSubInspectors
+    |nowAlphabetical|
+
+    nowAlphabetical := self showAlphabeticalHolder value.
+    self navigationHistoryHolder currentItem tabViews do:[:each |
+        (each isKindOf:InspectorView) ifTrue:[
+            each showAlphabetical:nowAlphabetical
+        ]
+    ].
+!
+
+showAlphabeticalHolderChanged
+    LastAlphabetical := self showAlphabeticalHolder value.
+    self setShowAlphabeticalInSubInspectors.
+!
+
+suppressPseudoSlotsHolderChanged
+    self navigationHistoryHolder currentItem tabViews do:[:each |
+        (each isKindOf:InspectorView) ifTrue:[
+            each suppressPseudoSlots:(self suppressPseudoSlotsHolder value)
+        ]
+    ].
+
+    "Created: / 18-07-2017 / 15:22:02 / cg"
+!
+
 update:something with:aParameter from:changedObject
     "Invoked when an object that I depend upon sends a change notification."
 
@@ -1083,6 +1109,21 @@
         items := currentObjectHolder value inspectorExtraMenuOperations.
     ].
     self operationsMenuEnabledHolder value:(items notEmptyOrNil).
+!
+
+updateWindowLabel
+    "not only the label is updated; 
+     also the current inspected object is fetched from the navigation state"
+
+    |currentItem object|
+
+    (currentItem := self navigationHistoryHolder currentItem) notNil ifTrue:[
+        object := currentItem theObject.
+    ].
+    self currentObjectHolder value:object.
+    self window label:(InspectorView commonLabelFor:object).
+
+    "Created: / 15-07-2011 / 16:25:42 / cg"
 ! !
 
 !Inspector2 methodsFor:'configuration'!
@@ -1319,27 +1360,9 @@
 "/    self selectionIndex:sel.
 
     "Created: / 21-08-2011 / 08:23:00 / cg"
-!
-
-showAlphabeticalHolderChanged
-    self navigationHistoryHolder currentItem tabViews do:[:each |
-        (each isKindOf:InspectorView) ifTrue:[
-            each showAlphabetical:(self showAlphabeticalHolder value)
-        ]
-    ].
-!
-
-suppressPseudoSlotsHolderChanged
-    self navigationHistoryHolder currentItem tabViews do:[:each |
-        (each isKindOf:InspectorView) ifTrue:[
-            each suppressPseudoSlots:(self suppressPseudoSlotsHolder value)
-        ]
-    ].
-
-    "Created: / 18-07-2017 / 15:22:02 / cg"
 ! !
 
-!Inspector2 methodsFor:'opening'!
+!Inspector2 methodsFor:'open & close'!
 
 closeDownViews
     LastExtent := self window extent.
@@ -1385,24 +1408,10 @@
 postBuildWith:aBuilder
     super postBuildWith:aBuilder.
     self updateWindowLabel.
+    self setShowAlphabeticalInSubInspectors.
 
     "Created: / 15-07-2011 / 16:25:36 / cg"
     "Modified: / 12-08-2014 / 20:01:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-updateWindowLabel
-    "not only the label is updated; 
-     also the current inspected object is fetched from the navigation state"
-
-    |currentItem object|
-
-    (currentItem := self navigationHistoryHolder currentItem) notNil ifTrue:[
-        object := currentItem theObject.
-    ].
-    self currentObjectHolder value:object.
-    self window label:(InspectorView commonLabelFor:object).
-
-    "Created: / 15-07-2011 / 16:25:42 / cg"
 ! !
 
 !Inspector2 methodsFor:'private'!