Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.493.mcz
==================== Summary ====================
Name: EToys-mt.493 Author: mt Time: 24 February 2023, 10:57:32.196067 am UUID: 026f5e7f-48a8-df46-9d7f-dd63f4acf991 Ancestors: EToys-mt.492
Merges a fix from Ralph (rpb):
"This code fixes a bug in fromCameCase. The old code would do: 'AnExampleString' fromCamelCase -> ' anExampleString'. The leading space should not be there. The problem occurs when the leading character is capitalized."
=============== Diff against EToys-mt.492 ===============
Item was changed: ----- Method: String>>fromCamelCase (in category '*Etoys-Squeakland-converting') ----- fromCamelCase "convert 'anExampleString' to 'an example string'"
+ ^self findFeatures joinSeparatedBy: String space! - | upper nextWord start | - upper := ($A to: $Z) asCharacterSet. - nextWord := self indexOfAnyOf: upper. - nextWord = 0 ifTrue: [^self]. - start := 1. - - ^String streamContents: [:strm | - [ - strm nextPutAll: (self copyFrom: start to: nextWord-1). - strm space; nextPut: (self at: nextWord) asLowercase. - start := nextWord+1. - nextWord := self indexOfAnyOf: upper startingAt: start. - nextWord = 0 - ] whileFalse. - strm nextPutAll: (self copyFrom: start to: self size). - ].!