[Pkg] The Trunk: System-ar.304.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Mar 30 04:06:15 UTC 2010


Andreas Raab uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ar.304.mcz

==================== Summary ====================

Name: System-ar.304
Author: ar
Time: 29 March 2010, 9:05:24.951 pm
UUID: 41a92fdc-bd06-8942-9728-b2af9b5fe37d
Ancestors: System-tfel.303

Fixes http://bugs.squeak.org/view.php?id=6478

=============== Diff against System-tfel.303 ===============

Item was changed:
  ----- Method: SystemDictionary>>classNames (in category 'classes and traits') -----
  classNames
  	"Answer a SortedCollection of all class names."
  	| names |
  	cachedClassNames == nil ifTrue:
  		[names := OrderedCollection new: self size.
+ 		self keysAndValuesDo:[:key :value|
+ 			"The key == value name test below addresses two separate issues:
+ 				1) Obsolete classes, where key = #Foo and value name = 'AnObsoleteFoo'
+ 				2) Aliases, i.e., Smalltalk at: #OtherName put: aClass
+ 			"
+ 			(value isInMemory and: [(value isKindOf: Class) and: [key == value name]])
+ 				ifTrue: [names add: key]].
- 		self do: 
- 			[:cl | (cl isInMemory
- 				and: [(cl isKindOf: Class)
- 					and: [(cl name beginsWith: 'AnObsolete') not]])
- 				ifTrue: [names add: cl name]].
  		cachedClassNames := names asSortedCollection].
  	^ cachedClassNames!



More information about the Packages mailing list