Chris Muller uploaded a new version of PackageInfo-Base to project The Trunk: http://source.squeak.org/trunk/PackageInfo-Base-cmm.54.mcz
==================== Summary ====================
Name: PackageInfo-Base-cmm.54 Author: cmm Time: 5 April 2011, 3:25:43.621 pm UUID: 0b16f7ba-692f-48ef-ac8d-e3dcd89ef904 Ancestors: PackageInfo-Base-nice.53
Revert change which would ensure, upon every access, that the correct type of PackageInfo subclass was returned (but which required override of #packageName on the class-side).
=============== Diff against PackageInfo-Base-nice.53 ===============
Item was removed: - ----- Method: PackageInfo class>>classFor: (in category 'private') ----- - classFor: packageNameString - self - allSubclassesDo: [:each | (each packageName isString - and: [each packageName sameAs: packageNameString]) - ifTrue: [^ each]]!
Item was changed: ----- Method: PackageInfo class>>named: (in category 'packages access') ----- + named: aString + ^ PackageOrganizer default packageNamed: aString ifAbsent: [(self new packageName: aString) register]! - named: aString - "Answer the PackageInfo with name aString." - | original replacement | - original := PackageOrganizer default - packageNamed: aString - ifAbsent: []. - ^ (original isNil - or: [original class - ~= (self classFor: aString)]) - ifTrue: [replacement := self newNamed: aString. - original - ifNotNil: [replacement copySameFrom: original]. - replacement register; yourself] - ifFalse: [original]!
Item was removed: - ----- Method: PackageInfo class>>newNamed: (in category 'private') ----- - newNamed: aString - ^ (self classFor: aString) new packageName: aString; - yourself!
squeak-dev@lists.squeakfoundation.org