# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 922379401 -3600
# Node ID 4b7c3e6fc5f135adca5394894e9a0ba7e5a6d34f
# Parent  9a44f4c861a2b973c61d9546c436b65770cf741e
checkin from browser

diff -r 9a44f4c861a2 -r 4b7c3e6fc5f1 ProjectBrowser.st
--- a/ProjectBrowser.st	Thu Mar 25 13:26:55 1999 +0100
+++ b/ProjectBrowser.st	Thu Mar 25 17:30:01 1999 +0100
@@ -1875,11 +1875,18 @@
 
     classesNode contents:#classes.
     classesNode icon:(self class classesIcon).
-    ((aProject classes ? #()) copy sort:[:a :b | a name < b name]) 
+    ((aProject classes ? #()) copy sort:[:a :b | 
+                                                |nmA nmB|
+
+                                                nmA := a isSymbol ifTrue:[a] ifFalse:[a name].
+                                                nmB := b isSymbol ifTrue:[b] ifFalse:[b name].
+                                                nmA < nmB
+                                        ]) 
     do:[:aClass |
-        |cNode|
+        |cNode cName|
 
-        cNode := ProjectTreeItem name:aClass name.
+        cName := aClass isSymbol ifTrue:[aClass] ifFalse:[aClass name].
+        cNode := ProjectTreeItem name:cName.
         classesNode add:cNode.
     ].