The Trunk: Tools-mt.1046.mcz

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

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

Name: Tools-mt.1046
Author: mt
Time: 29 April 2021, 4:27:09.983356 pm
UUID: 103a7fea-3c92-f94f-a5f5-0568d1b1d8c2
Ancestors: Tools-mt.1045

Auto-select the first entry when browsing change sets.

This is similar to the dependency browser, where we often work with smaller lists. There it is cumbersome to have to make extra clicks just to show the contents of the first entry.

=============== Diff against Tools-mt.1045 ===============

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

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 ifNotEmpty: [:list | list first]).!
- self changed: #messageList.
- self setContents.
- self contentsChanged.!