The Trunk: System-ar.279.mcz

Andreas Raab uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ar.279.mcz

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

Name: System-ar.279
Author: ar
Time: 5 March 2010, 8:18:27.754 pm
UUID: 75a1f1c6-40d7-1e48-a805-27661be5d095
Ancestors: System-ar.278

Factor out some duplicate code.

=============== Diff against System-ar.278 ===============

Item was added:
+ ----- Method: SystemDictionary>>renameClass:from:to: (in category 'class and trait names') -----
+ renameClass: aClass from: oldName to: newName
+ "Rename the class, aClass, to have the title newName."
+
+ | oldref category |
+ category := SystemOrganization categoryOfElement: oldName.
+ self organization classify: newName under: category.
+ self organization removeElement: oldName.
+ oldref := self associationAt: oldName.
+ self removeKey: oldName.
+ oldref key: newName.
+ self add: oldref.  "Old association preserves old refs"
+ Smalltalk renamedClass: aClass from: oldName to: newName.
+ self flushClassNameCache.
+ SystemChangeNotifier uniqueInstance classRenamed: aClass from: oldName to: newName inCategory: category!

Item was changed:
+ ----- Method: SystemDictionary>>renameClass:from: (in category 'class and trait names') -----
- ----- Method: SystemDictionary>>renameClass:from: (in category 'class names') -----
  renameClass: aClass from: oldName
  "Rename the class, aClass, to have the title newName."
+
+ ^self renameClass: aClass from: oldName to: aClass name!
- | oldref newName category |
- newName := aClass name.
- category := SystemOrganization categoryOfElement: oldName.
- self organization classify: newName under: category.
- self organization removeElement: oldName.
- oldref := self associationAt: oldName.
- self removeKey: oldName.
- oldref key: newName.
- self add: oldref.  "Old association preserves old refs"
- Smalltalk renamedClass: aClass from: oldName to: newName.
- self flushClassNameCache.
- SystemChangeNotifier uniqueInstance classRenamed: aClass from: oldName to: newName inCategory: category!

Item was changed:
  ----- Method: SystemDictionary>>renameClass:as: (in category 'class and trait names') -----
  renameClass: aClass as: newName
  "Rename the class, aClass, to have the title newName."
+
+ ^self renameClass: aClass from: aClass name to: newName!
- "Original one I want to keep but needs to be fixed"
-
- | oldref oldName category |
- oldName := aClass name.
- category := aClass category.
- self organization classify: newName under: aClass category.
- self organization removeElement: aClass name.
- oldref := self associationAt: aClass name.
- self removeKey: aClass name.
- oldref key: newName.
- self add: oldref.  "Old association preserves old refs"
- Smalltalk renamedClass: aClass from: aClass name to: newName.
- self flushClassNameCache.
- SystemChangeNotifier uniqueInstance classRenamed: aClass from: oldName to: newName inCategory: category!