[Pkg] SystemEditor: SystemEditor-Squeak-mtf.166.mcz

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

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

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

Name: SystemEditor-Squeak-mtf.166
Author: mtf
Time: 9 March 2009, 9:42:35 pm
UUID: dfb958db-1cf3-43a3-841d-b6d154db3e90
Ancestors: SystemEditor-Squeak-mtf.165

a few patches:
- fix two bugs in subclass list creation
- Make class categorization work even if the category is default

=============== Diff against SystemEditor-Squeak-mtf.165 ===============

Item was changed:
  ----- Method: ClassEditor>>edDependentSuperclassesDo: (in category 'building') -----
  edDependentSuperclassesDo: aBlock
  "Fix up subclass references to myself in my old and new superclasses"
  
  	| newSuperclass oldSuperclass newSupereditor oldSupereditor |
+ 	newSupereditor := newSuperclass := self superclassOrEditor.
- 	newSuperclass := self superclassOrEditor.
  	newSuperclass edIsEditor ifTrue: [newSuperclass := newSuperclass  subject].
+ 	
  	oldSuperclass := self subject ifNotNil: [self subject superclass].
+ 	(oldSuperclass notNil and: [oldSuperclass == newSuperclass])
+ 		 ifTrue: [^ self].
- 	oldSuperclass == newSuperclass ifTrue: [^ self].
  
+ 	newSupereditor := self environment edEditorFor: newSupereditor.
- 	newSupereditor := self environment edEditorFor: newSuperclass.
  	newSupereditor addSubclass: self.
  	aBlock value: newSupereditor.
  	oldSuperclass ifNil: [^ self].
  
  	oldSupereditor := self environment edEditorFor: oldSuperclass.
  	oldSupereditor removeSubclass: self.
  	aBlock value: oldSupereditor.!

Item was added:
+ ----- Method: ClassEditor>>classVarNames: (in category 'accessing') -----
+ classVarNames: anArray
+ 	classVarNames := anArray!

Item was changed:
  ----- Method: SystemEditor>>edRecategorize (in category 'building') -----
  edRecategorize
  	additions do: 
  		[:ea | 
  		ea edCategory ifNotNilDo:
  			[:cat | 
  			SystemOrganization 
  				classify: ea name
+ 				under: cat
+ 				suppressIfDefault: false]]!
- 				under: cat]]!