An explanation where and how

     ttfclpomsswfpp0

is constructed.

On 10/14/17, H. Hirzel <hannes.hirzel at gmail.com> wrote:
> I see it is a help to understand the code.
>
> Alternatively the comment of class SmartRefStream could be improved to
> explain these 'weird' looking method names such as
>
>      #multiNewParagraphttfclpomsswfpp0
>
> On 10/14/17, Tobias Pape <Das.Linux at gmx.de> wrote:
>>
>>> On 14.10.2017, at 05:38, commits at source.squeak.org wrote:
>>>
>>> David T. Lewis uploaded a new version of System to project The Trunk:
>>> http://source.squeak.org/trunk/System-dtl.965.mcz
>>>
>>> ==================== Summary ====================
>>>
>>> Name: System-dtl.965
>>> Author: dtl
>>> Time: 13 October 2017, 11:38:38.184812 pm
>>> UUID: 710f2f23-7e87-4fbf-9a16-9b6df253f5bd
>>> Ancestors: System-tpr.964
>>>
>>> Add flag to identify sender of composed selector
>>> #multiNewParagraphttfclpomsswfpp0
>>
>> Just curious, why?
>>
>>>
>>> =============== Diff against System-tpr.964 ===============
>>>
>>> Item was changed:
>>>  ----- Method: SmartRefStream>>mapClass: (in category 'read write')
>>> -----
>>>  mapClass: incoming
>>>  	"See if the old class named nm exists.  If so, return it.  If not, map
>>> it to a new class, and save the mapping in renamed.  "
>>>
>>>  	| cls oldVer sel nm |
>>>
>>>  	self flag: #bobconv.	
>>>
>>>
>>>  	nm := renamed at: incoming ifAbsent: [incoming].	"allow pre-mapping
>>> around collisions"
>>>  	(nm endsWith: ' class')
>>>  		ifFalse: [cls := Smalltalk at: nm ifAbsent: [nil].
>>>  			cls ifNotNil: [^ cls]]  	"Known class.  It will know how to
>>> translate
>>> the instance."
>>>  		ifTrue: [cls := Smalltalk at: nm substrings first asSymbol ifAbsent:
>>> [nil].
>>>  			cls ifNotNil: [^ cls class]]. 	"Known class.  It will know how to
>>> translate the instance."
>>>  	oldVer := self versionSymbol: (structures at: nm).
>>>  	sel := nm asString.
>>>  	sel at: 1 put: (sel at: 1) asLowercase.
>>>  	sel := sel, oldVer.	"i.e. #rectangleoc4"
>>> + 	self flag: #multiNewParagraphttfclpomsswfpp0. "identify senders of
>>> multiNewParagraphttfclpomsswfpp0"
>>>  	Symbol hasInterned: sel ifTrue: [:symb |
>>>  		(self class canUnderstand: sel asSymbol) ifTrue: [
>>>  			reshaped ifNil: [reshaped := Dictionary new].
>>>  			cls := self perform: sel asSymbol]].	"This class will take
>>> responsibility"
>>>  	cls ifNil: [cls := self writeClassRenameMethod: sel was: nm
>>>  					fromInstVars: (structures at: nm).
>>>  			   cls isString ifTrue: [cls := nil]].
>>>  	cls ifNotNil: [renamed at: nm put: cls name].
>>>  	^ cls
>>>  !
>>>
>>>
>>
>>
>>
>