Class Class

fileTo: aFile

  aFile write: 'EVAL Class addNewClass: ( ' + parentClass name + ' subclass: ' + $' asString +

	name + $' asString + ' variables: ' + $' asString + variables asString

	+ $' asString + ' classVariables: ' +$' asString +

	self class variables asString + $' asString + ')' + Char newline asString.

  methods do: [:m | aFile write: 'METHOD ' + name + Char newline asString +

   m text + Char newline asString + '!' + Char newline asString].

  self class methods do: [:m | aFile write: 'META ' + name + Char newline asString +

    m text + Char newline asString + '!' + Char newline asString].

  ^ 'File out successful'