The Trunk: System-ul.230.mcz

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

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

Name: System-ul.230
Author: ul
Time: 11 January 2010, 1:19:27.697 am
UUID: 1224d5f9-6222-774d-88d9-0c20fc144472
Ancestors: System-ar.229

- remove cr's from the patch sequence built by TextDiffBuilder >> #buildPatchSequence for backwards compatibility
- do not print extra cr's if the line ends with crlf in TextDiffBuilder >> #print:withAttributes:on:

=============== Diff against System-ar.229 ===============

Item was changed:
  ----- Method: TextDiffBuilder>>buildPatchSequence (in category 'creating patches') -----
  buildPatchSequence
  "This method is only implemented for backwards compatibility and testing."
 
  ^Array streamContents: [ :stream |
  self
+ patchSequenceDoIfMatch: [ :string |
+ stream nextPut: #match -> (string copyWithout: Character cr) ]
+ ifInsert: [ :string |
+ stream nextPut: #insert -> (string copyWithout: Character cr) ]
+ ifRemove: [ :string |
+ stream nextPut: #remove -> (string copyWithout: Character cr) ] ]!
- patchSequenceDoIfMatch: [ :string | stream nextPut: #match -> string ]
- ifInsert: [ :string | stream nextPut: #insert -> string ]
- ifRemove: [ :string | stream nextPut: #remove -> string ] ]!

Item was changed:
  ----- Method: TextDiffBuilder>>print:withAttributes:on: (in category 'private') -----
  print: aString withAttributes: attributes on: stream
 
  stream
  withAttributes: attributes
  do: [
  stream nextPutAll: aString.
+ (aString notEmpty and: [
+ aString last = Character cr or: [
+ aString endsWith: String crlf ] ])
+ ifFalse: [ stream cr ] ]!
- (aString isEmpty or: [ aString last ~= Character cr ]) ifTrue: [ stream cr ] ]!