[squeak-dev] The Inbox: Tools-jr.809.mcz
Chris Muller
asqueaker at gmail.com
Sun Apr 29 23:51:39 UTC 2018
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 := ''!
>
>
More information about the Squeak-dev
mailing list
|