--- a/DictionaryInspectorView.st	Wed Sep 26 14:17:44 2012 +0200
+++ b/DictionaryInspectorView.st	Wed Sep 26 14:19:04 2012 +0200
@@ -198,6 +198,7 @@
                           ).
     ].
 
+    items := items , (self sortOrderItems).
     items := items , #(
                    ('-')
                    ('Update'     doUpdate  )
@@ -232,7 +233,7 @@
 
     ^ m.
 
-    "Modified: / 01-07-2010 / 10:53:08 / cg"
+    "Modified: / 26-09-2012 / 13:20:59 / cg"
 ! !
 
 !DictionaryInspectorView methodsFor:'menu actions'!
@@ -528,13 +529,16 @@
                 ifFalse:[ k displayString]
         ].
 
+    sortOrder == #alphabetical ifTrue:[
+        keyList sort:[:a :b | a string < b string].
+    ].
     ^ keyList
         keysAndValuesCollect:[:idx :nm |
             self listEntryForName:nm value:(object at:(indexList at:idx))
         ].
-    ^ keyList
+    "/ ^ keyList
 
-    "Modified: / 16-05-2012 / 19:07:57 / cg"
+    "Modified: / 26-09-2012 / 13:22:08 / cg"
 !
 
 instVarIndexForLine:lineNr
@@ -657,9 +661,9 @@
 !DictionaryInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.76 2012-05-16 17:08:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.77 2012-09-26 12:19:04 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.76 2012-05-16 17:08:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.77 2012-09-26 12:19:04 cg Exp $'
 ! !