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 at 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 at 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 := ''!
> >
> >
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20180430/f13d6d97/attachment.html>