# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 909782174 -3600
# Node ID 1729dca2ab7a70de6864e74cbbe89e1b4eb63560
# Parent  b46e6d2ed9a1ca0b0bede6382fb50b25f9bcccb3
sort HTML-page of implemented selectors by className.

diff -r b46e6d2ed9a1 -r 1729dca2ab7a HTMLDocGenerator.st
--- 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:'&lt;')
@@ -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 $'
 ! !