Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.766.mcz
==================== Summary ====================
Name: System-eem.766 Author: eem Time: 16 September 2015, 11:47:41 am UUID: 9c1c1e34-5f47-43ac-a6de-58be7bc6d6db Ancestors: System-mt.765
Fix some methods with carriage returns in their time stamps.
=============== Diff against System-mt.765 ===============
Item was changed: ----- Method: DataStream>>objectAt: (in category 'write and read') ----- objectAt: anInteger + "PRIVATE -- Read & return the object at a given stream position. anInteger is a relative file position. " - "PRIVATE -- Read & return the object at a given stream position. 08:18 tk anInteger is a relative file position. " | savedPosn anObject refPosn |
savedPosn := byteStream position. "absolute" refPosn := self getCurrentReference. "relative position"
byteStream position: anInteger + basePos. "was relative" anObject := self next.
self setCurrentReference: refPosn. "relative position" byteStream position: savedPosn. "absolute" ^ anObject!
Item was changed: ----- Method: FilePackage>>fullName: (in category 'accessing') ----- fullName: aString fullName := aString!
Item was changed: ----- Method: FilePackage>>initialize (in category 'initialize') ----- initialize classes := Dictionary new. classOrder := OrderedCollection new. sourceSystem := ''. doIts := OrderedCollection new.!
Item was changed: ----- Method: FilePackage>>packageName (in category 'accessing') ----- packageName ^FileDirectory localNameFor: self fullPackageName!
Item was changed: ----- Method: SmartRefStream>>applyConversionMethodsTo:className:varMap: (in category 'import image segment') ----- applyConversionMethodsTo: objectIn className: className varMap: varMap "Modify the object's instance vars to have the proper values for its new shape. Mostly, fill in defaut values of new inst vars. Can substitute an object of a different class. (Beware: if substituted, varMap will not be correct when the new object is asked to convert.)" | anObject prevObject |
self flag: #bobconv.
anObject := objectIn. [ prevObject := anObject. anObject := anObject convertToCurrentVersion: varMap refStream: self. prevObject == anObject ] whileFalse. + ^anObject! - ^anObject - !
packages@lists.squeakfoundation.org