# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 845405744 -7200
# Node ID ebdb7d3361546da3d5ecc0d0af60fa80940bd57e
# Parent  abebd0d145e54bfbaac88cea5ceb65dde611be02
ignore private classes

diff -r abebd0d145e5 -r ebdb7d336154 HTMLDocGenerator.st
--- a/HTMLDocGenerator.st	Mon Oct 14 18:01:30 1996 +0200
+++ b/HTMLDocGenerator.st	Tue Oct 15 20:55:44 1996 +0200
@@ -5,7 +5,7 @@
 	category:'System-Documentation'
 !
 
-!HTMLDocGenerator  class methodsFor:'documentation'!
+!HTMLDocGenerator class methodsFor:'documentation'!
 
 documentation
 "
@@ -17,7 +17,7 @@
 "
 ! !
 
-!HTMLDocGenerator  class methodsFor:'document generation'!
+!HTMLDocGenerator class methodsFor:'document generation'!
 
 htmlClassCategoryList
     |categories s prefixList prefix prefixStack prev|
@@ -25,7 +25,9 @@
     categories := Set new.
 
     Smalltalk allClasses do:[:cls |
-        categories add:cls category
+        cls isPrivate ifFalse:[
+            categories add:cls category
+        ]
     ].
 
     categories := categories asOrderedCollection sort.
@@ -169,19 +171,24 @@
     "
 
     "Created: 22.4.1996 / 20:03:30 / cg"
-    "Modified: 7.9.1996 / 19:59:55 / cg"
+    "Modified: 15.10.1996 / 19:52:31 / cg"
 !
 
 htmlClassListPrefix:prefix
     |classes|
 
     classes := Smalltalk allClasses
-                select:[:cls | cls name startsWith:prefix].
+                select:[:cls | 
+                                cls isPrivate not
+                                and:[cls name startsWith:prefix]
+                       ].
 
-    ^ self htmlClasses:classes title:('Classes starting with ''' , prefix asString , ''':').
+    ^ self 
+        htmlClasses:classes 
+              title:('Classes starting with ''' , prefix asString , ''':').
 
-    "Modified: 20.4.1996 / 22:42:13 / cg"
     "Created: 22.4.1996 / 20:03:31 / cg"
+    "Modified: 15.10.1996 / 19:53:03 / cg"
 !
 
 htmlClasses:classes title:title
@@ -253,7 +260,8 @@
     |classes|
 
     classes := Smalltalk allClasses
-                select:[:cls | cls category = category].
+                select:[:cls | cls isPrivate not
+                               and:[cls category = category]].
 
     ^ self 
         htmlClasses:classes
@@ -261,21 +269,22 @@
         backTo:nil
 
     "Created: 22.4.1996 / 20:03:31 / cg"
-    "Modified: 23.4.1996 / 15:42:17 / cg"
+    "Modified: 15.10.1996 / 19:53:25 / cg"
 !
 
 htmlClassesListOfCategory:category backTo:backRef
     |classes|
 
     classes := Smalltalk allClasses
-                select:[:cls | cls category = category].
+                select:[:cls | cls isPrivate not
+                               and:[cls category = category]].
 
     ^ self 
         htmlClasses:classes title:('Classes in: ' , category)
         backTo:backRef
 
-    "Modified: 23.4.1996 / 15:31:38 / cg"
     "Created: 23.4.1996 / 15:39:39 / cg"
+    "Modified: 15.10.1996 / 19:53:37 / cg"
 !
 
 htmlDocOf:aClass
@@ -1303,7 +1312,7 @@
     "Modified: 27.4.1996 / 15:05:19 / cg"
 ! !
 
-!HTMLDocGenerator  class methodsFor:'helpers'!
+!HTMLDocGenerator class methodsFor:'helpers'!
 
 extractSpecial:pattern from:docu
     "given a collection of docu lines (from documentation methods comment),
@@ -1336,8 +1345,8 @@
     "Modified: 27.4.1996 / 19:01:07 / cg"
 ! !
 
-!HTMLDocGenerator  class methodsFor:'documentation'!
+!HTMLDocGenerator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.2 1996-10-01 17:49:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.3 1996-10-15 18:55:44 cg Exp $'
 ! !