[squeak-dev] Squeak 4.5: Tools-topa.520.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Jan 24 14:33:55 UTC 2015


Tobias Pape uploaded a new version of Tools to project Squeak 4.5:
http://source.squeak.org/squeak45/Tools-topa.520.mcz

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

Name: Tools-topa.520
Author: topa
Time: 24 January 2015, 3:33:41.564 pm
UUID: b3b4946b-2a81-4d72-b665-2879d4cfd54a
Ancestors: Tools-cmm.519

Cherry-picked from Trunk (Tools-topa.533):

Fix notification about obsolete class references after a class rename

=============== Diff against Tools-cmm.519 ===============

Item was changed:
  ----- Method: Browser>>renameClass (in category 'class functions') -----
  renameClass
+ 	| oldName newName obs oldBinding |
- 	| oldName newName obs |
  	self hasClassSelected ifFalse: [^ self].
  	self okToChange
  		ifFalse: [^ self].
  	oldName := self selectedClass name.
  	newName := self request: 'Please type new class name' initialAnswer: oldName.
  	newName = ''
  		ifTrue: [^ self].
  	"Cancel returns ''"
  	newName := newName asSymbol.
  	newName = oldName
  		ifTrue: [^ self].
  	(self selectedClass environment includesKey: newName)
  		ifTrue: [^ self error: newName , ' already exists'].
+ 	oldBinding := self selectedClass environment declarationOf: oldName.
  	self selectedClass rename: newName.
  	selectedClassName := newName.
  	self changed: #classList.
+ 	obs := self systemNavigation allCallsOn: oldBinding.
- 	obs := self systemNavigation
- 				allCallsOn: (self selectedClass environment associationAt: newName).
  	obs isEmpty
  		ifFalse: [self systemNavigation
  				browseMessageList: obs
  				name: 'Obsolete References to ' , oldName
  				autoSelect: oldName].
  	self selectClassNamed: newName.!



More information about the Squeak-dev mailing list