The Trunk: Tools-mt.1048.mcz

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

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

Name: Tools-mt.1048
Author: mt
Time: 29 April 2021, 6:14:12.930356 pm
UUID: 14815123-219f-0b41-a441-c56e1392000f
Ancestors: Tools-mt.1047

Fixes selection update after removing a whole class from the current change-set.

=============== Diff against Tools-mt.1047 ===============

Item was changed:
  ----- Method: ChangeSorter>>forgetClass (in category 'class list') -----
  forgetClass
  "Remove all mention of this class from the changeSet.
  After forgetting, select at the same point in the class
  list, which helps if e.g. doing something repetitive such
  as moving a number of classes to the other side."
  | index classList |
  self okToChange ifFalse: [^ self].
  currentClassName ifNil: [^self].
  index := self classList indexOf: currentClassName.
  myChangeSet removeClassChanges: (self withoutItemAnnotation: currentClassName).
+ self changed: #classList.
- currentSelector := nil.
  classList := self classList.
+ self currentClassName: (classList isEmpty ifFalse:
+ [classList at: (index min: classList size)]).!
- currentClassName := classList isEmpty ifFalse:
- [classList at: (index min: classList size)].
- self showChangeSet: myChangeSet!