<div dir="ltr"><div dir="ltr">Hi Marcel,</div><div dir="ltr"><br></div><div dir="ltr">On Thu, Jul 11, 2019 at 2:21 AM <<a href="mailto:commits@source.squeak.org" target="_blank">commits@source.squeak.org</a>> wrote:<br></div><div class="gmail_quote"><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">Marcel Taeumel uploaded a new version of System to project The Trunk:<br>
<a href="http://source.squeak.org/trunk/System-mt.1069.mcz" rel="noreferrer" target="_blank">http://source.squeak.org/trunk/System-mt.1069.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: System-mt.1069<br>
Author: mt<br>
Time: 11 July 2019, 9:21:36.166354 am<br>
UUID: 27227430-c08f-3c47-b9fd-b646e7f948b6<br>
Ancestors: System-mt.1068<br>
<br>
Fixes minor regression in suggestedTypeNames. That is. 'someMorphThing' should also yield 'MorphThing', not just 'Morph' and 'Thing'.<br></blockquote><div><br></div><div>Will it also yield 'someMorph' and 'someMorphThing'?  At first I thought the features only included the leaves, but this gives me hope that featuresDo: will enumerate all the nodes for me.</div><div><br></div><div>Thanks for doing this enhancement BTW, it bodes well for boosting the human<-->software bandwidth of Squeak's IDE even higher for users.</div><div><br></div><div>Best,</div><div>  Chris</div><div><br></div><div><br></div><div><br></div><div> </div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">
<br>
=============== Diff against System-mt.1068 ===============<br>
<br>
Item was changed:<br>
  ----- Method: String>>suggestedTypeNames (in category '*system') -----<br>
  suggestedTypeNames<br>
<br>
        ^ Array streamContents: [:stream |<br>
                self findFeatureIndicesDo: [:start :end |<br>
                        (self at: start) isUppercase ifTrue: [<br>
                                stream nextPut: (self copyFrom: start to: end).<br>
+                               end ~= self size ifTrue: [<br>
+                                       stream nextPut: (self copyFrom: start to: self size) withBlanksTrimmed].<br>
                                "Often, argument names that refer to Collections end in the letter s, which can cause the suggested type-name to not be found. Account for this."<br>
                                (self at: end) = $s ifTrue: [<br>
                                        stream nextPut: (self copyFrom: start to: end -1)]]]].!<br>
<br>
<br>
</blockquote></div></div>