Class Athenadoc

back
createInFolderNamed: aFolderName

	| mFile |

	folderName := aFolderName.

	mFile := File openWrite: folderName, '/', 'Athena.html'.

	mFile write: ''.

	mFile write: ''.

	mFile write: 'The Athena Smalltalk System
'.

	Class classes do: [:each| 

		self createForClass: each.

		mFile write: '', each name, '
'].

	mFile write: ''.

	mFile write: ''