[Pkg] The Trunk: System-ul.391.mcz

[commits at source.squeak.org]

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!