A new version of Sake-Core was added to project Sake : http://www.squeaksource.com/Sake/Sake-Core-kph.64.mcz
==================== Summary ====================
Name: Sake-Core-kph.64 Author: kph Time: 26 October 2008, 7:40:22 pm UUID: 02a589ed-b980-4c03-8c9d-31e5cc1ce4dc Ancestors: Sake-Core-kph.63
+ SakeMeta storeOn:
=============== Diff against Sake-Core-kph.63 ===============
Item was changed: Dictionary subclass: #SakeMeta instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Sake-Core'! + + !SakeMeta commentStamp: 'kph 10/26/2008 17:50' prior: 0! + | s | + s := ReadWriteStream on: String new. + (self new a: 1; b: 2; yourself) storeOn: s. + s reset fileIn!
Item was added: + ----- Method: SakeMeta>>storeOn: (in category 'as yet unclassified') ----- + storeOn: aStream + + "writes metadata in a user readable format - oh for an ordered dictionary" + + | noneYet | + aStream nextPutAll: '('. + aStream nextPutAll: self class name. + aStream nextPutAll: ' new'; cr. + noneYet := true. + self associationsDo: + [:each | + noneYet + ifTrue: [noneYet := false] + ifFalse: [aStream nextPut: $;; cr]. + aStream nextPutAll: ' at: '. + aStream store: each key. + aStream nextPutAll: ' put: '. + aStream store: each value. + ]. + noneYet ifFalse: [aStream nextPut: $;; cr; nextPutAll: 'yourself']. + aStream nextPut: $)!