--- a/HTMLDocGenerator.st Mon Nov 05 16:45:43 2007 +0100
+++ b/HTMLDocGenerator.st Mon Nov 05 17:23:41 2007 +0100
@@ -432,11 +432,7 @@
s := aStream.
- subs := aClass subclasses.
- subs := subs select:[:cls | |def|
- def := cls projectDefinition.
- def isNil or:[def showClassDocumentationOf:cls]].
- subs := subs asOrderedCollection sort:[:a :b | a name < b name].
+ subs := self shownSubclassesOf:aClass.
s nextPutLine:'<pre>'.
subs do:[:cls |
@@ -456,7 +452,7 @@
].
s nextPutLine:'</pre>'.
- "Modified: / 05-11-2007 / 16:44:35 / cg"
+ "Modified: / 05-11-2007 / 17:22:43 / cg"
!
htmlClassCategoryList
@@ -1040,8 +1036,7 @@
(aClass == Autoload or:[aClass == Object]) ifTrue:[
subs := #()
] ifFalse:[
- subs := aClass subclasses
- asOrderedCollection sort:[:a :b | a name < b name].
+ subs := self shownSubclassesOf:aClass.
].
s nextPutLine:'<h1>'.
@@ -1366,7 +1361,7 @@
"
"Created: / 24-04-1996 / 15:01:59 / cg"
- "Modified: / 10-11-2006 / 17:11:38 / cg"
+ "Modified: / 05-11-2007 / 17:22:54 / cg"
!
htmlDocOf:aClass backRef:backRef
@@ -2472,6 +2467,19 @@
outStream nextPutAll:'</i>'.
!
+shownSubclassesOf:aClass
+ |subs|
+
+ subs := aClass subclasses.
+ subs := subs select:[:cls | |def|
+ def := cls projectDefinition.
+ def isNil or:[def showClassDocumentationOf:cls]].
+ subs := subs asOrderedCollection sort:[:a :b | a name < b name].
+ ^ subs
+
+ "Created: / 05-11-2007 / 17:22:27 / cg"
+!
+
withSpecialHTMLCharactersEscaped:aStringOrCharacter
^ HTTPServer withSpecialHTMLCharactersEscaped:aStringOrCharacter
@@ -2540,5 +2548,5 @@
!HTMLDocGenerator class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.80 2007-11-05 15:45:43 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.81 2007-11-05 16:23:41 cg Exp $'
! !