--- a/BrowserView.st	Mon Oct 14 18:18:45 1996 +0200
+++ b/BrowserView.st	Mon Oct 14 19:41:27 1996 +0200
@@ -24,7 +24,7 @@
 	category:'Interface-Browsers'
 !
 
-!BrowserView  class methodsFor:'documentation'!
+!BrowserView class methodsFor:'documentation'!
 
 copyright
 "
@@ -65,7 +65,7 @@
 "
 ! !
 
-!BrowserView  class methodsFor:'initialization'!
+!BrowserView class methodsFor:'initialization'!
 
 initialize
     "Browser configuration;
@@ -98,7 +98,7 @@
     "Modified: 23.11.1995 / 11:36:34 / cg"
 ! !
 
-!BrowserView  class methodsFor:'cleanup'!
+!BrowserView class methodsFor:'cleanup'!
 
 lowSpaceCleanup
     DefaultIcon := nil
@@ -106,7 +106,7 @@
     "Created: 18.4.1996 / 16:46:40 / cg"
 ! !
 
-!BrowserView  class methodsFor:'defaults'!
+!BrowserView class methodsFor:'defaults'!
 
 defaultIcon
     DefaultIcon isNil ifTrue:[
@@ -3272,7 +3272,7 @@
 listOfAllClassesInCategory:aCategory
     "return a list of all classes in a given category"
 
-    |newList classes searchCategory nm|
+    |newList classes searchCategory nm owner|
 
     (aCategory = '* hierarchy *') ifTrue:[
         newList := OrderedCollection new.
@@ -3312,9 +3312,20 @@
         ]
     ].
     (newList size == 0) ifTrue:[^ nil].
-    ^ newList asOrderedCollection sort
-
-    "Modified: 28.5.1996 / 13:46:10 / cg"
+    newList := newList asOrderedCollection sort.
+
+    "/ indent after sorting
+
+    newList := newList collect:[:item |
+        (item includes:$:) ifTrue:[
+            '  ' , item
+        ] ifFalse:[
+            item
+        ]
+    ].
+    ^ newList
+
+    "Modified: 14.10.1996 / 18:38:26 / cg"
 !
 
 listOfClassHierarchyOf:aClass
@@ -7858,9 +7869,9 @@
     "Modified: 4.6.1996 / 22:00:33 / cg"
 ! !
 
-!BrowserView  class methodsFor:'documentation'!
+!BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.179 1996-10-14 16:18:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.180 1996-10-14 17:41:27 cg Exp $'
 ! !
 BrowserView initialize!