[Pkg] Interleaved Change Set: InterleavedChangeSet-gk.9.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

A new version of InterleavedChangeSet was added to project Interleaved Change Set:
http://www.squeaksource.com/InterleavedChangeSet/InterleavedChangeSet-gk.9.mcz

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

Name: InterleavedChangeSet-gk.9
Author: gk
Time: 4 September 2009, 9:52:04 am
UUID: 055a981c-b643-475c-840b-9d265ce926cd
Ancestors: InterleavedChangeSet-mtf.8

Tiny stamp: fix.

=============== Diff against InterleavedChangeSet-mtf.8 ===============

Item was changed:
  SharedPool subclass: #ICSConstants
  	instanceVariableNames: ''
+ 	classVariableNames: 'PopEntry MakeClass AddClass ActionMap SetProperty ClassEntry FileTableEntry Pop UnknownEntry AddProperty PushEntry MethodEntry PushNew'
- 	classVariableNames: 'AddClass MakeClass PushNew ActionMap SetProperty FileTableEntry ClassEntry Pop AddProperty PopEntry UnknownEntry MethodEntry PushEntry'
  	poolDictionaries: ''
  	category: 'InterleavedChangeSet'!

Item was changed:
  ----- Method: ICSMethodEntryWriter>>writeMethodEntryFor:className:meta:selector:source:stamp:protocol:properties: (in category 'as yet unclassified') -----
  writeMethodEntryFor: modelClass
  className: methodClass
  meta: meta
  selector: methodSelector
  source: methodSource
  stamp: methodStamp
  protocol: methodProtocol
  properties: properties
  	"Write out an entry to load a method"
  
  	"Loading instructions"
  	self pushNewClass: modelClass.
  	self setProperty: #className.
  	self setProperty: #meta.
  	self setProperty: #selector.
  	self setProperty: #source.
  	self setProperty: #protocol.
  	self setProperty: #timeStamp.
+ 	self setProperty: #stamp.
  	self writeAndSetProperties: properties.
  	self pop.
  
  	"Properties not is the file-out"
  	self stringStreamPut: methodSelector forProperty: #selector.
  	
  	"Write the method chunk"
  	chunkStream nextPut: $!!.
  	self chunkStreamPut: methodClass forProperty: #className.
  	self chunkStreamPut: (meta ifFalse: [''] ifTrue: [' class']) 		forProperty: #meta.
  	chunkStream nextPutAll: ' methodsFor: '''.
  	self chunkStreamPut: methodProtocol forProperty: #protocol.
  	chunkStream nextPutAll: ''' stamp: '''.
  	self chunkStreamPut: methodStamp forProperty: #stamp.
  	chunkStream nextPutAll: '''!!'; cr.
  	self chunkStreamPut: methodSource asString forProperty: #source.
  	chunkStream nextPutAll: '!! !!'; cr; cr.!