Class Athenadoc

createForClass: aClass

	| file mFile b methodFilename mm |

	file := File openWrite: folderName, '/', aClass name, '.html'.

	file write: '
Class ', aClass name, '

back
'.

	b := [:meth :class | 

			methodFilename := meth name printString.

			mm := (meth name = '/') ifTrue: ['div'] ifFalse: [methodFilename].

			methodFilename := aClass name, '_',  mm , '.html'. 

			file write: '', meth name printString, '
'.

			mFile := File openWrite: folderName, '/', methodFilename.

			mFile write: '
Class ', aClass name, '

back
'.

			mFile write: (self convertWhiteSpaces: meth text).

			mFile write: '
'].

	file write: '
instance methods

'.	

	aClass methods do: [:m| b value: m value: aClass].

	file write: '
class methods

'.	

	aClass class methods do: [:m| b value: m value: aClass class].

	file write: ''.