The Inbox: Environments-cmm.53.mcz

Previous Topic Next Topic
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view

The Inbox: Environments-cmm.53.mcz

A new version of Environments was added to project The Inbox:

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

Name: Environments-cmm.53
Author: cmm
Time: 16 January 2015, 2:54:24.767 pm
UUID: 69b32fc7-98f1-4c19-9976-a38106a9ee63
Ancestors: Environments-cmm.52

- Only change key when it is NOT in the 'bindings' Dictionary, otherwise it would be in a state inconsistent with its new hash.

=============== Diff against Environments-cmm.52 ===============

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 associationAt: oldName.
  declarations removeKey: oldName.
+ bindings removeKey: oldName.
  " self binding: binding removedFrom: self."
  binding key: newName.
+ declarations add: binding.
+ bindings add: binding.
- 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!