[Pkg] The Trunk: System-eem.766.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Sep 16 18:48:13 UTC 2015

Eliot Miranda uploaded a new version of System to project The Trunk:

==================== 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') -----
  	classes := Dictionary new.
  	classOrder := OrderedCollection new.
  	sourceSystem := ''.
  	doIts := OrderedCollection new.!

Item was changed:
  ----- Method: FilePackage>>packageName (in category 'accessing') -----
  	^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
- !

More information about the Packages mailing list