[Pkg] The Trunk: Collections-ul.438.mcz

[commits at source.squeak.org]

Levente Uzonyi uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-ul.438.mcz

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

Name: Collections-ul.438
Author: ul
Time: 11 April 2011, 4:25:33.627 am
UUID: e067af4f-c9c6-2f41-a91e-ac221f40bd94
Ancestors: Collections-dtl.437

- added #basicNext: to Stream
- added #basicBack and #basicUpTo: to PositionableStream
- recategorized #basic* methods in Stream
- fixed the comment of SequenceableCollection >> #reverseInPlace

=============== Diff against Collections-dtl.437 ===============

Item was added:
+ ----- Method: PositionableStream>>basicBack (in category 'accessing - multibyte support') -----
+ basicBack
+ 
+ 	^self back!

Item was added:
+ ----- Method: PositionableStream>>basicUpTo: (in category 'accessing - multibyte support') -----
+ basicUpTo: anObject
+ 
+ 	^self next: anObject
+ !

Item was changed:
  ----- Method: SequenceableCollection>>reverseInPlace (in category 'converting') -----
  reverseInPlace
+ 	"Reverse this collection in place."
- 	"Reverse this collect in place."
  	
  	| start end |
  	start := 1.
  	end := self size.
  	[ start < end ] whileTrue: [
  		| temp |
  		temp := self at: start.
  		self
  			at: start put: (self at: end);
  			at: end put: temp.
  		start := start + 1.
  		end := end - 1 ]
  !

Item was changed:
+ ----- Method: Stream>>basicNext (in category 'accessing - multibyte support') -----
- ----- Method: Stream>>basicNext (in category 'accessing') -----
  basicNext
  
  	^ self next.
  !

Item was added:
+ ----- Method: Stream>>basicNext: (in category 'accessing - multibyte support') -----
+ basicNext: anInteger 
+ 
+ 	^self next: anInteger
+ !

Item was changed:
+ ----- Method: Stream>>basicNext:putAll:startingAt: (in category 'accessing - multibyte support') -----
- ----- Method: Stream>>basicNext:putAll:startingAt: (in category 'accessing') -----
  basicNext: anInteger putAll: aCollection startingAt: startIndex
  
  	^self next: anInteger putAll: aCollection startingAt: startIndex
  !

Item was changed:
+ ----- Method: Stream>>basicNextPut: (in category 'accessing - multibyte support') -----
- ----- Method: Stream>>basicNextPut: (in category 'accessing') -----
  basicNextPut: anObject 
  
  	^ self nextPut: anObject!

Item was changed:
+ ----- Method: Stream>>basicNextPutAll: (in category 'accessing - multibyte support') -----
- ----- Method: Stream>>basicNextPutAll: (in category 'accessing') -----
  basicNextPutAll: aCollection 
  
  	^ self nextPutAll: aCollection.
  !