The Trunk: Tools-eem.658.mcz

Eliot Miranda uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-eem.658.mcz

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

Name: Tools-eem.658
Author: eem
Time: 6 December 2015, 12:20:40.433 pm
UUID: 67c801aa-b3d5-4dc7-a52f-c49bbc7e0022
Ancestors: Tools-eem.657

Fix the mssageList one-element-selection regression in Tools-eem.657.

=============== Diff against Tools-eem.657 ===============

Item was changed:
  ----- Method: MessageNames>>selectorListIndex: (in category 'selector list') -----
  selectorListIndex: anInteger
  "Set the selectorListIndex as specified, and propagate consequences"
  | methodClass index |
  methodClass := currentCompiledMethod ifNotNil: [currentCompiledMethod methodClass].
  selectorListIndex := anInteger.
  self changed: #selectorListIndex.
 
  messageList := self computeMessageList.
  self changed: #messageList.
+ messageList size > 1 ifTrue:
+ [methodClass ifNotNil: [index := messageList findFirst: [:methodRef| methodRef actualClass = methodClass]]].
- methodClass ifNotNil: [index := messageList findFirst: [:methodRef| methodRef actualClass = methodClass]].
 
  "If a method of the same class exists, select that, otherwise select the first message if any."
  self messageListIndex: (index ifNil: [1 min: messageList size])!