checkin from browser
authorClaus Gittinger <cg@exept.de>
Thu, 26 Nov 1998 23:19:42 +0100
changeset 732 125f000bc093
parent 731 969e0d8b38d9
child 733 2afae9b25d47
checkin from browser
HTMLDocGenerator.st
--- 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 $'
 ! !