--- a/DictionaryInspectorView.st	Tue Apr 02 23:22:31 2019 +0200
+++ b/DictionaryInspectorView.st	Wed Apr 03 08:32:17 2019 +0200
@@ -2,7 +2,7 @@
 
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
-	      All Rights Reserved
+              All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -16,14 +16,14 @@
 "{ NameSpace: Smalltalk }"
 
 InspectorView subclass:#DictionaryInspectorView
-	instanceVariableNames:'keys hideClassVars hideClasses hideUnloadedClasses hideAliases
-		hideNilValues hideLiteralValues hideColorsAndImages
-		hideSignalInstances hideEmptyCollections hideFreeSemaphores
-		hideCollectionsHoldingOnlyLiterals hideNonRefObjectReferences
-		hideStreams hideFilenames hideSimpleObjects'
-	classVariableNames:''
-	poolDictionaries:''
-	category:'Interface-Inspector'
+        instanceVariableNames:'keys hideClassVars hideClasses hideUnloadedClasses hideAliases
+                hideNilValues hideLiteralValues hideColorsAndImages
+                hideSignalInstances hideEmptyCollections hideFreeSemaphores
+                hideCollectionsHoldingOnlyLiterals hideNonRefObjectReferences
+                hideStreams hideFilenames hideSimpleObjects'
+        classVariableNames:''
+        poolDictionaries:''
+        category:'Interface-Inspector'
 !
 
 !DictionaryInspectorView class methodsFor:'documentation'!
@@ -31,7 +31,7 @@
 copyright
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
-	      All Rights Reserved
+              All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -638,16 +638,6 @@
 
 !DictionaryInspectorView methodsFor:'private'!
 
-allNumericKeys
-    "answer true, if all keys of the inspectedObject are numbers"
-
-    inspectedObject keysDo:[:k | (k isProtoObject or:[k isNumber not]) ifTrue:[^ false]].
-    ^ true
-
-    "Created: / 10-05-2011 / 08:05:45 / cg"
-    "Modified: / 31-01-2018 / 09:28:07 / stefan"
-!
-
 baseInspectedObjectClass
 
     (inspectedObject isMemberOf:Dictionary) ifFalse:[
@@ -669,6 +659,18 @@
     "Created: 28.6.1996 / 19:46:51 / cg"
 !
 
+hasAllNumericKeys
+    "answer true, if all keys of the inspectedObject are numbers"
+
+    inspectedObject keysDo:[:k | 
+        k isProtoObject ifTrue:[^ false].
+        k isNumber ifFalse:[^ false].
+    ].
+    ^ true
+
+    "Created: / 03-04-2019 / 08:23:56 / Claus Gittinger"
+!
+
 indexList
     "return a list of indexes to show in the selectionList.
      Set hasMore to true, if a '...' entry should be added."
@@ -683,7 +685,7 @@
     allShown := inspectedObject size <= nShown.
 
     inspectedObject isOrdered ifFalse:[
-        (allShown and:[self allNumericKeys]) ifTrue:[
+        (allShown and:[self hasAllNumericKeys]) ifTrue:[
             sortBlockForKeys := [:a :b | a < b].
         ] ifFalse:[
             sortBlockForKeys := [:a :b | a displayString < b displayString].