--- 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.
].