The Trunk: System-ul.391.mcz

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

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

Name: System-ul.391
Author: ul
Time: 6 November 2010, 4:15:03.804 am
UUID: 4da8fee3-53d5-c045-abe8-c0ce5d6efa14
Ancestors: System-ul.390

- added MessageTally default size tweaks from Cuis
- DiffElement is not string specific anymore (removed the isOctetString-asOctetStringText nonsense)
- ClassDiffBuilder's diffs are now based on characters instead of words, because it's fast enough and usually gives better results

=============== Diff against System-ul.390 ===============

Item was changed:
  ----- Method: ClassDiffBuilder>>print:withAttributes:on: (in category 'private') -----
+ print: aCharacter withAttributes: attributes on: stream
- print: aString withAttributes: attributes on: stream
 
  stream
  currentAttributes: attributes;
+ nextPut: aCharacter!
- nextPutAll: aString!

Item was changed:
  ----- Method: ClassDiffBuilder>>split: (in category 'private') -----
  split: aString
+ "Diff by characters."
- "I return an array with aString splitted by Character >> #separators."
 
+ ^aString as: Array!
- ^Array streamContents: [ :stream |
- | input separators |
- input := aString readStream.
- separators := CharacterSet separators.
- [ input atEnd ] whileFalse: [
- | word separator |
- word := input
- upToAnyOf: separators
- do: [ :matchingSeparator |
- separator := matchingSeparator ].
- stream nextPut: (separator
- ifNil: [ word ]
- ifNotNil: [ word, separator asString ]) ] ]!

Item was changed:
  ----- Method: DiffElement>>string: (in category 'accessing') -----
  string: aString
 
  string := aString.
- string isOctetString ifTrue: [ "Make sure that #hash will return the same value if the strings are equal."
- string := string asOctetString ].
  hash := string hash!

Item was changed:
  ----- Method: MessageTally class>>defaultMaxClassNameSize (in category 'defaults') -----
  defaultMaxClassNameSize
  "Return the default maximum width of the class name alone"
+ ^50!
- ^30!

Item was changed:
  ----- Method: MessageTally class>>defaultMaxClassPlusSelectorSize (in category 'defaults') -----
  defaultMaxClassPlusSelectorSize
  "Return the default maximum width of the class plus selector together (not counting the '>>')"
+ ^100!
- ^60!