hg/stx-libbasic3: HTMLDocGenerator.st@b8fb01c3bd70 (annotated)

478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1	Object subclass:#HTMLDocGenerator
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	2	instanceVariableNames:''
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	3	classVariableNames:''
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	4	poolDictionaries:''
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	5	category:'System-Documentation'
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	6	!
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	7
498 ebdb7d336154 ignore private classes Claus Gittinger <cg@exept.de> parents: 492 diff changeset	8	!HTMLDocGenerator class methodsFor:'documentation'!
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	9
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	10	documentation
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	11	"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	12	helper class to generate HTML docuemntation
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	13	for classes - see DocViewers Class Documentation.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	14
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	15	[author:]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	16	Claus Gittinger
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	17	"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	18	! !
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	19
498 ebdb7d336154 ignore private classes Claus Gittinger <cg@exept.de> parents: 492 diff changeset	20	!HTMLDocGenerator class methodsFor:'document generation'!
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	21
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	22	htmlClassCategoryList
492 1b5153fd52a5 removed unused vars Claus Gittinger <cg@exept.de> parents: 478 diff changeset	23	\|categories s prefixList prefix prefixStack prev\|
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	24
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	25	categories := Set new.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	26
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	27	Smalltalk allClasses do:[:cls \|
498 ebdb7d336154 ignore private classes Claus Gittinger <cg@exept.de> parents: 492 diff changeset	28	cls isPrivate ifFalse:[
528 6a41708328a4 skip namespaces in classList Claus Gittinger <cg@exept.de> parents: 523 diff changeset	29	(cls isNamespace not or:[cls == Smalltalk]) ifTrue:[
6a41708328a4 skip namespaces in classList Claus Gittinger <cg@exept.de> parents: 523 diff changeset	30	categories add:cls category
6a41708328a4 skip namespaces in classList Claus Gittinger <cg@exept.de> parents: 523 diff changeset	31	]
498 ebdb7d336154 ignore private classes Claus Gittinger <cg@exept.de> parents: 492 diff changeset	32	]
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	33	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	34
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	35	categories := categories asOrderedCollection sort.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	36
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	37	s := '' writeStream.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	38
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	39	s nextPutAll:'
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	40	<html>
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	41	<head>
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	42	<title>
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	43	Class categories:
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	44	</title>
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	45	</head>
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	46	<body>
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	47	<a NOPRINT HREF="TOP.html"> <IMG SRC="../icons/DocsUpArrow.gif" ALT="back"></A>
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	48
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	49	<hr>
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	50	<h1>Class categories:</h1>
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	51
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	52	<ul>
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	53	'.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	54
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	55	prefixList := Set new.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	56
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	57	categories keysAndValuesDo:[:index :element \|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	58	\|prev common\|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	59
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	60	index ~~ 1 ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	61	prev := categories at:(index - 1).
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	62	common := (Array with:prev with:element) longestCommonPrefix.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	63	(common endsWith:'-') ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	64	prefixList add:(common copyWithoutLast:1)
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	65	] ifFalse:[
553 b8fb01c3bd70 checkin from browser Claus Gittinger <cg@exept.de> parents: 552 diff changeset	66	(common includes:$-) ifTrue:[
b8fb01c3bd70 checkin from browser Claus Gittinger <cg@exept.de> parents: 552 diff changeset	67	prefixList add:(common copyTo:(common lastIndexOf:$-)-1).
b8fb01c3bd70 checkin from browser Claus Gittinger <cg@exept.de> parents: 552 diff changeset	68	] ifFalse:[
b8fb01c3bd70 checkin from browser Claus Gittinger <cg@exept.de> parents: 552 diff changeset	69	common = prev ifTrue:[
b8fb01c3bd70 checkin from browser Claus Gittinger <cg@exept.de> parents: 552 diff changeset	70	prefixList add:common
b8fb01c3bd70 checkin from browser Claus Gittinger <cg@exept.de> parents: 552 diff changeset	71	]
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	72	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	73	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	74	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	75	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	76
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	77	prefix := ''. prefixStack := OrderedCollection new.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	78	prev := ''.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	79
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	80	categories := categories select:[:nm \| nm ~= 'obsolete'].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	81
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	82	categories do:[:nm \|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	83	\|longest\|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	84
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	85	"/ longest prefix ....
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	86	longest := prefixList inject:'' into:[:maxPrefix :prefix \|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	87	nm = prefix ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	88	maxPrefix
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	89	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	90	(nm startsWith:prefix)
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	91	ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	92	prefix size > maxPrefix size
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	93	ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	94	prefix
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	95	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	96	maxPrefix
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	97	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	98	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	99	maxPrefix
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	100	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	101	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	102	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	103
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	104	longest size > 0 ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	105	longest = prefix ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	106	"/ no change
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	107	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	108	(longest startsWith:prefix) ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	109	prefixStack addLast:longest.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	110	longest ~= prev ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	111	prefixStack size == 1 ifTrue:[
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	112	s nextPutLine:'<p>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	113	].
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	114	s nextPutLine:'<li>' , longest.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	115	].
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	116	s nextPutLine:'<ul>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	117	prefix := longest.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	118	] ifFalse:[
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	119	s nextPutLine:'</ul>'.
552 5df51108aa3e checkin from browser Claus Gittinger <cg@exept.de> parents: 548 diff changeset	120	prefixStack notEmpty ifTrue:[
5df51108aa3e checkin from browser Claus Gittinger <cg@exept.de> parents: 548 diff changeset	121	prefixStack removeLast.
5df51108aa3e checkin from browser Claus Gittinger <cg@exept.de> parents: 548 diff changeset	122	].
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	123
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	124	[prefixStack notEmpty
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	125	and:[(longest startsWith:prefixStack last) not]] whileTrue:[
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	126	s nextPutLine:'</ul>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	127	prefixStack removeLast.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	128	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	129
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	130	prefixStack notEmpty ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	131	prefix := prefixStack last.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	132	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	133	prefixStack addLast:longest.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	134	prefix := longest.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	135	longest ~= prev ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	136	prefixStack size == 1 ifTrue:[
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	137	s nextPutLine:'<p>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	138	].
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	139	s nextPutLine:'<li>' , longest.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	140	].
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	141	s nextPutLine:'<ul>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	142	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	143	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	144	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	145	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	146	[prefixStack size > 0] whileTrue:[
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	147	s nextPutLine:'</ul>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	148	prefixStack removeLast.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	149	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	150	prefixStack size == 0 ifTrue:[
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	151	s nextPutLine:'<p>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	152	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	153	prefix := ''.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	154	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	155
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	156	s nextPutAll:'<li><a href="../misc/onlyInSTX2.html" action="html:'
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	157	, self name
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	158	, ' htmlClassesListOfCategory:''' , nm
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	159	, ''' backTo:''htmlClassCategoryList''">'
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	160	"/ full name:
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	161	"/ , nm ,'</a>';cr.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	162
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	163	"/ cut off prefix:
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	164	, (nm copyFrom:prefix size + 1) ,'</a>';cr.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	165	prev := nm.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	166	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	167
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	168	s nextPutAll:'
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	169	</ul>
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	170
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	171	</body>
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	172	</html>
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	173	'.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	174
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	175	^ s contents
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	176
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	177	"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	178	HTMLDocGenerator htmlClassCategoryList
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	179	"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	180
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	181	"Created: 22.4.1996 / 20:03:30 / cg"
553 b8fb01c3bd70 checkin from browser Claus Gittinger <cg@exept.de> parents: 552 diff changeset	182	"Modified: 2.3.1997 / 12:01:13 / cg"
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	183	!
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	184
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	185	htmlClassListPrefix:prefix
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	186	\|classes\|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	187
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	188	classes := Smalltalk allClasses
498 ebdb7d336154 ignore private classes Claus Gittinger <cg@exept.de> parents: 492 diff changeset	189	select:[:cls \|
ebdb7d336154 ignore private classes Claus Gittinger <cg@exept.de> parents: 492 diff changeset	190	cls isPrivate not
528 6a41708328a4 skip namespaces in classList Claus Gittinger <cg@exept.de> parents: 523 diff changeset	191	and:[(cls isNamespace not or:[cls == Smalltalk])
6a41708328a4 skip namespaces in classList Claus Gittinger <cg@exept.de> parents: 523 diff changeset	192	and:[cls name startsWith:prefix]]
498 ebdb7d336154 ignore private classes Claus Gittinger <cg@exept.de> parents: 492 diff changeset	193	].
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	194
498 ebdb7d336154 ignore private classes Claus Gittinger <cg@exept.de> parents: 492 diff changeset	195	^ self
ebdb7d336154 ignore private classes Claus Gittinger <cg@exept.de> parents: 492 diff changeset	196	htmlClasses:classes
ebdb7d336154 ignore private classes Claus Gittinger <cg@exept.de> parents: 492 diff changeset	197	title:('Classes starting with ''' , prefix asString , ''':').
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	198
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	199	"Created: 22.4.1996 / 20:03:31 / cg"
528 6a41708328a4 skip namespaces in classList Claus Gittinger <cg@exept.de> parents: 523 diff changeset	200	"Modified: 5.1.1997 / 20:10:23 / cg"
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	201	!
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	202
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	203	htmlClasses:classes title:title
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	204	^ self
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	205	htmlClasses:classes
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	206	title:title
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	207	backTo:nil
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	208
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	209	"Modified: 23.4.1996 / 15:32:10 / cg"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	210	!
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	211
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	212	htmlClasses:classes title:title backTo:backRef
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	213	\|classNames s\|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	214
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	215	classNames := (classes collect:[:cls \| cls name]) asOrderedCollection sort.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	216
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	217	s := '' writeStream.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	218
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	219
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	220	s nextPutAll:'
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	221	<html>
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	222	<head>
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	223	<title>
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	224	'.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	225	s nextPutAll:title.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	226	s nextPutAll:'
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	227	</title>
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	228	</head>
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	229	<body>
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	230	'.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	231	backRef notNil ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	232	backRef == #none ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	233	s nextPutAll:'<a NOPRINT HREF="TOP.html" action="html:' , self name , ' ' , backRef , '"> <IMG SRC="../icons/DocsUpArrow.gif" ALT="back"></A>'.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	234	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	235	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	236	s nextPutAll:'<a NOPRINT HREF="TOP.html"> <IMG SRC="../icons/DocsUpArrow.gif" ALT="back"></A>'.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	237	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	238	backRef ~~ #none ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	239	s nextPutAll:'<hr>
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	240	'.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	241	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	242
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	243	s nextPutAll:'
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	244	<h1>
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	245	'.
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	246	s nextPutLine:title.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	247	s nextPutAll:'
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	248	</h1>
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	249	<ul>
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	250	'.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	251
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	252	classNames do:[:nm \|
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	253	s nextPutLine:'<li><a href="../misc/onlyInSTX2.html" action="html:' , self name ,' htmlDocOf:' , nm , '">' , nm , '</A>'
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	254	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	255
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	256	s nextPutAll:'
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	257	</ul>
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	258	</body>
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	259	</html>
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	260	'.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	261
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	262	^ s contents
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	263
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	264	"Created: 23.4.1996 / 15:31:55 / cg"
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	265	"Modified: 9.11.1996 / 00:16:48 / cg"
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	266	!
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	267
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	268	htmlClassesListOfCategory:category
528 6a41708328a4 skip namespaces in classList Claus Gittinger <cg@exept.de> parents: 523 diff changeset	269	^ self
6a41708328a4 skip namespaces in classList Claus Gittinger <cg@exept.de> parents: 523 diff changeset	270	htmlClassesListOfCategory:category
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	271	backTo:nil
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	272
528 6a41708328a4 skip namespaces in classList Claus Gittinger <cg@exept.de> parents: 523 diff changeset	273	"Modified: 5.1.1997 / 20:09:36 / cg"
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	274	!
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	275
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	276	htmlClassesListOfCategory:category backTo:backRef
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	277	\|classes\|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	278
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	279	classes := Smalltalk allClasses
498 ebdb7d336154 ignore private classes Claus Gittinger <cg@exept.de> parents: 492 diff changeset	280	select:[:cls \| cls isPrivate not
528 6a41708328a4 skip namespaces in classList Claus Gittinger <cg@exept.de> parents: 523 diff changeset	281	and:[(cls isNamespace not or:[cls == Smalltalk])
6a41708328a4 skip namespaces in classList Claus Gittinger <cg@exept.de> parents: 523 diff changeset	282	and:[cls category = category]]
6a41708328a4 skip namespaces in classList Claus Gittinger <cg@exept.de> parents: 523 diff changeset	283	].
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	284
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	285	^ self
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	286	htmlClasses:classes title:('Classes in: ' , category)
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	287	backTo:backRef
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	288
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	289	"Created: 23.4.1996 / 15:39:39 / cg"
528 6a41708328a4 skip namespaces in classList Claus Gittinger <cg@exept.de> parents: 523 diff changeset	290	"Modified: 5.1.1997 / 20:09:15 / cg"
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	291	!
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	292
541 095de1529e29 allow matchPatterns in related information Claus Gittinger <cg@exept.de> parents: 540 diff changeset	293	htmlClassesMatching:aMatchPattern backTo:backRef
095de1529e29 allow matchPatterns in related information Claus Gittinger <cg@exept.de> parents: 540 diff changeset	294	\|classes cls\|
095de1529e29 allow matchPatterns in related information Claus Gittinger <cg@exept.de> parents: 540 diff changeset	295
095de1529e29 allow matchPatterns in related information Claus Gittinger <cg@exept.de> parents: 540 diff changeset	296	classes := Smalltalk allClasses
095de1529e29 allow matchPatterns in related information Claus Gittinger <cg@exept.de> parents: 540 diff changeset	297	select:[:cls \| cls isPrivate not
095de1529e29 allow matchPatterns in related information Claus Gittinger <cg@exept.de> parents: 540 diff changeset	298	and:[(cls isNamespace not or:[cls == Smalltalk])
095de1529e29 allow matchPatterns in related information Claus Gittinger <cg@exept.de> parents: 540 diff changeset	299	and:[aMatchPattern match:cls name]]
095de1529e29 allow matchPatterns in related information Claus Gittinger <cg@exept.de> parents: 540 diff changeset	300	].
095de1529e29 allow matchPatterns in related information Claus Gittinger <cg@exept.de> parents: 540 diff changeset	301
095de1529e29 allow matchPatterns in related information Claus Gittinger <cg@exept.de> parents: 540 diff changeset	302	^ self
095de1529e29 allow matchPatterns in related information Claus Gittinger <cg@exept.de> parents: 540 diff changeset	303	htmlClasses:classes title:('Classes matching: ' , aMatchPattern)
095de1529e29 allow matchPatterns in related information Claus Gittinger <cg@exept.de> parents: 540 diff changeset	304	backTo:backRef
095de1529e29 allow matchPatterns in related information Claus Gittinger <cg@exept.de> parents: 540 diff changeset	305
095de1529e29 allow matchPatterns in related information Claus Gittinger <cg@exept.de> parents: 540 diff changeset	306	"
095de1529e29 allow matchPatterns in related information Claus Gittinger <cg@exept.de> parents: 540 diff changeset	307	self htmlClassesMatching:'Tgen::*' backTo:nil
095de1529e29 allow matchPatterns in related information Claus Gittinger <cg@exept.de> parents: 540 diff changeset	308	"
095de1529e29 allow matchPatterns in related information Claus Gittinger <cg@exept.de> parents: 540 diff changeset	309
095de1529e29 allow matchPatterns in related information Claus Gittinger <cg@exept.de> parents: 540 diff changeset	310	"Modified: 11.1.1997 / 19:40:17 / cg"
095de1529e29 allow matchPatterns in related information Claus Gittinger <cg@exept.de> parents: 540 diff changeset	311	!
095de1529e29 allow matchPatterns in related information Claus Gittinger <cg@exept.de> parents: 540 diff changeset	312
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	313	htmlDocOf:aClass
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	314	^ self htmlDocOf:aClass back:nil backRef:nil
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	315
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	316	"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	317	self htmlDocOf:PostscriptPrinterStream
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	318	"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	319
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	320	"Modified: 24.4.1996 / 15:03:06 / cg"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	321	!
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	322
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	323	htmlDocOf:aClass back:backCmd
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	324	^ self htmlDocOf:aClass back:backCmd backRef:nil
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	325
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	326	"Modified: 24.4.1996 / 15:03:30 / cg"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	327	!
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	328
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	329	htmlDocOf:aClass back:backCmd backRef:backRef
540 c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	330	"generate a nice HTML page from a class, with a back-reference
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	331	to a command or document.
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	332
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	333	Extract sections from the classes documentation method,
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	334	where the following lines start a special subsection:
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	335	[see also:] - references to other classes and/or documents
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	336	[start with:] - one-liners to start a demonstration
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	337	[author:] - author(s) of this class
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	338	[warning:] - usage warnings if any
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	339	[hints:] - usage hints if any
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	340	Each section ends with an empty line - however, for formatting,
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	341	a line consisting of a single backslash character will be converted
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	342	to an empty line.
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	343
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	344	Extract examples from the classes example method,
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	345	where executable examples are made from sections enclosed in:
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	346	[exBegin]
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	347	...
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	348	[exEnd]
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	349	these parts are displayed in courier and will be made executable.
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	350	everything else is plain documentation text.
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	351	"
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	352
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	353	\|supers s indent m docu examples firstIndent firstNonEmpty
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	354	collectionOfCategories collectionOfClassCategories
540 c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	355	revInfo pckgInfo subs refLines demoLines warnLines hintLines
499 0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	356	backHRef authorLines first wasLoaded didLoadBin
530 d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	357	privateClasses owner className metaClass shortName shortMetaName
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	358	text path\|
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	359
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	360	(wasLoaded := aClass isLoaded) ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	361	"/ load it - but not a binary
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	362	didLoadBin := Smalltalk loadBinaries.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	363	Smalltalk loadBinaries:false.
530 d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	364	[
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	365	aClass autoload.
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	366	] valueNowOrOnUnwindDo:[
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	367	didLoadBin ifTrue:[Smalltalk loadBinaries:true].
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	368	]
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	369	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	370
499 0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	371	owner := aClass owningClass.
0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	372	privateClasses := aClass privateClasses.
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	373	className := aClass name.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	374	shortName := aClass nameWithoutPrefix.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	375	metaClass := aClass class.
523 6a986fe180df handle namespaces Claus Gittinger <cg@exept.de> parents: 511 diff changeset	376	shortMetaName := metaClass nameWithoutPrefix.
499 0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	377
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	378	"/
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	379	"/ extract documentation or comment, if there is any
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	380	"/
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	381	m := metaClass compiledMethodAt:#documentation.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	382	m notNil ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	383	docu := m comment.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	384	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	385	"try comment"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	386	docu := aClass comment.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	387	].
540 c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	388
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	389	(docu notNil and:[docu isEmpty]) ifTrue:[
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	390	docu := nil
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	391	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	392	docu notNil ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	393	docu := (docu copy
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	394	replChar:$< withString:'<')
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	395	replChar:$> withString:'>'.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	396
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	397	docu := docu asStringCollection.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	398
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	399	"/
540 c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	400	"/ search for a [see also:] section
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	401	"/
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	402	refLines := self extractSpecial:'[see also:]' from:docu.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	403
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	404	"/
540 c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	405	"/ search for a [start with:] section
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	406	"/
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	407	demoLines := self extractSpecial:'[start with:]' from:docu.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	408
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	409	"/
540 c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	410	"/ search for a [author:] section
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	411	"/
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	412	authorLines := self extractSpecial:'[author:]' from:docu.
540 c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	413	authorLines isNil ifTrue:[
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	414	authorLines := self extractSpecial:'[authors:]' from:docu.
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	415	].
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	416
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	417	"/
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	418	"/ search for a [warning:] section
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	419	"/
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	420	warnLines := self extractSpecial:'[warning:]' from:docu.
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	421
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	422	"/
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	423	"/ search for a [hints:] section
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	424	"/
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	425	hintLines := self extractSpecial:'[hints:]' from:docu.
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	426	hintLines isNil ifTrue:[
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	427	hintLines := self extractSpecial:'[hint:]' from:docu.
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	428	].
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	429
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	430	"/
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	431	"/ strip off empty lines
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	432	"/
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	433	[(docu at:1) size == 0] whileTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	434	docu removeIndex:1
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	435	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	436	[(docu at:docu size) size == 0] whileTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	437	docu removeIndex:(docu size)
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	438	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	439
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	440	docu notEmpty ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	441	firstIndent := docu first leftIndent.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	442	firstIndent > 0 ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	443	docu := docu collect:[:line \|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	444	line leftIndent >= firstIndent ifTrue:[
540 c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	445	line copyFrom:firstIndent + 1.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	446	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	447	line
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	448	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	449	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	450	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	451	firstNonEmpty := docu findFirst:[:line \| line notEmpty].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	452	firstNonEmpty > 1 ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	453	docu := docu copyFrom:firstNonEmpty
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	454	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	455	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	456	docu := docu asString.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	457	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	458
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	459	refLines notNil ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	460	refLines := refLines collect:[:l \|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	461	\|t\|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	462
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	463	((t := l withoutSeparators) startsWith:'(') ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	464	t
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	465	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	466	l asCollectionOfWords
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	467	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	468	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	469	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	470
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	471	"/
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	472	"/ extract examples if there are any
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	473	"/
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	474	m := metaClass compiledMethodAt:#examples.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	475	m notNil ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	476	examples := m comment.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	477	examples notNil ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	478	examples isEmpty ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	479	examples := nil
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	480	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	481	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	482	examples notNil ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	483	examples := (examples copy
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	484	replChar:$< withString:'<')
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	485	replChar:$> withString:'>'.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	486
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	487	examples := examples asStringCollection.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	488
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	489	"/
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	490	"/ strip off empty lines
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	491	"/
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	492	[examples first size == 0] whileTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	493	examples removeIndex:1
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	494	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	495	[examples last size == 0] whileTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	496	examples removeIndex:(examples size)
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	497	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	498
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	499	examples notEmpty ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	500	firstIndent := examples first withTabsExpanded leftIndent.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	501	firstIndent > 0 ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	502	examples := examples collect:[:line \|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	503	\|l\|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	504
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	505	l := line withTabsExpanded.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	506	l leftIndent >= firstIndent ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	507	l copyFrom:firstIndent.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	508	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	509	l
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	510	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	511	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	512	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	513	firstNonEmpty := examples findFirst:[:line \| line notEmpty].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	514	firstNonEmpty > 1 ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	515	examples := examples copyFrom:firstNonEmpty
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	516	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	517	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	518	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	519	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	520
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	521	collectionOfClassCategories := metaClass categories.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	522	collectionOfClassCategories size > 0 ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	523	collectionOfClassCategories := collectionOfClassCategories asOrderedCollection.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	524	collectionOfClassCategories remove:'documentation' ifAbsent:nil.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	525	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	526	collectionOfCategories := aClass categories.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	527	collectionOfCategories size > 0 ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	528	collectionOfCategories := collectionOfCategories asOrderedCollection.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	529	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	530
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	531	(aClass == Autoload or:[aClass == Object]) ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	532	subs := #()
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	533	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	534	subs := aClass subclasses
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	535	asOrderedCollection sort:[:a :b \| a name < b name].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	536	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	537
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	538	s := '' writeStream.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	539
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	540	s nextPutLine:'<html><head><title>'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	541	s nextPutAll:'Class: '; nextPutLine:(className).
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	542	s nextPutLine:'</title></head><body>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	543
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	544	backRef isNil ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	545	backHRef := 'TOP.html'
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	546	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	547	backHRef := backRef
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	548	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	549	backCmd notNil ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	550	s nextPutAll:'<a NOPRINT HREF="' , backHRef , '" action="html:' , self name , ' ' , backCmd , '"> <IMG SRC="../icons/DocsUpArrow.gif" ALT="back"></A>'.
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	551	s nextPutLine:'<hr>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	552	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	553	backHRef ~~ #none ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	554	s nextPutAll:'<a NOPRINT HREF="' , backHRef , '"> <IMG SRC="../icons/DocsUpArrow.gif" ALT="back"></A>';cr.
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	555	s nextPutLine:'<hr>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	556	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	557	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	558
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	559	s nextPutLine:'<h1>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	560	s nextPutAll:'Class: ';
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	561	nextPutAll:'<a INFO="open a browser on ' , shortName , '" type="example" action="SystemBrowser openInClass:' , className , '">';
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	562	nextPutAll:(shortName); nextPutLine:'</a>'.
499 0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	563
0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	564	owner notNil ifTrue:[
0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	565	s nextPutAll:' (private in ';
0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	566	nextPutAll:'<a INFO="open a browser on ' , owner nameWithoutPrefix , '" type="example" action="SystemBrowser openInClass:' , owner name , '">';
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	567	nextPutAll:(owner nameWithoutPrefix); nextPutLine:'</a>)'.
523 6a986fe180df handle namespaces Claus Gittinger <cg@exept.de> parents: 511 diff changeset	568	] ifFalse:[
6a986fe180df handle namespaces Claus Gittinger <cg@exept.de> parents: 511 diff changeset	569	aClass nameSpace ~~ Smalltalk ifTrue:[
6a986fe180df handle namespaces Claus Gittinger <cg@exept.de> parents: 511 diff changeset	570	s nextPutAll:' (in ' , aClass nameSpace name , ')'
6a986fe180df handle namespaces Claus Gittinger <cg@exept.de> parents: 511 diff changeset	571	]
499 0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	572	].
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	573	s nextPutLine:'</h1>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	574
499 0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	575	owner notNil ifTrue:[
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	576	s nextPutLine:'This class is only visible from within'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	577	s nextPutLine:owner nameWithoutPrefix.
499 0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	578	owner owningClass notNil ifTrue:[
0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	579	s nextPutAll:'(which is itself a private class of '.
0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	580	s nextPutAll:owner owningClass nameWithoutPrefix.
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	581	s nextPutLine:')'
499 0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	582	].
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	583	s nextPutLine:'.'
499 0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	584	].
0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	585
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	586	"/
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	587	"/ index
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	588	"/
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	589	"/ s nextPutAll:'Index:'; cr.
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	590	s nextPutLine:'<ul>'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	591	s nextPutLine:'<li><a href="#INHERITANCE" name="I_INHERITANCE">Inheritance</a>'.
540 c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	592
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	593	docu notNil ifTrue:[
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	594	s nextPutLine:'<li><a href="#DESCRIPTION" name="I_DESCRIPTION">Description</a>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	595	].
540 c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	596	warnLines notNil ifTrue:[
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	597	warnLines := warnLines asStringCollection.
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	598	s nextPutLine:'<li><a href="#WARNING" name="I_WARNING">Warning</a>'.
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	599	].
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	600	hintLines notNil ifTrue:[
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	601	hintLines := hintLines asStringCollection.
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	602	s nextPutLine:'<li><a href="#HINTS" name="I_HINTS">Hints</a>'.
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	603	].
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	604
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	605	refLines notNil ifTrue:[
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	606	s nextPutLine:'<li><a href="#SEEALSO" name="I_SEEALSO">Related information</a>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	607	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	608
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	609	"/ s nextPutLine:'<li><a href="#INSTANCEVARIABLES" name="I_INSTANCEVARIABLES">Instance variables</a>'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	610	"/ s nextPutLine:'<li><a href="#CLASSVARIABLES" name="I_CLASSVARIABLES">Class variables</a>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	611
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	612	collectionOfClassCategories size > 0 ifTrue:[
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	613	s nextPutLine:'<li><a href="#CLASSPROTOCOL" name="I_CLASSPROTOCOL">Class protocol</a>'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	614	s nextPutLine:'<ul>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	615	collectionOfClassCategories sort do:[:cat \|
523 6a986fe180df handle namespaces Claus Gittinger <cg@exept.de> parents: 511 diff changeset	616	s nextPutLine:'<li><a name="I_' , shortMetaName , '_category_' , cat , '"' ,
6a986fe180df handle namespaces Claus Gittinger <cg@exept.de> parents: 511 diff changeset	617	' href="#' , shortMetaName , '_category_' , cat ,
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	618	'">' , cat , '</a> '.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	619	].
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	620	s nextPutLine:'</ul>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	621	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	622	collectionOfCategories size > 0 ifTrue:[
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	623	s nextPutLine:'<li><a href="#INSTANCEPROTOCOL" name="I_INSTANCEPROTOCOL">Instance protocol</a>'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	624	s nextPutLine:'<ul>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	625	collectionOfCategories sort do:[:cat \|
523 6a986fe180df handle namespaces Claus Gittinger <cg@exept.de> parents: 511 diff changeset	626	s nextPutLine:'<li><a name="I_' , shortName , '_category_' , cat , '"' ,
6a986fe180df handle namespaces Claus Gittinger <cg@exept.de> parents: 511 diff changeset	627	' href="#' , shortName , '_category_' , cat ,
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	628	'">' , cat , '</a> '.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	629	].
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	630	s nextPutLine:'</ul>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	631	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	632
499 0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	633	privateClasses size > 0 ifTrue:[
0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	634	privateClasses := privateClasses asOrderedCollection sort:[:a :b \| a nameWithoutPrefix < b nameWithoutPrefix].
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	635	s nextPutLine:'<li><a href="#PRIVATECLASSES" name="I_PRIVATECLASSES">Private classes</a>'.
499 0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	636	].
0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	637
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	638	(aClass == Object or:[aClass == Autoload]) ifTrue:[
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	639	s nextPutLine:'<li><a href="#SUBCLASSES" name="I_SUBCLASSES">Subclasses</a>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	640	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	641	demoLines notNil ifTrue:[
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	642	s nextPutLine:'<li><a href="#DEMOSTARTUP" name="I_DEMOSTARTUP">Demonstration</a>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	643	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	644	examples notNil ifTrue:[
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	645	s nextPutLine:'<li><a href="#EXAMPLES" name="I_EXAMPLES">Examples</a>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	646	].
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	647	s nextPutLine:'</ul>'; nextPutLine:'<hr>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	648
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	649
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	650	"/
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	651	"/ hierarchy
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	652	"/
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	653	s nextPutLine:'<h2><a name="INHERITANCE" href="#I_INHERITANCE">Inheritance:</A></h2>'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	654	s nextPutLine:'<pre>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	655	indent := 3.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	656	first := true.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	657	supers := aClass allSuperclasses.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	658	(supers notNil) ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	659	supers reverse do:[:cls \|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	660	\|nm\|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	661
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	662	nm := cls name.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	663	first ifFalse:[
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	664	s spaces:indent; nextPutLine:'\|'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	665	s spaces:indent; nextPutAll:'+--'.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	666	indent := indent + 3.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	667	] ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	668	s spaces:indent
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	669	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	670	first := false.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	671
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	672	s nextPutLine:'<a INFO="show documentation of ' , nm , '" href="../misc/onlyInSTX2.html" action="html:' , self name , ' htmlDocOf:' , nm , '">' , nm , '</A>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	673	].
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	674	s spaces:indent; nextPutLine:'\|'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	675	s spaces:indent.
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	676	s nextPutAll:'+--<B>'; nextPutAll:className; nextPutLine:'</B>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	677	indent := indent + 3.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	678	] ifFalse:[
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	679	s spaces:indent; nextPutLine:'nil'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	680	s spaces:indent; nextPutLine:'\|'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	681	s spaces:indent; nextPutAll:'+--<B>'; nextPutAll:className; nextPutLine:'</B>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	682	aClass ~~ Object ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	683	s cr.
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	684	s nextPutLine:' <B>This class inherits NOTHING - most messages will lead into doesNotUnderstand:</B>'
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	685	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	686	indent := indent + 3.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	687	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	688
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	689	subs notEmpty ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	690	subs do:[:aSubclass \|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	691	\|nm\|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	692
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	693	nm := aSubclass name.
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	694	s spaces:indent; nextPutLine:'\|'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	695	s spaces:indent; nextPutAll:'+--'.
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	696	s nextPutLine:'<a INFO="show documentation of ' , nm , '" href="../misc/onlyInSTX2.html" action="html:' , self name , ' htmlDocOf:' , nm , '">' , nm , '</A>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	697	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	698	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	699	aClass == Object ifTrue:[
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	700	s spaces:indent; nextPutLine:'\|'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	701	s spaces:indent; nextPutLine:'+-- ... almost every other class ...'
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	702	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	703	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	704
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	705
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	706	s nextPutLine:'</pre>'; nextPutLine:'<hr>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	707
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	708	"/
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	709	"/ category, version & package
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	710	"/
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	711	s nextPutLine:'<dl>'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	712	s nextPutLine:'<dt><a name="CATEGORY"><b>Category:</b></A>'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	713	s nextPutLine:'<dd><b>', aClass category , '</b>'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	714	s nextPutLine:'</dl>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	715
499 0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	716	owner notNil ifTrue:[
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	717	s nextPutLine:'<dl>'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	718	s nextPutLine:'<dt><a name="OWNER"><b>Owner:</b></A>'.
499 0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	719	s nextPutAll:'<dd><b>';
0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	720	nextPutAll:'<a INFO="show documentation of ' , owner nameWithoutPrefix , '" href="../misc/onlyInSTX2.html" action="html:' , self name , ' htmlDocOf:' , owner name , '">' , owner nameWithoutPrefix , '</A>';
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	721	nextPutLine:'</b>'.
499 0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	722	] ifFalse:[
530 d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	723	self htmlRevisionDocOf:aClass to:s.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	724	].
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	725	s nextPutLine:'</dl>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	726
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	727	authorLines notNil ifTrue:[
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	728	s nextPutLine:'<dl><dt><a name="AUTHOR"><b>Author:</b></A>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	729	authorLines do:[:l\|
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	730	s nextPutLine:'<dd><b>', l , '</b>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	731	].
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	732	s nextPutLine:'</dl>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	733	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	734
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	735	s nextPutLine:'<hr>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	736
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	737	docu notNil ifTrue:[
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	738	s nextPutLine:'<h2><a name="DESCRIPTION" href="#I_DESCRIPTION">Description:</A></h2>'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	739	s nextPutLine:'<BR>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	740
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	741	s nextPutLine:'<pre>'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	742	s nextPutLine:docu.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	743	s nextPutLine:'</pre>'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	744	s nextPutLine:'<hr>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	745	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	746
540 c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	747	warnLines notNil ifTrue:[
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	748	s nextPutLine:'<h2><a name="WARNING" href="#I_WARNING">Warning:</A></h2>'.
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	749	s nextPutLine:'<BR>'.
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	750
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	751	s nextPutLine:'<pre>'.
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	752	firstIndent := warnLines first leftIndent.
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	753
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	754	warnLines do:[:aLine \|
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	755	aLine leftIndent >= firstIndent ifTrue:[
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	756	s nextPutLine:(aLine copyFrom:firstIndent+1)
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	757	] ifFalse:[
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	758	s nextPutLine:aLine
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	759	].
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	760	].
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	761	s nextPutLine:'</pre>'.
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	762	s nextPutLine:'<hr>'.
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	763	].
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	764
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	765	hintLines notNil ifTrue:[
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	766	s nextPutLine:'<h2><a name="HINTS" href="#I_HINTS">Hints:</A></h2>'.
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	767	s nextPutLine:'<BR>'.
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	768
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	769	s nextPutLine:'<pre>'.
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	770	firstIndent := hintLines first leftIndent.
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	771
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	772	hintLines do:[:aLine \|
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	773	aLine leftIndent >= firstIndent ifTrue:[
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	774	s nextPutLine:(aLine copyFrom:firstIndent+1)
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	775	] ifFalse:[
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	776	s nextPutLine:aLine
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	777	].
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	778	].
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	779	s nextPutLine:'</pre>'.
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	780	s nextPutLine:'<hr>'.
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	781	].
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	782
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	783	"/
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	784	"/ see also
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	785	"/
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	786	refLines notNil ifTrue:[
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	787	s nextPutLine:'<h2><a name="SEEALSO" href="#I_SEEALSO">Related information:</A></h2>'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	788	s nextPutLine:'<pre>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	789	refLines do:[:l \|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	790	\|nm href\|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	791
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	792	s nextPutAll:' '.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	793
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	794	l isString ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	795	nm := (l copyFrom:2 to:(l indexOf:$:)-1) withoutSpaces.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	796	href := (l copyFrom:(l indexOf:$:)+1 to:(l size - 1)) withoutSpaces.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	797	(href startsWith:'man:') ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	798	href := (href copyFrom:5) withoutSpaces.
500 6d178e68a833 checkin from browser Claus Gittinger <cg@exept.de> parents: 499 diff changeset	799	s nextPutAll:'<a INFO="show man page" href="../misc/onlyInSTX2.html" action="html:' , self name , ' manPageFor:''' , href , '''">[<I>' , nm , '</I>]</A>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	800	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	801	(href startsWith:'html:') ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	802	href := (href copyFrom:6) withoutSpaces.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	803	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	804	s nextPutAll:'<a href="../' , href , '">[<I>' , nm , '</I>]</a>'.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	805	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	806	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	807	l do:[:ref \|
523 6a986fe180df handle namespaces Claus Gittinger <cg@exept.de> parents: 511 diff changeset	808	\|realRef ns\|
6a986fe180df handle namespaces Claus Gittinger <cg@exept.de> parents: 511 diff changeset	809
542 b0972fbbd826 category change Claus Gittinger <cg@exept.de> parents: 541 diff changeset	810	(ref includesMatchCharacters) ifTrue:[
541 095de1529e29 allow matchPatterns in related information Claus Gittinger <cg@exept.de> parents: 540 diff changeset	811	s nextPutAll:'<a INFO="show documentation of ' , ref , '" href="../misc/onlyInSTX2.html" action="html:' , self name , ' htmlClassesMatching:''' , ref , ''' backTo:nil">' , ref , '</A>'.
095de1529e29 allow matchPatterns in related information Claus Gittinger <cg@exept.de> parents: 540 diff changeset	812	] ifFalse:[
095de1529e29 allow matchPatterns in related information Claus Gittinger <cg@exept.de> parents: 540 diff changeset	813	realRef := ref.
095de1529e29 allow matchPatterns in related information Claus Gittinger <cg@exept.de> parents: 540 diff changeset	814	(ns := aClass nameSpace) notNil ifTrue:[
095de1529e29 allow matchPatterns in related information Claus Gittinger <cg@exept.de> parents: 540 diff changeset	815	(ns at:realRef asSymbol) notNil ifTrue:[
095de1529e29 allow matchPatterns in related information Claus Gittinger <cg@exept.de> parents: 540 diff changeset	816	realRef := ns name , '::' , realRef
095de1529e29 allow matchPatterns in related information Claus Gittinger <cg@exept.de> parents: 540 diff changeset	817	]
095de1529e29 allow matchPatterns in related information Claus Gittinger <cg@exept.de> parents: 540 diff changeset	818	].
095de1529e29 allow matchPatterns in related information Claus Gittinger <cg@exept.de> parents: 540 diff changeset	819	s nextPutAll:'<a INFO="show documentation of ' , realRef , '" href="../misc/onlyInSTX2.html" action="html:' , self name , ' htmlDocOf:' , realRef , '">' , ref , '</A>'.
095de1529e29 allow matchPatterns in related information Claus Gittinger <cg@exept.de> parents: 540 diff changeset	820	s nextPutAll:' '.
095de1529e29 allow matchPatterns in related information Claus Gittinger <cg@exept.de> parents: 540 diff changeset	821	]
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	822	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	823	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	824	s cr.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	825	].
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	826	s nextPutLine:'</pre>'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	827	s nextPutLine:'<hr>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	828	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	829
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	830
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	831	"/
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	832	"/ inst & classVars
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	833	"/ to be added
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	834
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	835
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	836	"/
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	837	"/ protocol
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	838	"/
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	839	self printOutHTMLProtocolOf:aClass on:s.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	840
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	841	"/
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	842	"/ subclasses (only for Object and Autoload)
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	843	"/
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	844	(aClass == Object or:[aClass == Autoload]) ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	845	subs := aClass subclasses
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	846	asOrderedCollection sort:[:a :b \| a name < b name].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	847
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	848	s nextPutLine:'<h2><a name="SUBCLASSES" href="#I_SUBCLASSES">Subclasses (direct subclasses only):</A></h2>'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	849	s nextPutLine:'<pre>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	850	subs do:[:cls \|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	851	\|nm\|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	852
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	853	nm := cls name.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	854	s nextPutAll:' '.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	855	cls isLoaded ifFalse:[
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	856	s nextPutLine:'<a INFO="show documentation of ' , nm , '" href="../misc/onlyInSTX2.html" action="html:' , nm , ' autoload. ',self name,' htmlDocOf:' , nm, '">' , nm , '</A>'
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	857	] ifTrue:[
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	858	s nextPutLine:'<a INFO="show documentation of ' , nm , '" href="../misc/onlyInSTX2.html" action="html:',self name,' htmlDocOf:' , nm , '">' , nm , '</A>'
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	859	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	860	].
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	861	s nextPutLine:'</pre>'; nextPutLine:'<hr>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	862	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	863
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	864	"/
499 0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	865	"/ private classes
0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	866	"/
0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	867	privateClasses size > 0 ifTrue:[
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	868	s nextPutLine:'<h2><a name="PRIVATECLASSES" href="#I_PRIVATECLASSES">Private classes:</A></h2>'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	869	s nextPutLine:'<pre>'.
499 0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	870	privateClasses do:[:cls \|
523 6a986fe180df handle namespaces Claus Gittinger <cg@exept.de> parents: 511 diff changeset	871	\|nm fullName\|
499 0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	872
0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	873	nm := cls nameWithoutPrefix.
523 6a986fe180df handle namespaces Claus Gittinger <cg@exept.de> parents: 511 diff changeset	874	fullName := cls owningClass name , '::' , nm.
499 0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	875	s nextPutAll:' '.
523 6a986fe180df handle namespaces Claus Gittinger <cg@exept.de> parents: 511 diff changeset	876	s nextPutLine:'<a INFO="show documentation of ' , fullName , '" href="../misc/onlyInSTX2.html" action="html:',self name,' htmlDocOf:' , fullName , '">' , nm , '</A>'
499 0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	877	].
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	878	s nextPutLine:'</pre>'; nextPutLine:'<hr>'.
499 0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	879	].
0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	880
0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	881	"/
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	882	"/ demonstration
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	883	"/
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	884	demoLines notNil ifTrue:[
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	885	s nextPutLine:'<h2><a name="DEMOSTARTUP" href="#I_DEMOSTARTUP">Demonstration:</A></h2>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	886	demoLines do:[:l \|
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	887	s nextPutLine:'<a INFO="demonstration" type="example">'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	888	s nextPutLine:'<code><pre>'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	889	s nextPutLine:' ' , l withoutSeparators.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	890	s nextPutLine:'</pre></code>'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	891	s nextPutLine:'</a>'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	892	s nextPutLine:'<br>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	893	].
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	894	s nextPutLine:'<hr>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	895	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	896
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	897	"/
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	898	"/ add examples if there are any
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	899	"/
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	900	examples notNil ifTrue:[
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	901	s nextPutLine:'<h2><a name="EXAMPLES" href="#I_EXAMPLES">Examples:</A></h2>'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	902	s nextPutLine:'<BR>'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	903	s nextPutLine:'<code><pre>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	904	examples do:[:line \|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	905	line withoutSeparators = '[exBegin]' ifTrue:[
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	906	s nextPutLine:'<a INFO="execute the example" type="example">'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	907	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	908	line withoutSeparators = '[exEnd]' ifTrue:[
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	909	s nextPutLine:'</a>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	910	] ifFalse:[
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	911	s nextPutLine:line
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	912	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	913	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	914	].
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	915	s nextPutLine:'</pre></code>'; nextPutLine:'<hr>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	916	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	917
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	918
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	919	s nextPutLine:'</body>'; nextPutLine:'</html>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	920
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	921	wasLoaded ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	922	aClass unload
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	923	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	924
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	925	^ s contents
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	926
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	927	"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	928	self htmlDocOf:Object
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	929	self htmlDocOf:Array
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	930	self htmlDocOf:Filename
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	931	self htmlDocOf:Block
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	932	"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	933
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	934	"Created: 24.4.1996 / 15:01:59 / cg"
542 b0972fbbd826 category change Claus Gittinger <cg@exept.de> parents: 541 diff changeset	935	"Modified: 11.1.1997 / 19:43:23 / cg"
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	936	!
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	937
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	938	htmlDocOf:aClass backRef:backRef
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	939	^ self htmlDocOf:aClass back:nil backRef:backRef
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	940
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	941	"Modified: 24.4.1996 / 15:02:52 / cg"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	942	"Created: 24.4.1996 / 15:03:25 / cg"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	943	!
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	944
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	945	htmlDocOfImplementorsOf:selector
492 1b5153fd52a5 removed unused vars Claus Gittinger <cg@exept.de> parents: 478 diff changeset	946	\|sel s\|
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	947
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	948	sel := (selector copy
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	949	replChar:$< withString:'<')
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	950	replChar:$> withString:'>'.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	951
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	952	s := '' writeStream.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	953
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	954	s nextPutLine:'<html><head><title>'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	955	s nextPutLine:sel.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	956	s nextPutLine:'</title></head>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	957
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	958	s nextPutLine:'<body>'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	959	s nextPutLine:'<a NOPRINT HREF="TOP.html"> <IMG SRC="../icons/DocsUpArrow.gif" ALT="back"></A>'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	960	s nextPutLine:'<hr>'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	961	s nextPutAll:'<h1>'; nextPutAll:sel; nextPutAll:'</h1>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	962
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	963	s nextPutLine:'<dl>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	964
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	965	sel := selector asSymbol.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	966	Smalltalk allClassesDo:[:cls \|
499 0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	967	cls isPrivate ifFalse:[
0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	968	(cls implements:sel) ifTrue:[
0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	969	self printOutHTMLMethodProtocol:(cls compiledMethodAt:sel)
0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	970	on:s showClassName:true classRef:true.
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	971	s nextPutLine:'<p>'.
499 0aa38b586bd3 care for private classes Claus Gittinger <cg@exept.de> parents: 498 diff changeset	972	]
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	973	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	974	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	975
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	976	s nextPutLine:'</dl>'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	977	s nextPutLine:'</body></html>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	978
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	979	^ s contents
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	980
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	981	"Created: 22.4.1996 / 20:03:31 / cg"
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	982	"Modified: 9.11.1996 / 00:34:30 / cg"
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	983	!
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	984
530 d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	985	htmlRevisionDocOf:aClass to:s
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	986	\|revInfo pckgInfo text path\|
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	987
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	988	revInfo := aClass revisionInfo.
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	989	pckgInfo := aClass packageSourceCodeInfo.
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	990
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	991	s nextPutLine:'<dl><dt><a name="VERSION"><b>Version:</b></A>'.
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	992
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	993	(revInfo isNil and:[pckgInfo isNil]) ifTrue:[
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	994	s nextPutLine:'<dd>no revision info'.
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	995	] ifFalse:[
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	996
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	997	revInfo isNil ifTrue:[revInfo := IdentityDictionary new].
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	998	pckgInfo isNil ifTrue:[pckgInfo := IdentityDictionary new].
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	999
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1000	s nextPutLine:'<dd>rev: <b>'.
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1001
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1002	"/ fetch the revision-info; prefer revisionInfo
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1003	text := revInfo at:#revision ifAbsent:(pckgInfo at:#revision ifAbsent:'?').
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1004	s nextPutLine:text.
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1005
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1006	"/ fetch the date & time; prefer revisionInfo
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1007	text := revInfo at:#date ifAbsent:(pckgInfo at:#date ifAbsent:'?').
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1008	s nextPutAll:'</b> date: <b>' , text.
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1009	text := revInfo at:#time ifAbsent:(pckgInfo at:#time ifAbsent:'?').
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1010	s nextPutLine:' ', text , '</b>'.
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1011
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1012	text := revInfo at:#user ifAbsent:(pckgInfo at:#user ifAbsent:'?').
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1013	s nextPutLine:'<dd>user: <b>' , text , '</b>'.
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1014
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1015	text := revInfo at:#fileName ifAbsent:(pckgInfo at:#fileNamer ifAbsent:'?').
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1016	s nextPutAll:'<dd>file: <b>' , text.
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1017
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1018	text := revInfo at:#directory ifAbsent:(pckgInfo at:#directory ifAbsent:nil).
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1019	text isNil ifTrue:[
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1020	path := revInfo at:#repositoryPathName ifAbsent:(pckgInfo at:#repositoryPathName ifAbsent:nil).
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1021	path notNil ifTrue:[
548 f5b7b050ce01 dont ask SourceCodeManager, if there is none Claus Gittinger <cg@exept.de> parents: 542 diff changeset	1022	SourceCodeManager notNil ifTrue:[
f5b7b050ce01 dont ask SourceCodeManager, if there is none Claus Gittinger <cg@exept.de> parents: 542 diff changeset	1023	text := SourceCodeManager directoryFromContainerPath:path.
f5b7b050ce01 dont ask SourceCodeManager, if there is none Claus Gittinger <cg@exept.de> parents: 542 diff changeset	1024	].
530 d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1025	text isNil ifTrue:[text := '?'].
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1026	] ifFalse:[
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1027	text := '?'
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1028	]
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1029	].
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1030	s nextPutLine:'</b> directory: <b>' , text , '</b>'.
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1031
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1032	text := revInfo at:#module ifAbsent:(pckgInfo at:#module ifAbsent:nil).
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1033	text isNil ifTrue:[
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1034	path := revInfo at:#repositoryPathName ifAbsent:(pckgInfo at:#repositoryPathName ifAbsent:nil).
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1035	path notNil ifTrue:[
548 f5b7b050ce01 dont ask SourceCodeManager, if there is none Claus Gittinger <cg@exept.de> parents: 542 diff changeset	1036	SourceCodeManager notNil ifTrue:[
f5b7b050ce01 dont ask SourceCodeManager, if there is none Claus Gittinger <cg@exept.de> parents: 542 diff changeset	1037	text := SourceCodeManager moduleFromContainerPath:path.
f5b7b050ce01 dont ask SourceCodeManager, if there is none Claus Gittinger <cg@exept.de> parents: 542 diff changeset	1038	].
530 d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1039	text isNil ifTrue:[text := '?'].
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1040	] ifFalse:[
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1041	text := '?'
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1042	]
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1043	].
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1044	s nextPutAll:'<dd>module: <b>' , text.
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1045
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1046	text := revInfo at:#library ifAbsent:(pckgInfo at:#library ifAbsent:'none').
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1047	s nextPutLine:'</b> stc-classLibrary: <b>' , text , '</b>'.
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1048	].
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1049
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1050	"Created: 8.1.1997 / 13:43:28 / cg"
548 f5b7b050ce01 dont ask SourceCodeManager, if there is none Claus Gittinger <cg@exept.de> parents: 542 diff changeset	1051	"Modified: 23.1.1997 / 14:08:24 / cg"
530 d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1052	!
d27016ae003f try harder to extract some source info (module & directory) Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1053
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1054	htmlSelectorList
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1055	\|selectors\|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1056
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1057	selectors := IdentitySet new.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1058	Smalltalk allClassesDo:[:cls \|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1059	selectors addAll:cls methodDictionary keys.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1060	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1061	selectors := selectors asOrderedCollection sort.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1062
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1063	^ self htmlSelectors:selectors title:('All selectors:').
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1064
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1065	"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1066	self htmlSelectorList
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1067	"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1068
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1069	"Modified: 22.4.1996 / 12:48:45 / cg"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1070	"Created: 22.4.1996 / 20:03:31 / cg"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1071	"Modified: 5.6.1996 / 12:27:09 / stefan"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1072	!
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1073
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1074	htmlSelectorListMatching:pattern
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1075	\|selectors\|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1076
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1077	selectors := IdentitySet new.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1078	Smalltalk allClassesDo:[:cls \|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1079	cls methodDictionary keysDo:[:sel \|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1080	(pattern match:sel) ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1081	selectors add:sel.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1082	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1083	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1084	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1085	selectors := selectors asOrderedCollection sort.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1086
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1087	^ self htmlSelectors:selectors title:('Selectors matching ''' , pattern , ''':').
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1088
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1089	"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1090	self htmlSelectorListMatching:'do'
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1091	"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1092
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1093	"Modified: 22.4.1996 / 17:11:56 / cg"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1094	"Created: 22.4.1996 / 20:03:31 / cg"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1095	"Modified: 5.6.1996 / 12:29:27 / stefan"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1096	!
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1097
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1098	htmlSelectorListPrefix:prefix
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1099	\|selectors\|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1100
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1101	selectors := IdentitySet new.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1102	Smalltalk allClassesDo:[:cls \|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1103	cls methodDictionary keysDo:[:sel \|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1104	(sel startsWith:prefix) ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1105	selectors add:sel.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1106	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1107	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1108	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1109	selectors := selectors asOrderedCollection sort.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1110
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1111	^ self htmlSelectors:selectors title:('Selectors starting with ''' , prefix asString , ''':').
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1112
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1113	"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1114	self htmlSelectorListPrefix:'a'
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1115	"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1116
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1117	"Modified: 22.4.1996 / 19:57:50 / cg"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1118	"Created: 22.4.1996 / 20:03:31 / cg"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1119	"Modified: 5.6.1996 / 12:31:13 / stefan"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1120	!
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1121
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1122	htmlSelectors:selectors title:title
492 1b5153fd52a5 removed unused vars Claus Gittinger <cg@exept.de> parents: 478 diff changeset	1123	\|s\|
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1124
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1125	s := '' writeStream.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1126
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	1127	s nextPutLine:'<html><head><title>'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	1128	s nextPutLine:title.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	1129	s nextPutLine:'</title></head>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1130
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	1131	s nextPutLine:'<body>'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	1132	s nextPutLine:'<a NOPRINT HREF="TOP.html"> <IMG SRC="../icons/DocsUpArrow.gif" ALT="back"></A>'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	1133	s nextPutLine:'<hr>'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	1134	s nextPutAll:'<h1>'; nextPutAll:title; nextPutAll:'</h1>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1135
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	1136	s nextPutLine:'<ul>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1137
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1138	selectors do:[:sel \|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1139	\|nm\|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1140
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1141	nm := (sel copy replChar:$< withString:'<')
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1142	replChar:$> withString:'>'.
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	1143	s nextPutLine:'<li><a href="../misc/onlyInSTX2.html" action="html:',self name,' htmlDocOfImplementorsOf:''' , nm , '''">' , nm , '</A>'
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1144	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1145
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	1146	s nextPutLine:'</ul>'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	1147	s nextPutLine:'</body></html>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1148
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1149	^ s contents
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1150
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1151	"Created: 22.4.1996 / 20:03:31 / cg"
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	1152	"Modified: 9.11.1996 / 00:34:38 / cg"
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1153	!
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1154
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1155	manPageFor:aCommand
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1156	"q&d hack to convert man output to html"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1157
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1158	^ self
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1159	manPageFor:aCommand
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1160	inSection:nil
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1161
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1162	"Modified: 9.9.1996 / 17:45:29 / cg"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1163	!
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1164
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1165	manPageFor:aCommand inSection:sectionOrNil
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1166	"q&d hack to convert man output to html"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1167
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1168	\|manCmd\|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1169
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1170	sectionOrNil isNil ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1171	manCmd := 'man ' , aCommand
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1172	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1173	manCmd := 'man ' , sectionOrNil printString , ' ' , aCommand
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1174	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1175	^ self
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1176	manPageFor:aCommand
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1177	manCommand:manCmd.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1178
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1179	"Created: 9.9.1996 / 17:45:08 / cg"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1180	"Modified: 9.9.1996 / 17:48:29 / cg"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1181	!
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1182
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1183	manPageFor:aCommand manCommand:manCommand
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1184	"q&d hack to convert man output to html"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1185
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1186	\|s t outStream state ch keep\|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1187
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1188	s := PipeStream readingFrom:manCommand.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1189	s notNil ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1190	outStream := '' writeStream.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1191	state := nil.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1192	keep := nil.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1193	[s atEnd] whileFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1194	ch := s next.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1195
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1196	ch notNil ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1197	state == nil ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1198	ch == Character backspace ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1199	state := #back
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1200	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1201	keep notNil ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1202	keep == $< ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1203	outStream nextPutAll:'<'.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1204	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1205	outStream nextPut:keep.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1206	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1207	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1208	keep := ch
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1209	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1210	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1211	state == #back ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1212	ch == keep ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1213	outStream nextPutAll:'<b>'.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1214	ch == $< ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1215	outStream nextPutAll:'<'.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1216	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1217	outStream nextPut:ch.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1218	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1219	outStream nextPutAll:'</b>'.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1220	state := nil.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1221	keep := nil.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1222	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1223	ch == $_ ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1224	keep notNil ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1225	outStream nextPutAll:'<i>'.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1226	keep == $< ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1227	outStream nextPutAll:'<'.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1228	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1229	outStream nextPut:keep.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1230	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1231	outStream nextPutAll:'</i>'.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1232	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1233	state := nil.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1234	keep := nil.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1235	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1236	keep == $_ ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1237	outStream nextPutAll:'<i>'.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1238	ch == $< ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1239	outStream nextPutAll:'<'.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1240	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1241	outStream nextPut:ch.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1242	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1243	outStream nextPutAll:'</i>'.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1244	state := nil.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1245	keep := nil.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1246	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1247	keep notNil ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1248	keep == $< ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1249	outStream nextPutAll:'<'.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1250	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1251	outStream nextPut:keep.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1252	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1253	ch == $< ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1254	outStream nextPutAll:'<'.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1255	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1256	outStream nextPut:ch.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1257	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1258	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1259	state := nil.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1260	keep := nil.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1261	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1262	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1263	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1264	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1265	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1266	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1267	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1268
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1269	keep notNil ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1270	keep == $< ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1271	outStream nextPutAll:'<'.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1272	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1273	outStream nextPut:keep
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1274	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1275	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1276	t := outStream contents.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1277	s shutDown.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1278	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1279
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1280	(t isNil or:[t isEmpty]) ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1281	^ '
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1282	No manual page for "<CODE><B>' , aCommand , '</B></CODE>" available.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1283	<BR>
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1284	(the failed command was: "<CODE>' , manCommand , '"</CODE>.)
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1285	'.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1286	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1287
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1288	^ '
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1289	<pre>
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1290	' , t , '
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1291	</pre>
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1292	'
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1293
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1294	"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1295	self manPageFor:'cvs'
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1296	"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1297
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1298	"Modified: 28.6.1996 / 21:28:47 / stefan"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1299	"Created: 9.9.1996 / 17:43:16 / cg"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1300	"Modified: 9.9.1996 / 17:58:00 / cg"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1301	!
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1302
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1303	printOutHTMLCategoryProtocol:aCategory of:aClass on:aStream
523 6a986fe180df handle namespaces Claus Gittinger <cg@exept.de> parents: 511 diff changeset	1304	\|any dict selectors methods shortName\|
6a986fe180df handle namespaces Claus Gittinger <cg@exept.de> parents: 511 diff changeset	1305
6a986fe180df handle namespaces Claus Gittinger <cg@exept.de> parents: 511 diff changeset	1306	shortName := aClass nameWithoutPrefix.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1307
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1308	dict := aClass methodDictionary.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1309
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1310	dict notNil ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1311	any := false.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1312	dict do:[:aMethod \|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1313	(aCategory = aMethod category) ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1314	any := true
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1315	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1316	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1317
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1318	any ifTrue:[
523 6a986fe180df handle namespaces Claus Gittinger <cg@exept.de> parents: 511 diff changeset	1319	aStream nextPutLine:'<a name="' , shortName , '_category_' , aCategory ,
6a986fe180df handle namespaces Claus Gittinger <cg@exept.de> parents: 511 diff changeset	1320	'" href="#I_' , shortName , '_category_' , aCategory ,
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	1321	'"><b>' , aCategory , '</b></A>'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	1322	aStream nextPutLine:'<dl>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1323
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1324	selectors := dict keys asArray.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1325	methods := dict values.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1326	selectors sortWith:methods.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1327	methods do:[:aMethod \|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1328	(aCategory = aMethod category) ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1329	ErrorSignal catch:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1330	self printOutHTMLMethodProtocol:aMethod on:aStream.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1331	].
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	1332	aStream nextPutLine:'<p>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1333	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1334	].
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	1335	aStream nextPutLine:'</dl>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1336	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1337	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1338
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1339	"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1340	self printOutHTMLProtocolOf:Float on:Stdout
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1341	"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1342
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1343	"Created: 22.4.1996 / 20:03:30 / cg"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1344	"Modified: 5.6.1996 / 13:41:27 / stefan"
523 6a986fe180df handle namespaces Claus Gittinger <cg@exept.de> parents: 511 diff changeset	1345	"Modified: 30.12.1996 / 18:47:23 / cg"
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1346	!
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1347
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1348	printOutHTMLMethodProtocol:aMethod on:aStream
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1349	"given the source in aString, print the methods message specification
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1350	and any method comments - without source; used to generate documentation
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1351	pages"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1352
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1353	^ self printOutHTMLMethodProtocol:aMethod on:aStream showClassName:false classRef:false
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1354
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1355	"Modified: 22.4.1996 / 18:01:56 / cg"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1356	"Created: 22.4.1996 / 20:03:30 / cg"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1357	!
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1358
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1359	printOutHTMLMethodProtocol:aMethod on:aStream showClassName:showClassName classRef:withClassRef
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1360	"given the source in aString, print the methods message specification
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1361	and any method comments - without source; used to generate documentation
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1362	pages"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1363
492 1b5153fd52a5 removed unused vars Claus Gittinger <cg@exept.de> parents: 478 diff changeset	1364	\|comment cls sel partStream args argStream who methodSpecLine first
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1365	firstIndent firstNonEmpty isSubres isObsolete smallOrEmpty
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1366	ballColor\|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1367
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1368	who := aMethod who.
505 d8d7556d05ee use new Method>>who interface Claus Gittinger <cg@exept.de> parents: 500 diff changeset	1369	cls := who methodClass.
d8d7556d05ee use new Method>>who interface Claus Gittinger <cg@exept.de> parents: 500 diff changeset	1370	sel := who methodSelector.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1371	partStream := sel keywords readStream.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1372
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1373	(args := aMethod methodArgNames) notNil ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1374	argStream := aMethod methodArgNames readStream.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1375
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1376	methodSpecLine := ''. first := true.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1377	1 to:sel numArgs do:[:index \|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1378	first ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1379	first := false.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1380	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1381	methodSpecLine := methodSpecLine , ' '
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1382	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1383	methodSpecLine := methodSpecLine , '<B>' , partStream next , '</B>'.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1384	methodSpecLine := methodSpecLine , ' <I>' , argStream next , '</I>'.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1385	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1386	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1387	methodSpecLine := '<B>' , partStream next , '</B>'
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1388	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1389
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1390	isSubres := (aMethod sends:#subclassResponsibility).
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1391
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1392	isObsolete := false.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1393	((aMethod sends:#obsoleteMethodWarning)
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1394	or:[(aMethod sends:#obsoleteMethodWarning:)
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1395	or:[(aMethod sends:#obsoleteMethodWarning:from:)]]) ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1396	cls ~~ Object ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1397	isObsolete := true
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1398	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1399	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1400
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1401	smallOrEmpty := ''.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1402	aMethod isPrivate ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1403	methodSpecLine := '<i>private</I> ' , methodSpecLine.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1404	"/ smallOrEmpty := '-small'.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1405	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1406	aMethod isProtected ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1407	methodSpecLine := '<i>protected</I> ' , methodSpecLine.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1408	"/ smallOrEmpty := '-small'.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1409	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1410	aMethod isIgnored ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1411	methodSpecLine := '[ ' , methodSpecLine , ' ] (<i>invisible</I>)'.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1412	"/ smallOrEmpty := '-small'.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1413	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1414	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1415	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1416
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	1417	aStream nextPutLine:'<dt>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1418
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1419
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1420	cls isMeta ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1421	ballColor := 'yellow'
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1422	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1423	ballColor := 'red'
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1424	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1425
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	1426	aStream nextPutLine:'<img src="pictures/' , ballColor , '-ball' , smallOrEmpty , '.gif" width=6 height=6>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1427
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1428	sel := (sel copy
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1429	replChar:$< withString:'<')
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1430	replChar:$> withString:'>'.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1431
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1432	withClassRef ifTrue:[
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	1433	aStream nextPutLine:'<a name="' , cls name , '_' , sel ,
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1434	'" href="../misc/onlyInSTX2.html" action="html:',self name,' htmlDocOf:' , cls name ,
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	1435	'">' , cls name , '</a> ' , methodSpecLine.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1436	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1437	showClassName ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1438	methodSpecLine := cls name , ' ' , methodSpecLine
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1439	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1440
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	1441	aStream nextPutLine:'<a name="' , cls name , '_' , sel ,
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1442	"/ '" href="' , cls name , '_' , sel , '"' ,
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	1443	'>' , methodSpecLine , '</a>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1444	].
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	1445	aStream nextPutLine:'<dd>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1446
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1447	(comment := aMethod comment) notNil ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1448	comment := (comment copy
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1449	replChar:$< withString:'<')
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1450	replChar:$> withString:'>'.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1451
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1452	comment notEmpty ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1453	comment := comment asStringCollection.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1454	firstIndent := comment first leftIndent.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1455	firstIndent > 0 ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1456	comment := comment collect:[:line \|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1457	line leftIndent >= firstIndent ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1458	line copyFrom:firstIndent.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1459	] ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1460	line
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1461	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1462	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1463	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1464	firstNonEmpty := comment findFirst:[:line \| line notEmpty].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1465	firstNonEmpty > 1 ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1466	comment := comment copyFrom:firstNonEmpty
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1467	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1468	comment := comment asString.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1469	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1470
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1471	comment asStringCollection do:[:line \|
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	1472	aStream nextPutAll:line; nextPutLine:'<br>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1473	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1474	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1475
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1476	isSubres ifTrue:[
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	1477	aStream nextPutLine:'<BR>'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	1478	aStream nextPutLine:'<I> This method raises an error - it must be redefined in concrete classes </I>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1479	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1480	isObsolete ifTrue:[
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	1481	aStream nextPutLine:'<BR>'.
ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	1482	aStream nextPutLine:'<I> This is an obsolete interface - do not use it (it may vanish in future versions) </I>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1483	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1484
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1485	"Created: 22.4.1996 / 20:03:30 / cg"
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	1486	"Modified: 9.11.1996 / 00:36:04 / cg"
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1487	!
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1488
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1489	printOutHTMLProtocolOf:aClass on:aStream
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1490	\|collectionOfCategories any\|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1491
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1492	"/ self printOutDefinitionOn:aPrintStream.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1493
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1494	collectionOfCategories := aClass class categories.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1495	any := false.
523 6a986fe180df handle namespaces Claus Gittinger <cg@exept.de> parents: 511 diff changeset	1496
6a986fe180df handle namespaces Claus Gittinger <cg@exept.de> parents: 511 diff changeset	1497	collectionOfCategories size > 0 ifTrue:[
6a986fe180df handle namespaces Claus Gittinger <cg@exept.de> parents: 511 diff changeset	1498	collectionOfCategories := collectionOfCategories asOrderedCollection.
6a986fe180df handle namespaces Claus Gittinger <cg@exept.de> parents: 511 diff changeset	1499	collectionOfCategories remove:'documentation' ifAbsent:[].
6a986fe180df handle namespaces Claus Gittinger <cg@exept.de> parents: 511 diff changeset	1500	collectionOfCategories size > 0 ifTrue:[
6a986fe180df handle namespaces Claus Gittinger <cg@exept.de> parents: 511 diff changeset	1501	collectionOfCategories sort.
6a986fe180df handle namespaces Claus Gittinger <cg@exept.de> parents: 511 diff changeset	1502	aStream nextPutLine:'<h2><a name="CLASSPROTOCOL" href="#I_CLASSPROTOCOL">Class protocol:</A></h2>'.
6a986fe180df handle namespaces Claus Gittinger <cg@exept.de> parents: 511 diff changeset	1503	collectionOfCategories do:[:aCategory \|
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1504	self printOutHTMLCategoryProtocol:aCategory of:aClass class on:aStream.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1505	any := true.
523 6a986fe180df handle namespaces Claus Gittinger <cg@exept.de> parents: 511 diff changeset	1506	].
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1507	"/ any ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1508	"/ aStream nextPutAll:'no new protocol'
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1509	"/ ].
523 6a986fe180df handle namespaces Claus Gittinger <cg@exept.de> parents: 511 diff changeset	1510	aStream nextPutLine:'<hr>'.
6a986fe180df handle namespaces Claus Gittinger <cg@exept.de> parents: 511 diff changeset	1511	]
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1512	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1513
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1514
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1515	collectionOfCategories := aClass categories.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1516	any := false.
523 6a986fe180df handle namespaces Claus Gittinger <cg@exept.de> parents: 511 diff changeset	1517	collectionOfCategories size > 0 ifTrue:[
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1518	collectionOfCategories := collectionOfCategories asOrderedCollection sort.
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	1519	aStream nextPutLine:'<h2><a name="INSTANCEPROTOCOL" href="#I_INSTANCEPROTOCOL">Instance protocol:</A></h2>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1520	collectionOfCategories do:[:aCategory \|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1521	self printOutHTMLCategoryProtocol:aCategory of:aClass on:aStream
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1522	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1523	"/ any ifFalse:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1524	"/ aStream nextPutAll:'no new protocol'
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1525	"/ ].
511 ef2631a2cc1c use #nextPutLine instead of #nextPutAll; #cr Claus Gittinger <cg@exept.de> parents: 505 diff changeset	1526	aStream nextPutLine:'<hr>'.
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1527	]
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1528
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1529	"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1530	self printOutHTMLProtocolOf:Float on:Stdout
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1531	"
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1532
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1533	"Created: 22.4.1996 / 20:03:30 / cg"
523 6a986fe180df handle namespaces Claus Gittinger <cg@exept.de> parents: 511 diff changeset	1534	"Modified: 30.12.1996 / 19:06:50 / cg"
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1535	! !
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1536
498 ebdb7d336154 ignore private classes Claus Gittinger <cg@exept.de> parents: 492 diff changeset	1537	!HTMLDocGenerator class methodsFor:'helpers'!
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1538
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1539	extractSpecial:pattern from:docu
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1540	"given a collection of docu lines (from documentation methods comment),
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1541	extract things like [see also:], [author:] etc.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1542	If found, remove the lines from the string collection,
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1543	and return the extracted ones. Otherwise return nil."
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1544
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1545	\|srchIdx idx lines l\|
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1546
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1547	srchIdx := docu findFirst:[:l \| l asLowercase withoutSeparators = pattern].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1548	srchIdx ~~ 0 ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1549	lines := OrderedCollection new.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1550
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1551	idx := srchIdx+1.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1552	[idx <= docu size] whileTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1553	l := docu at:idx.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1554	(l isNil or:[l withoutSeparators size == 0]) ifTrue:[
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1555	idx := docu size + 1.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1556	] ifFalse:[
540 c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1557	l withoutSeparators = '\' ifTrue:[
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1558	l := ''
c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1559	].
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1560	lines add:l
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1561	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1562	idx := idx + 1.
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1563	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1564
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1565	docu removeFromIndex:srchIdx toIndex:srchIdx+lines size
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1566	].
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1567	^ lines
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1568
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1569	"Created: 25.4.1996 / 14:16:01 / cg"
540 c20e12db0340 added optional Warning & Hints sections Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1570	"Modified: 11.1.1997 / 13:03:38 / cg"
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1571	! !
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1572
498 ebdb7d336154 ignore private classes Claus Gittinger <cg@exept.de> parents: 492 diff changeset	1573	!HTMLDocGenerator class methodsFor:'documentation'!
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1574
40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1575	version
553 b8fb01c3bd70 checkin from browser Claus Gittinger <cg@exept.de> parents: 552 diff changeset	1576	^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.16 1997-03-02 11:01:42 cg Exp $'
478 40d6c6e66852 moved files into extra directory Claus Gittinger <cg@exept.de> parents: diff changeset	1577	! !

author	Claus Gittinger <cg@exept.de>
	Sun, 02 Mar 1997 12:01:42 +0100
changeset 553	b8fb01c3bd70
parent 552	5df51108aa3e
child 569	a28e63358685
permissions	-rw-r--r--