Levente Uzonyi uploaded a new version of Protocols to project The Trunk:
http://source.squeak.org/trunk/Protocols-ul.49.mcz==================== Summary ====================
Name: Protocols-ul.49
Author: ul
Time: 14 August 2015, 7:02:37.352 pm
UUID: 2ea47b34-1e1f-448e-9a27-fca207b28edd
Ancestors: Protocols-topa.48
#includesSubString: -> #includesSubstring:
=============== Diff against Protocols-topa.48 ===============
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))
- (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: 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
