Christoph Thiede uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1228.mcz
==================== Summary ====================
Name: Tools-ct.1228 Author: ct Time: 17 August 2023, 9:08:20.948459 am UUID: fafafb16-f12c-3545-8ed6-30697318cdb6 Ancestors: Tools-ct.1227
In message traces, fixes implementors button for removed ("Missing") methods.
Closes https://github.com/squeak-smalltalk/squeak-object-memory/issues/88. Thanks to Jakob (jr) for the report!
=============== Diff against Tools-ct.1227 ===============
Item was changed: ----- Method: MessageTrace>>getImplementorNamed: (in category 'private accessing') ----- getImplementorNamed: selectorSymbol + | allMessages allPossibilities | + allMessages := (self selection compiledMethod ifNil: [^ selectorSymbol]) messages. + allPossibilities := (((allMessages - | allPossibilities | - allPossibilities := (((self selection compiledMethod messages select: [ :eachSelector | eachSelector beginsWith: selectorSymbol ]) copyWith: selectorSymbol) select: [ :each | (Symbol lookup: each) notNil ]) asSet asOrderedCollection sort. (allPossibilities includes: selectorSymbol) ifTrue: [ allPossibilities addFirst: (allPossibilities remove: selectorSymbol) ]. ^allPossibilities size > 1 ifTrue: [ | selectionIndex | selectionIndex := (PopUpMenu labelArray: allPossibilities lines: #(1)) startUpWithCaption: 'Browse implementors of which message?' translated. selectionIndex = 0 ifFalse: [ allPossibilities at: selectionIndex ] ] ifFalse: [ allPossibilities isEmpty ifTrue: [ selectorSymbol ] ifFalse: [ allPossibilities first ] ]!
packages@lists.squeakfoundation.org