The Trunk: System-kfr.1022.mcz

Karl Ramberg uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-kfr.1022.mcz

==================== Summary ====================

Name: System-kfr.1022
Author: kfr
Time: 3 May 2018, 8:03:36.590229 pm
UUID: 53fd1f63-34eb-f24e-ac23-99850d5b6f09
Ancestors: System-eem.1021

Class needed for bringing in old projects.

=============== Diff against System-eem.1021 ===============

Item was added:
+ ClassCategoryReader subclass: #RenamedClassSourceReader
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'System-Object Storage'!

Item was added:
+ ----- Method: RenamedClassSourceReader class>>formerClassName:methodsFor:stamp: (in category 'as yet unclassified') -----
+ formerClassName: formerClassName methodsFor: aCategory stamp: aString
+
+ ^self new
+ setClass: formerClassName
+ category: aCategory
+ changeStamp: aString!

Item was added:
+ ----- Method: RenamedClassSourceReader class>>scanner (in category 'as yet unclassified') -----
+ scanner
+
+ ^self new!

Item was added:
+ ----- Method: RenamedClassSourceReader>>scanFrom: (in category 'as yet unclassified') -----
+ scanFrom: aStream
+
+ self flag: #bob. "should this ever happen?"
+ self halt.!

Item was added:
+ ----- Method: RenamedClassSourceReader>>scanFromNoCompile: (in category 'as yet unclassified') -----
+ scanFromNoCompile: aStream
+
+ self flag: #bob. "should this ever happen?"
+ self halt.!

Item was added:
+ ----- Method: RenamedClassSourceReader>>scanFromNoCompile:forSegment: (in category 'as yet unclassified') -----
+ scanFromNoCompile: aStream forSegment: anImageSegment
+ "Just move the source code for the methods from aStream."
+ | methodText d |
+
+ [
+ (methodText _ aStream nextChunkText) size > 0
+ ] whileTrue: [
+ (SourceFiles at: 2) ifNotNil: [
+ d _ Dictionary new.
+ d
+ at: #oldClassName put: class; "may be 'Player1' or 'Player1 class'"
+ at: #methodText put: methodText;
+ at: #changeStamp put: changeStamp;
+ at: #category put: category.
+ anImageSegment acceptSingleMethodSource: d.
+ ]
+ ]!