--- a/HTMLDocGenerator.st	Sat Jan 11 13:14:58 1997 +0100
+++ b/HTMLDocGenerator.st	Sat Jan 11 19:40:36 1997 +0100
@@ -284,6 +284,26 @@
     "Modified: 5.1.1997 / 20:09:15 / cg"
 !
 
+htmlClassesMatching:aMatchPattern backTo:backRef
+    |classes cls|
+
+    classes := Smalltalk allClasses
+                select:[:cls | cls isPrivate not
+                               and:[(cls isNamespace not or:[cls == Smalltalk])
+                               and:[aMatchPattern match:cls name]]
+                       ].
+
+    ^ self 
+        htmlClasses:classes title:('Classes matching: ' , aMatchPattern)
+        backTo:backRef
+
+    "
+     self htmlClassesMatching:'Tgen::*' backTo:nil
+    "
+
+    "Modified: 11.1.1997 / 19:40:17 / cg"
+!
+
 htmlDocOf:aClass
     ^ self htmlDocOf:aClass back:nil backRef:nil
 
@@ -781,14 +801,18 @@
                 l do:[:ref |
                     |realRef ns|
 
-                    realRef := ref.
-                    (ns := aClass nameSpace) notNil ifTrue:[
-                        (ns at:realRef asSymbol) notNil ifTrue:[
-                            realRef := ns name , '::' , realRef
-                        ]
-                    ].
-                    s nextPutAll:'<a INFO="show documentation of ' , realRef , '" href="../misc/onlyInSTX2.html" action="html:' , self name , ' htmlDocOf:' , realRef , '">' , ref , '</A>'.
-                    s nextPutAll:' '.
+                    (ref endsWith:'*') ifTrue:[
+                        s nextPutAll:'<a INFO="show documentation of ' , ref , '" href="../misc/onlyInSTX2.html" action="html:' , self name , ' htmlClassesMatching:''' , ref , ''' backTo:nil">' , ref , '</A>'.
+                    ] ifFalse:[
+                        realRef := ref.
+                        (ns := aClass nameSpace) notNil ifTrue:[
+                            (ns at:realRef asSymbol) notNil ifTrue:[
+                                realRef := ns name , '::' , realRef
+                            ]
+                        ].
+                        s nextPutAll:'<a INFO="show documentation of ' , realRef , '" href="../misc/onlyInSTX2.html" action="html:' , self name , ' htmlDocOf:' , realRef , '">' , ref , '</A>'.
+                        s nextPutAll:' '.
+                    ]
                 ].
             ].
             s cr.
@@ -902,7 +926,7 @@
     "
 
     "Created: 24.4.1996 / 15:01:59 / cg"
-    "Modified: 11.1.1997 / 13:09:29 / cg"
+    "Modified: 11.1.1997 / 19:37:14 / cg"
 !
 
 htmlDocOf:aClass backRef:backRef
@@ -1538,5 +1562,5 @@
 !HTMLDocGenerator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.11 1997-01-11 12:14:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.12 1997-01-11 18:40:36 cg Exp $'
 ! !