The Trunk: Tools-mt.941.mcz

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

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

Name: Tools-mt.941
Author: mt
Time: 25 February 2020, 10:39:12.128786 am
UUID: 51495436-fb80-0546-be9e-703c956315eb
Ancestors: Tools-mt.940

Complements Kernel-mt.1305.

Fixes class-rename issue, which occurred due to catching ProgressNotification. And the missing #resume.

=============== Diff against Tools-mt.940 ===============

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: RemarkNotification
+ do: [:ex | self inform: ex messageText. ex resume].
- on: Notification
- do: [:ex | self inform: ex messageText].
  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.!