Marcel Taeumel uploaded a new version of Protocols to project The Trunk:
http://source.squeak.org/trunk/Protocols-mt.75.mcz==================== Summary ====================
Name: Protocols-mt.75
Author: mt
Time: 14 October 2020, 1:51:39.700569 pm
UUID: 2d468faa-7d01-8e4f-8a30-27ea000a63e6
Ancestors: Protocols-mt.74
Rename #collectWithIndex: to #withIndexCollect:. See
http://forum.world.st/The-Inbox-60Deprecated-ct-80-mcz-td5120706.html=============== Diff against Protocols-mt.74 ===============
Item was changed:
----- Method: StringType>>initialize (in category 'initialization') -----
initialize
"Initialize the receiver (automatically called when instances are created via 'new')"
super initialize.
self vocabularyName: #String.
#((accessing 'The basic info'
(at: at:put: size endsWithDigit findString: findTokens: includesSubstring: indexOf: indexOf:startingAt: indexOf:startingAt:ifAbsent: lineCorrespondingToIndex: lineCount lineNumber: startsWithDigit numArgs))
(#'more accessing' 'More basic info'
(allButFirst allButFirst: allButLast allButLast: at:ifAbsent: atAllPut: atPin: atRandom: atWrap: atWrap:put: fifth first first: fourth from:to:put: last last: lastIndexOf: lastIndexOf:ifAbsent: middle replaceAll:with: replaceFrom:to:with: replaceFrom:to:with:startingAt: second sixth third))
(comparing 'Determining which comes first alphabeticly'
(< <= = > >= beginsWith: endsWith: endsWithAnyOf: howManyMatch: match:))
(testing 'Testing'
(includes: isEmpty ifNil: ifNotNil: isAllDigits isAllSeparators isString lastSpacePosition))
(converting 'Converting it to another form'
(asCharacter asDate asInteger asLowercase asNumber asString asStringOrText asSymbol asText asTime asUppercase asUrl capitalized keywords numericSuffix romanNumber reversed splitInteger surroundedBySingleQuotes withBlanksTrimmed withSeparatorsCompacted withoutTrailingBlanks withoutTrailingDigits asSortedCollection))
(copying 'Make another one like me'
(copy copyFrom:to: copyUpTo: copyUpToLast: shuffled))
(enumerating 'Passing over the letters'
+ (collect: withIndexCollect: do: from:to:do: reverseDo: select: withIndexDo: detect: detect:ifNone:))
- (collect: collectWithIndex: do: from:to:do: reverseDo: select: withIndexDo: detect: detect:ifNone:))
) do: [:item | | aMethodCategory |
aMethodCategory := ElementCategory new categoryName: item first.
aMethodCategory documentation: item second.
item third do:
[:aSelector | | aMethodInterface |
aMethodInterface := MethodInterface new initializeFor: aSelector.
self atKey: aSelector putMethodInterface: aMethodInterface.
aMethodCategory elementAt: aSelector put: aMethodInterface].
self addCategory: aMethodCategory].
!
Locked
