'From Cuis 1.0 of 2 July 2009 [latest update: #215] on 8 July 2009 at 12:20:57 pm'!

!ClassCategoryReader methodsFor: 'accessing' stamp: 'jmv 7/8/2009 12:19'!
changeStamp
	^changeStamp! !


!PositionableStream methodsFor: 'fileIn/Out' stamp: 'jmv 7/8/2009 12:20'!
copyPreamble: preamble from: aStream
	"Look for a changeStamp for this method by peeking backward.
	Write a method preamble, with that stamp if found."
	| terminator methodPos oldPreamble stamp |
	terminator _ $!!.

	"Look back to find stamp in old preamble, such as...
	Polygon methodsFor: 'private' stamp: 'di 6/25/97 21:42' prior: 34957598!! "
	methodPos _ aStream position.
	aStream backChunk.				"to beginning of method"
	oldPreamble _ aStream backChunk.		"to get preamble"
	aStream position: methodPos.
	stamp _ (Compiler evaluate: oldPreamble) changeStamp ifNil: [''].
	"Write the new preamble, with old stamp if any."
	self cr; nextPut: terminator.
	self nextChunkPut: (String streamContents: [ :strm |
		strm nextPutAll: preamble.
		stamp size > 0 ifTrue: [
			strm nextPutAll: ' stamp: '; print: stamp]]).
	self cr! !


!ClassCategoryReader reorganize!
('fileIn/Out' scanFrom: scanFromNoCompile: scanFromNoCompile:forSegment:)
('private' setClass:category: setClass:category:changeStamp: theClass)
('accessing' changeStamp)
!

