--- a/HTMLDocGenerator.st Tue Nov 24 17:43:36 1998 +0100
+++ b/HTMLDocGenerator.st Thu Nov 26 23:19:42 1998 +0100
@@ -590,12 +590,12 @@
]
].
- collectionOfClassCategories := metaClass categories.
+ collectionOfClassCategories := metaClass categories asSortedCollection.
collectionOfClassCategories size > 0 ifTrue:[
collectionOfClassCategories := collectionOfClassCategories asOrderedCollection.
collectionOfClassCategories remove:'documentation' ifAbsent:nil.
].
- collectionOfCategories := aClass categories.
+ collectionOfCategories := aClass categories asSortedCollection.
collectionOfCategories size > 0 ifTrue:[
collectionOfCategories := collectionOfCategories asOrderedCollection.
].
@@ -1007,7 +1007,7 @@
"
"Created: / 24.4.1996 / 15:01:59 / cg"
- "Modified: / 7.2.1998 / 16:20:18 / cg"
+ "Modified: / 25.11.1998 / 12:40:51 / cg"
!
htmlDocOf:aClass backRef:backRef
@@ -1454,7 +1454,7 @@
"/ self printOutDefinitionOn:aPrintStream.
- collectionOfCategories := aClass class categories.
+ collectionOfCategories := aClass class categories asSortedCollection.
any := false.
collectionOfCategories size > 0 ifTrue:[
@@ -1475,7 +1475,7 @@
].
- collectionOfCategories := aClass categories.
+ collectionOfCategories := aClass categories asSortedCollection.
any := false.
collectionOfCategories size > 0 ifTrue:[
collectionOfCategories := collectionOfCategories asOrderedCollection sort.
@@ -1494,7 +1494,7 @@
"
"Created: / 22.4.1996 / 20:03:30 / cg"
- "Modified: / 30.10.1997 / 13:28:20 / cg"
+ "Modified: / 25.11.1998 / 12:40:59 / cg"
! !
!HTMLDocGenerator class methodsFor:'format conversion - man pages'!
@@ -1705,5 +1705,5 @@
!HTMLDocGenerator class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.28 1998-10-30 21:16:14 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.29 1998-11-26 22:19:42 cg Exp $'
! !