'From Squeak 2.4b of April 23, 1999 on 15 May 1999 at 1:46:46 pm'!
"Change Set:		Dandelion-patch
Date:			15 May 1999
Author:			Masashi Umezawa
PatchNo: 1

	-Class category links on 'Whole Index file' now point correct class category index pages


Copyright (C) 1999  Masashi Umezawa

	mail: umejava@mars.dti.ne.jp
	www: http://www.mars.dti.ne.jp/~umejava/

This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.(http://www.gnu.org)"!


!DlSimpleHtmlOutputter methodsFor: 'private-page part writing' stamp: 'M.U 5/15/1999 12:57'!
writeAnalyzableDescriptionLinkOn: aDlAnalyzable 
	| ana str prop ref anas sz |
	ana := aDlAnalyzable.
	str := self outStream.
	prop := self propertyList.
	ref := '..'.
	anas := ana parentAnalyzables.
	sz := anas size.
	ana isMethod ifTrue: [sz := sz - 1].
	1 to: sz do: [:idx | ref := ref , '/' , (anas at: idx) name].
	ana isClassCategory ifTrue: [ref := ref , '/', ana name, '/', prop classCategorySummaryName , prop htmlSuffix].
	ana isClass ifTrue: [ref := ref , '/' , ana name , prop htmlSuffix].
	ana isClassMember
		ifTrue: 
			[ref := ref , prop htmlSuffix.
			ref := ref , '#' , ana description , ' ' , ana name].
	ana isGlobalPool ifTrue:[ ref := '../', prop overviewName, prop htmlSuffix].
	ana isPool ifTrue:[ ref := '../', prop poolDirectoryName, '/', ana name, prop htmlSuffix].
	ana isGlobalVariable ifTrue:[ ref := '../', prop globalDirectoryName, '/', prop generalIndexName, prop htmlSuffix, '#', ana name].
	ana isPoolVariable ifTrue:[ ref := '../', prop poolDirectoryName, '/', ana pool name, prop htmlSuffix, '#', ana name].
	str anchorRef: ref with: ana name.! !