[squeak-dev] The Trunk: Tools-mt.1047.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Apr 29 14:31:30 UTC 2021


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



More information about the Squeak-dev mailing list