sort HTML-page of implemented selectors by className.
--- a/HTMLDocGenerator.st Sat Oct 17 18:27:04 1998 +0200
+++ b/HTMLDocGenerator.st Fri Oct 30 22:16:14 1998 +0100
@@ -1023,7 +1023,7 @@
"generate an HTML document string which contains HREFS
to all implementors of a particular selector"
- |sel s|
+ |sel s classes|
sel := (selector copy
replChar:$< withString:'<')
@@ -1042,24 +1042,30 @@
s nextPutLine:'<dl>'.
+ classes := IdentitySet new.
+
sel := selector asSymbol.
Smalltalk allClassesDo:[:cls |
cls isPrivate ifFalse:[
(cls implements:sel) ifTrue:[
- self printOutHTMLMethodProtocol:(cls compiledMethodAt:sel)
- on:s showClassName:true classRef:true.
- s nextPutLine:'<p>'.
+ classes add:cls
]
]
].
+ (classes asOrderedCollection sort:[:a :b | a name < b name]) do:[:cls |
+ self printOutHTMLMethodProtocol:(cls compiledMethodAt:sel)
+ on:s showClassName:true classRef:true.
+ s nextPutLine:'<p>'.
+ ].
+
s nextPutLine:'</dl>'.
s nextPutLine:'</body></html>'.
^ s contents
"Created: / 22.4.1996 / 20:03:31 / cg"
- "Modified: / 30.10.1997 / 13:23:49 / cg"
+ "Modified: / 30.10.1998 / 22:15:30 / cg"
!
htmlRevisionDocOf:aClass to:s
@@ -1699,5 +1705,5 @@
!HTMLDocGenerator class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.27 1998-02-07 15:21:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.28 1998-10-30 21:16:14 cg Exp $'
! !