Squeak 4.5: Tools-topa.520.mcz

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.!