[Pkg] SystemEditor: SystemEditor-mtf.153.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

A new version of SystemEditor was added to project SystemEditor:
http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.153.mcz

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

Name: SystemEditor-mtf.153
Author: mtf
Time: 6 November 2008, 10:43:34 pm
UUID: f3345e04-42e6-4c3c-bded-65b050d94b47
Ancestors: SystemEditor-mtf.152

While searching for subclasses of a ClassEditor, restrict the search to ClassEditors, not traits

=============== Diff against SystemEditor-mtf.152 ===============

Item was changed:
  ----- Method: SystemEditor>>edSubclassesOrEditorsOf:do: (in category 'building') -----
  edSubclassesOrEditorsOf: anEditor do: aBlock
  "Evaluate aBlock for each subclasses of the given ClassEditor, as either an editor (if it has changed), or as a class (if it has not changed). Does not add any items to my additions list"
  
  	| subclasses |
  	subclasses := anEditor subject
  		ifNil: [Set new]
  		ifNotNilDo: [ :class | class subclasses asSet].
  	additions do: [ :ea |
  		subclasses remove: ea subject ifAbsent: [].
+ 		((ea isKindOf: ClassDescriptionEditor)
+ 			and: [ea superclassOrEditor == anEditor])
+ 				ifTrue: [aBlock value: ea]].
- 		ea superclassOrEditor == anEditor ifTrue: [aBlock value: ea]].
  	removals do: [ :removedKey | subclasses remove: (subject at: removedKey) ifAbsent: []].
  	subclasses do: aBlock!