[Pkg] The Trunk: System-cmm.644.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Dec 14 22:59:39 UTC 2013

Chris Muller uploaded a new version of System to project The Trunk:

==================== 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') -----
  	"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]].

More information about the Packages mailing list