[Pkg] Interleaved Change Set: InterleavedChangeSet-gk.9.mcz
squeak-dev-noreply at lists.squeakfoundation.org
squeak-dev-noreply at lists.squeakfoundation.org
Fri Sep 4 07:52:33 UTC 2009
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.!
More information about the Packages
mailing list