[squeak-dev] The Trunk: Tools-topa.533.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Jan 21 10:17:05 UTC 2015
Tobias Pape uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-topa.533.mcz
==================== Summary ====================
Name: Tools-topa.533
Author: topa
Time: 21 January 2015, 11:16:47.425 am
UUID: ff38a625-c34d-462c-a7f4-366d031f3127
Ancestors: Tools-ul.532
Fix notification about obsolete class references after a class rename
=============== Diff against Tools-ul.532 ===============
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
|