"July 4, 2002 -> 11:38:15"!

! (Delta mirrorFor: #Class) methodsFor: 'file-in compatibility' !
subclass: clsName <Symbol>
instanceVariableNames: iVars <Str>
classVariableNames: cVars <Str>
poolDictionaries: pVars <Str>
category: cat <Str>
^<Class>

	| mirror <ClassMirror> |
	[ pVars isEmpty ] verify.
	mirror := Class subclassOf: self name instanceVariables: iVars.
	Delta define: clsName as: mirror.
	^mirror reflectee! !

"July 4, 2002 -> 11:43:48"!

! (Delta mirrorFor: #Class) methodsFor: 'file-in compatibility' !
subclass: clsName <Symbol>
instanceVariableNames: iVars <Str>
classVariableNames: cVars <Str>
poolDictionaries: pVars <Str>
^<Class>

	^self subclass: clsName
		instanceVariableNames: iVars
		classVariableNames: cVars
		poolDictionaries: pVars
		category: ''! !

"July 4, 2002 -> 11:47:48"!

! (Delta mirrorFor: #ClassDescription) methodsFor: 'file-in compatibility' !
instanceVariableNames: clsIvars <Str>
	
	[ clsIvars isEmpty ] verify! !

"July 4, 2002 -> 11:47:52"!

! (Delta mirrorFor: #ClassDescription) methodsFor: 'file-in compatibility' !
methodsFor: category <String> stamp: stmp <Str> ^<DefinitionReader>

    ^self methodsFor: category! !

"July 4, 2002 -> 11:52:26"!

"System saved" !
"July 4, 2002 -> 11:55:26"!

! (Delta mirrorFor: #ClassDescription) methodsFor: 'file-in compatibility' !
methodsFor: category <String> ^<DefinitionReader>

    ^DefinitionReader for: (ClassMirror on: self name) category: category asSymbol! !

"July 4, 2002 -> 11:55:36"!

! (Delta mirrorFor: #ClassDescription) methodsFor: 'file-in compatibility' !
methodsFor: category <String> ^<DefinitionReader>

    ^DefinitionReader for: (ClassMirror on: self) category: category asSymbol! !

"July 4, 2002 -> 11:56:31"!


"July 4, 2002 -> 17:28:40"!

! (Delta mirrorFor: #Dictionary) methodsFor: 'private-subroutines for #tableAt:put:ifNew:' !
tableAt: key <K>
put: el <E>
inMatchingSlot: index <Int>
value: val <VarAssoc[K,E]>
^<VarAssoc[K,E]>

	val value: el.
	^val! !

"July 4, 2002 -> 17:31:2"!

"System saved" !