Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1230.mcz
==================== Summary ====================
Name: Tools-mt.1230 Author: mt Time: 22 August 2023, 10:05:29.672936 am UUID: e51a04af-92dd-ad4f-858b-7771958ef91a Ancestors: Tools-mt.1229
Fixes a minor regression in MessageNames that just surfaced since we can now show #Comment #Definition and #Hierarchy of classes in that tool.
The instVar currentCompiledMethod is overloaded and also holds a RemoteString if #Comment of a class is shown. Other tools do already account for that.
Here, we just have to rely on the working implementation of #selectedClassOrMetaClass to implemented the desired feature, which is to select the first method of the current class if possible.
Thanks to Nicolas (nice) for documenting this bug! See https://github.com/squeak-smalltalk/squeak-object-memory/issues/93
=============== Diff against Tools-mt.1229 ===============
Item was changed: ----- Method: MessageNames>>selectorListIndex: (in category 'selector list') ----- selectorListIndex: anInteger "Set the selectorListIndex as specified, and propagate consequences" + + | currentClass newMessageListIndex | + currentClass := self selectedClassOrMetaClass. + - | 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]]].
"If a method of the same class exists, select that, otherwise select the first message if any." + newMessageListIndex := (messageList size > 1 and: [currentClass notNil]) + ifTrue: [1 max: (messageList findFirst: [:methodRef | methodRef actualClass = currentClass])] + ifFalse: [1 min: messageList size]. + + self messageListIndex: newMessageListIndex.! - self messageListIndex: (index ifNil: [1 min: messageList size])!
packages@lists.squeakfoundation.org