The Trunk: Tools-mt.1047.mcz

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

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

Name: Tools-mt.1047
Author: mt
Time: 29 April 2021, 4:31:27.714356 pm
UUID: 46c05c05-171e-294b-bbcb-1eb3472044b5
Ancestors: Tools-mt.1046

Sorry for the noise. I was mistaken in that I thought that #ifNotEmpty: answers "nil" if the collection is indeed empty.

=============== Diff against Tools-mt.1046 ===============

Item was changed:
  ----- Method: ChangeSorter>>currentClassName: (in category 'class list') -----
  currentClassName: aString
 
  currentClassName := aString.
  self changed: #currentClassName.
  self changed: #messageList.
 
+ self currentSelector: (self messageList ifEmpty: [nil] ifNotEmpty: [:list | list first]).
- self currentSelector: (self messageList ifNotEmpty: [:list | list first]).
  !

Item was changed:
  ----- Method: ChangeSorter>>showChangeSet: (in category 'access') -----
  showChangeSet: chgSet
 
  myChangeSet == chgSet ifFalse: [
  myChangeSet := chgSet.
  currentClassName := nil.
  currentSelector := nil].
  self changed: #relabel.
  self changed: #currentCngSet. "new -- list of sets"
  self changed: #mainButtonName. "old, button"
  self changed: #classList.
 
+ self currentClassName: (self classList ifEmpty: [nil] ifNotEmpty: [:list | list first]).!
- self currentClassName: (self classList ifNotEmpty: [:list | list first]).!