A new version of InterleavedChangeSet was added to project Interleaved Change Set: http://www.squeaksource.com/InterleavedChangeSet/InterleavedChangeSet-gk.9.m...
==================== 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.!
packages@lists.squeakfoundation.org