Colin Putney uploaded a new version of Environments to project The Trunk:
http://source.squeak.org/trunk/Environments-cwp.50.mcz==================== Summary ====================
Name: Environments-cwp.50
Author: cwp
Time: 31 March 2014, 1:26:54.758 pm
UUID: c5bc1620-6918-4480-84b2-b3a2c167e534
Ancestors: Environments-cwp.49
Create a new binding when renaming classes.
=============== Diff against Environments-cwp.49 ===============
Item was changed:
----- Method: Environment>>renameClass:from:to: (in category 'classes and traits') -----
renameClass: aClass from: oldName to: newName
"Rename the class, aClass, to have the title newName."
| binding category |
category := self organization categoryOfElement: oldName.
self organization classify: newName under: category suppressIfDefault: true.
self organization removeElement: oldName.
+ binding := self declarationOf: oldName.
- binding := self associationAt: oldName.
declarations removeKey: oldName.
self binding: binding removedFrom: self.
+ binding := newName => aClass.
- binding key: newName.
declarations add: binding.
self binding: binding addedTo: self.
Smalltalk renamedClass: aClass from: oldName to: newName.
SystemChangeNotifier uniqueInstance
classRenamed: aClass
from: oldName
to: newName
inCategory: category!