I provide an inert model of a Class, used by FileContentsBrowser to manipulate filedout code. Instead of a method dictionary or selectors onto CompiledMethods, I have a dictionary ("source") of selectors onto ChangeRecords, which were, in the case of FileContentsBrowser, parsed from a source or change set file.

	categories
	removeCategory: removedCategoryName whichCategoryIncludesSelector:

	class
	classComment: classPool comment comment: commentString commentString: definition definition: metaClass renameTo: sharedPools

	errors
	classNotDefined

	fileIn/fileOut
	fileIn fileInCategory: fileInDefinition fileInMethod: fileInMethods fileInMethods: fileOut fileOutCategory: fileOutDefinitionOn: fileOutMethod: fileOutMethods:on: fileOutMethodsOn: fileOutOn:

	methods
	addMethodChange: methodChange: removeMethod: removeSelector: selectors sourceCode sourceCodeAt: sourceCodeAt:put: sourceCodeTemplate stampAt:

	printing
	literalScannedAs:notifying:

	private
	allSubclassesWithLevelDo:startingLevel: confirmRemovalOf: evaluate: makeSureClassExists: makeSureSuperClassExists: parserClass

	removing
	removeAllUnmodified removeUnmodifiedMethods:

	testing
	exists hasChanges hasComment hasDefinition hasMetaclass isMetaClass nameExists needsInitialize

	testing method dictionary
	scopeHas:ifTrue:

	accessing	top
	allInstVarNames
	allSuperclasses
	compilerClass
	fullName
	name Answer a name for the receiver. This is used generically in the title of certain inspectors, such as the referred-to inspector, and specificially by various subsystems. By default, we let the object just print itself out..
	name:
	organization
	realClass
	theNonMetaClass Sent to a class or metaclass, always return the class

	categories	top
	removeCategory:
	removedCategoryName
	whichCategoryIncludesSelector: Answer the category of the argument, aSelector, in the organization of the receiver, or answer nil if the receiver does not inlcude this selector.

	class	top
	classComment:
	classPool
	comment
	comment:
	commentString
	commentString:
	definition
	definition:
	metaClass
	renameTo:
	sharedPools

	errors	top
	classNotDefined

	fileIn/fileOut	top
	fileIn FileIn the receiver
	fileInCategory:
	fileInDefinition
	fileInMethod:
	fileInMethods
	fileInMethods: FileIn all methods with selectors taken from aCollection
	fileOut
	fileOutCategory:
	fileOutDefinitionOn:
	fileOutMethod:
	fileOutMethods:on: FileOut all methods with selectors taken from aCollection
	fileOutMethodsOn:
	fileOutOn: FileOut the receiver

	methods	top
	addMethodChange:
	methodChange:
	removeMethod:
	removeSelector:
	selectors
	sourceCode
	sourceCodeAt:
	sourceCodeAt:put:
	sourceCodeTemplate
	stampAt:

	printing	top
	literalScannedAs:notifying:

	private	top
	allSubclassesWithLevelDo:startingLevel:
	confirmRemovalOf:
	evaluate:
	makeSureClassExists:
	makeSureSuperClassExists:
	parserClass

	removing	top
	removeAllUnmodified
	removeUnmodifiedMethods:

	testing	top
	exists
	hasChanges
	hasComment
	hasDefinition
	hasMetaclass
	isMetaClass
	nameExists
	needsInitialize

	testing method dictionary	top
	scopeHas:ifTrue: