Chris Muller uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-cmm.808.mcz
==================== Summary ====================
Name: Tools-cmm.808 Author: cmm Time: 28 April 2018, 3:27:07.649576 pm UUID: 941a22f6-3add-4476-951b-65c2ad89ba4b Ancestors: Tools-cmm.807
Fix UndefinedObject DNU #isUniClass when opening a MessageSet containing invalid MethodReferences.
=============== Diff against Tools-cmm.807 ===============
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." - 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 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, '}']])]]. - each stringVersion: (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 := ''!