--- a/HTMLDocGenerator.st Mon Sep 23 11:23:32 1996 +0200
+++ b/HTMLDocGenerator.st Tue Oct 01 19:49:45 1996 +0200
@@ -20,7 +20,7 @@
!HTMLDocGenerator class methodsFor:'document generation'!
htmlClassCategoryList
- |classes categories s prefixList prefix prefixStack indent prev|
+ |categories s prefixList prefix prefixStack prev|
categories := Set new.
@@ -297,7 +297,7 @@
htmlDocOf:aClass back:backCmd backRef:backRef
|supers s indent m docu examples firstIndent firstNonEmpty
collectionOfCategories collectionOfClassCategories
- revInfo pckgInfo subs refLines srchIdx l idx demoLines
+ revInfo pckgInfo subs refLines demoLines
backHRef authorLines first wasLoaded didLoadBin|
(wasLoaded := aClass isLoaded) ifFalse:[
@@ -455,14 +455,9 @@
s := '' writeStream.
- s nextPutAll:'<html>'; cr.
- s nextPutAll:'<head>'; cr.
- s nextPutAll:'<title>'; cr.
+ s nextPutAll:'<html><head><title>'; cr.
s nextPutAll:'Class: '; nextPutAll:(aClass name); cr.
- s nextPutAll:'</title>'; cr.
- s nextPutAll:'</head>'; cr.
-
- s nextPutAll:'<body>'; cr.
+ s nextPutAll:'</title></head><body>'; cr.
backRef isNil ifTrue:[
backHRef := 'TOP.html'
@@ -787,7 +782,7 @@
!
htmlDocOfImplementorsOf:selector
- |classNames sel s|
+ |sel s|
sel := (selector copy
replChar:$< withString:'<')
@@ -795,12 +790,9 @@
s := '' writeStream.
- s nextPutAll:'<html>'; cr.
- s nextPutAll:'<head>'; cr.
- s nextPutAll:'<title>'; cr.
+ s nextPutAll:'<html><head><title>'; cr.
s nextPutAll:sel; cr.
- s nextPutAll:'</title>'; cr.
- s nextPutAll:'</head>'; cr.
+ s nextPutAll:'</title></head>'; cr.
s nextPutAll:'<body>'; cr.
s nextPutAll:'<a NOPRINT HREF="TOP.html"> <IMG SRC="../icons/DocsUpArrow.gif" ALT="back"></A>';cr.
@@ -822,8 +814,7 @@
s nextPutAll:'</dl>'; cr.
- s nextPutAll:'</body>'; cr.
- s nextPutAll:'</html>'; cr.
+ s nextPutAll:'</body></html>'; cr.
^ s contents
@@ -900,16 +891,13 @@
!
htmlSelectors:selectors title:title
- |classNames s|
+ |s|
s := '' writeStream.
- s nextPutAll:'<html>'; cr.
- s nextPutAll:'<head>'; cr.
- s nextPutAll:'<title>'; cr.
+ s nextPutAll:'<html><head><title>'; cr.
s nextPutAll:title; cr.
- s nextPutAll:'</title>'; cr.
- s nextPutAll:'</head>'; cr.
+ s nextPutAll:'</title></head>'; cr.
s nextPutAll:'<body>'; cr.
s nextPutAll:'<a NOPRINT HREF="TOP.html"> <IMG SRC="../icons/DocsUpArrow.gif" ALT="back"></A>';cr.
@@ -930,8 +918,7 @@
s nextPutAll:'</ul>'; cr.
- s nextPutAll:'</body>'; cr.
- s nextPutAll:'</html>'; cr.
+ s nextPutAll:'</body></html>'; cr.
^ s contents
@@ -1146,7 +1133,7 @@
and any method comments - without source; used to generate documentation
pages"
- |text comment cls sel partStream args argStream who methodSpecLine first
+ |comment cls sel partStream args argStream who methodSpecLine first
firstIndent firstNonEmpty isSubres isObsolete smallOrEmpty
ballColor|
@@ -1253,12 +1240,9 @@
comment := comment asString.
].
-"/ aStream nextPutAll:'<pre>'; cr.
-"/ aStream spaces:((text at:2) indexOfNonSeparatorStartingAt:1).
comment asStringCollection do:[:line |
aStream nextPutAll:line; nextPutAll:'<br>'; cr.
].
-"/ aStream nextPutAll:'</pre>';cr.
].
isSubres ifTrue:[
@@ -1355,5 +1339,5 @@
!HTMLDocGenerator class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.1 1996-09-13 09:18:17 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.2 1996-10-01 17:49:45 cg Exp $'
! !