The Trunk: Files-cmm.121.mcz

Chris Muller uploaded a new version of Files to project The Trunk:
http://source.squeak.org/trunk/Files-cmm.121.mcz

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

Name: Files-cmm.121
Author: cmm
Time: 25 May 2013, 3:54:51.614 pm
UUID: cf0d0529-17d0-4e0a-9c42-c004bd6cf67d
Ancestors: Files-cmm.120

- Correct version of asBytesDescription.

=============== Diff against Files-cmm.120 ===============

Item was changed:
  ----- Method: Integer>>asBytesDescription (in category '*files') -----
  asBytesDescription
+ "Answer a terse, easily-readable representation of this Integer as a number of bytes.  Useful for file-browsers."
- "Answer a terse, easily-readable representation of this Integer reprsenting a number of bytes.  Useful for file-browsers."
  | suffixes |
+ self isZero ifTrue: [ ^ '0' ].
  suffixes := { 'k'"ilobytes". 'M'"egabytes". 'G'"igabytes". 'T'"erabytes". 'P'"etabytes". 'E'"xabytes". 'Z'"ettabytes". 'Y'"ottabytes"}.
  suffixes size to: 1 by: -1 do:
+ [ : index |  | units rounded |
- [ : index |  | units |
  units := 1000 raisedTo: index.
+ rounded := ((self/units) rounded)*units.
+ (rounded/self between: 0.95 and: 1.05) ifTrue: [  ^ ((self / units) rounded) asString, (suffixes at: index) ] ].
- self > (units-1) ifTrue: [ ^ ((self / units) rounded) asString, (suffixes at: index) ] ].
  ^ self asString!