Status: FixProposed
Owner:
[hidden email]
Labels: Hazelnut Milestone-1.3
New issue 4342 by
[hidden email]: Fix In SystemDictionary
http://code.google.com/p/pharo/issues/detail?id=4342To allow the use of a different SystemDictionary
-----------------------------------
fillCaches
"Fill cachedClassNames and cachedNonClassNames. Return an array with the
calculated values."
| classNames nonClassNames |
classNames := OrderedCollection new: self size.
nonClassNames := OrderedCollection new.
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 isKindOf: (self at: #Class)) and: [ key == value name ])
ifTrue: [ classNames add: key ]
ifFalse: [ nonClassNames add: key ] ].
classNames sort.
cachedNonClassNames := nonClassNames sort.
cachedClassNames := classNames.
^{ classNames. nonClassNames }
Attachments:
FixInSystemDictionary.1.cs 918 bytes
_______________________________________________
Pharo-bugtracker mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-bugtracker
Locked
