[squeak-dev] The Trunk: Environments-cwp.50.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Mar 31 18:27:29 UTC 2014


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!



More information about the Squeak-dev mailing list