Yeah, I know. I meant this "new" probably belongs into the same category as a typo. ;-) The constructor method exists only on the class side of MethodReference in my image.
Chris Muller asqueaker@gmail.com schrieb am Mo., 30. Apr. 2018, 01:52:
That's a Constructor Method, not a glitch. :)
On Sun, Apr 29, 2018 at 12:26 PM, commits@source.squeak.org wrote:
A new version of Tools was added to project The Inbox: http://source.squeak.org/inbox/Tools-jr.809.mcz
==================== Summary ====================
Name: Tools-jr.809 Author: jr Time: 29 April 2018, 7:26:21.629471 pm UUID: 95b32bbc-8dd4-bf49-8226-b727ef91e4de Ancestors: Tools-cmm.808
Fix small glitch in MessageSet initialization
=============== Diff against Tools-cmm.808 ===============
Item was changed: ----- Method: MessageSet>>initializeMessageList: (in category
'private') -----
initializeMessageList: anArray "Initialize my messageList from the given list of
MethodReference or string objects. NB: special handling for uniclasses.
Do /not/ replace the elements of anArray if they are already
MethodReferences, so as to allow users to construct richer systems, such as differencers between existing and edited versions of code."
messageList := OrderedCollection new. anArray do: [:each | each isMethodReference ifTrue: [messageList addLast: each] ifFalse: [MessageSet parse: each
toClassAndSelector: [ :class :sel |
class ifNotNil: [ messageList addLast: (
MethodReference
MethodReference new class: class selector: sel)]
]]].
"Unify labels if wanted." self class useUnifiedMessageLabels ifTrue: [ messageList do: [:each | | cls | cls := each actualClass. each stringVersion: (cls ifNil: [each asString] ifNotNil: [cls isUniClass ifTrue: [cls
typicalInstanceName, ' ', each selector]
ifFalse: [cls
name , ' ' , each selector , ' {' ,
((cls organization categoryOfElement: each
selector) ifNil: ['']) , '}' ,
' {', cls category, '}']])]].
messageListIndex := messageList isEmpty ifTrue: [0] ifFalse: [1]. contents := ''!