Chris Muller uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-cmm.644.mcz==================== Summary ====================
Name: System-cmm.644
Author: cmm
Time: 14 December 2013, 4:58:17.223 pm
UUID: 133e7a1c-346e-4ed3-b08b-dae20c0bd4c6
Ancestors: System-dtl.643
Update comment script used to help identify ObsoleteClasses.
=============== Diff against System-dtl.643 ===============
Item was changed:
----- Method: SystemNavigation>>obsoleteClasses (in category 'query') -----
obsoleteClasses
"SystemNavigation default obsoleteClasses inspect"
"NOTE: Also try inspecting comments below"
| obs |
obs := OrderedCollection new. Smalltalk garbageCollect.
Metaclass allInstancesDo:
[:m | | c |
c := m soleInstance.
(c ~~ nil and: ['AnOb*' match: c name asString])
ifTrue: [obs add: c]].
^ obs asArray
"Likely in a ClassDict or Pool...
(Association allInstances select: [:a | (a value isKindOf: Class) and: ['AnOb*' match: a value name]]) asArray
"
"Obsolete class refs or super pointer in last lit of a method...
| n l found |
+ SystemNavigation default browseAllSelect:
- Smalltalk browseAllSelect:
[:m | found := false.
1 to: m numLiterals do:
[:i | (((l := m literalAt: i) isMemberOf: Association)
and: [(l value isKindOf: Behavior)
and: ['AnOb*' match: l value name]])
ifTrue: [found := true]].
found]
"!