The Trunk: Tools-mt.885.mcz

Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.885.mcz

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

Name: Tools-mt.885
Author: mt
Time: 5 September 2019, 10:30:32.353472 am
UUID: 629ef430-add9-7140-94ae-d961f7288ab8
Ancestors: Tools-pre.884

Complements Kernel-mt.1264.

=============== Diff against Tools-pre.884 ===============

Item was changed:
  ----- Method: Browser>>renameClass (in category 'class functions') -----
  renameClass
  | oldName newName obs oldBinding |
  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]
+ on: Notification
+ do: [:ex | self inform: ex messageText].
- self selectedClass rename: newName.
  selectedClassName := newName.
  self changed: #classList.
  obs := self systemNavigation allCallsOn: oldBinding.
  obs isEmpty
  ifFalse: [self systemNavigation
  browseMessageList: obs
  name: 'Obsolete References to ' , oldName
  autoSelect: oldName].
  self selectClassNamed: newName.!