[Pkg] The Trunk: Collections-nice.244.mcz

[commits at source.squeak.org]

Nicolas Cellier uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-nice.244.mcz

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

Name: Collections-nice.244
Author: nice
Time: 9 December 2009, 2:24:31 am
UUID: bb113dba-c81b-1f41-9185-65495b2b5f86
Ancestors: Collections-nice.243

Cosmetic clean-up:
- remove a useless send to private setString:setRuns: (and a useless Text creation)
- remove a useless send to oldBack crap


=============== Diff against Collections-nice.243 ===============

Item was changed:
  ----- Method: String>>asSignedInteger (in category 'converting') -----
  asSignedInteger
  	"Returns the first signed integer it can find or nil."
  
+ 	| start |
- 	| start stream |
  	start := self findFirst: [:char | char isDigit].
  	start isZero ifTrue: [^ nil].
+ 	(start > 1 and: [self at: start - 1]) = $- ifTrue: [start := start - 1].
+ 	^ Integer readFrom: (ReadStream on: self from: start to: self size)!
- 	stream := (ReadStream on: self) position: start.
- 	stream oldBack = $- ifTrue: [stream oldBack].
- 	^ Integer readFrom: stream!

Item was changed:
  ----- Method: AttributedTextStream>>contents (in category 'retrieving the text') -----
  contents
  	| ans |
  	currentRun > 0 ifTrue:[
  		attributeValues nextPut: currentAttributes.
  		attributeRuns nextPut: currentRun.
  		currentRun := 0].
+ 	ans := Text string: characters contents  runs: 
- 	ans := Text new: characters size.
- 	"this is declared private, but it's exactly what I need, and it's declared as exactly what I want it to do...."
- 	ans setString: characters contents  setRuns: 
  		(RunArray runs: attributeRuns contents values: attributeValues contents).
  	^ans!