The Trunk: Collections-topa.694.mcz

Tobias Pape uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-topa.694.mcz

==================== Summary ====================

Name: Collections-topa.694
Author: topa
Time: 1 June 2016, 12:04:48.190653 pm
UUID: b7698582-d2b0-4c81-b338-63705fd800ab
Ancestors: Collections-mt.693

provide some sample text in Text

=============== Diff against Collections-mt.693 ===============

Item was added:
+ ----- Method: Text class>>THEQUICKBROWNFOX (in category 'filler text') -----
+ THEQUICKBROWNFOX
+
+ ^ self fromString: 'THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG.'!

Item was added:
+ ----- Method: Text class>>allDigits (in category 'filler text') -----
+ allDigits
+
+ ^ self fromString: '0123456789'!

Item was added:
+ ----- Method: Text class>>hamburgefonstiv (in category 'filler text') -----
+ hamburgefonstiv
+
+ ^ self fromString: 'Hamburgefonstiv'!

Item was added:
+ ----- Method: Text class>>loremIpsum (in category 'filler text') -----
+ loremIpsum
+
+ ^ self fromString: 'Lorem ipsum dolor sit amet, consectetur adipisicing elit,
+ sed do eiusmod tempor incididunt ut labore et dolore
+ magna aliqua. Ut enim ad minim veniam, quis nostrud
+ exercitation ullamco laboris nisi ut aliquip ex ea commodo
+ consequat. Duis aute irure dolor in reprehenderit in voluptate
+ velit esse cillum dolore eu fugiat nulla pariatur. Excepteur
+ sint occaecat cupidatat non proident, sunt in culpa qui
+ officia deserunt mollit anim id est laborum.'!

Item was added:
+ ----- Method: Text class>>symbolSample (in category 'filler text') -----
+ symbolSample
+
+ ^ self streamContents: [:stream | | lineLength character|
+ lineLength := 0.
+ 33 to: 255 do:[ :index |
+ character := stream nextPut: (Character value: index).
+ lineLength := lineLength + 1.
+ (('@Z`z' includes: character) or: [lineLength >= 30])
+ ifTrue: [
+ lineLength :=0.
+ stream cr]]]!

Item was added:
+ ----- Method: Text class>>textSample (in category 'filler text') -----
+ textSample
+
+ ^ self streamContents: [:stream |
+ stream
+ nextPutAll: self hamburgefonstiv; cr;
+ nextPutAll: self theQuickBrownFox; cr;
+ nextPutAll: self THEQUICKBROWNFOX; cr; cr;
+ nextPutAll: self allDigits; cr; cr;
+ nextPutAll: self loremIpsum]!

Item was added:
+ ----- Method: Text class>>theQuickBrownFox (in category 'filler text') -----
+ theQuickBrownFox
+
+ ^ self fromString: 'the quick brown fox jumps over the lazy dog'!