[squeak-dev] The Trunk: Nebraska-nice.20.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Oct 20 22:52:44 UTC 2009


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

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

Name: Nebraska-nice.20
Author: nice
Time: 21 October 2009, 12:51:46 pm
UUID: 4fbb9c22-d741-4264-81e5-3a167ff6ba6a
Ancestors: Nebraska-nice.19

Use #keys rather than #fasterKeys
Note that pattern (x keys asArray sort) could as well be written (x keys sort) now that keys returns an Array...
This #asArray is here solely for cross-dialect/fork compatibility.

=============== Diff against Nebraska-nice.19 ===============

Item was changed:
  ----- Method: StringSocket class>>showRatesSeen (in category 'as yet unclassified') -----
  showRatesSeen
  "
  StringSocket showRatesSeen
  "
  	| answer |
  
  	MaxRatesSeen ifNil: [^Beeper beep].
  	answer := WriteStream on: String new.
+ 	MaxRatesSeen keys asArray sort do: [ :key |
- 	MaxRatesSeen fasterKeys sort do: [ :key |
  		answer nextPutAll: key printString,'  ',((MaxRatesSeen at: key) // 10000) printString; cr
  	].
  	StringHolder new contents: answer contents; openLabel: 'send rates at 10 second intervals'.!

Item was changed:
  ----- Method: CanvasEncoder class>>showStats (in category 'as yet unclassified') -----
  showStats
  "
  CanvasEncoder showStats
  "
  	| answer bucket |
  
  	SentTypesAndSizes ifNil: [^Beeper beep].
  	answer := WriteStream on: String new.
+ 	SentTypesAndSizes keys asArray sort do: [ :each |
- 	SentTypesAndSizes fasterKeys sort do: [ :each |
  		bucket := SentTypesAndSizes at: each.
  		answer nextPutAll: each printString,' ',
  				bucket first printString,'  ',
  				bucket second asStringWithCommas,' ',
  				(self nameForCode: each); cr.
  	].
  	StringHolder new contents: answer contents; openLabel: 'send/receive stats'.
  !




More information about the Squeak-dev mailing list