[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
|