--- 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 $'
! !