class: UnitConverter
authorsr
Thu, 18 Dec 2014 09:55:11 +0100
changeset 3457 bb6ea4a7909c
parent 3456 8a3302fd3cce
child 3458 7f77f7f5dbd9
class: UnitConverter changed: #fileSizeStringFor:
UnitConverter.st
--- a/UnitConverter.st	Wed Dec 17 21:17:07 2014 +0100
+++ b/UnitConverter.st	Thu Dec 18 09:55:11 2014 +0100
@@ -872,6 +872,10 @@
 
     |unitString n|
 
+    nBytes isNil ifTrue:[
+        ^ '-'
+    ].
+
     nBytes < (1000 * 1024 * 1024 * 1024) ifTrue:[
         nBytes < (1000 * 1024 * 1024) ifTrue:[
             nBytes < (1000 * 1024) ifTrue:[
@@ -911,6 +915,7 @@
     ^ n printString , unitString.
 
     "
+     self fileSizeStringFor:nil          
      self fileSizeStringFor:10          
      self fileSizeStringFor:100            
      self fileSizeStringFor:1000            
@@ -931,6 +936,7 @@
     "
 
     "Modified: / 17-12-2013 / 16:55:17 / cg"
+    "Modified (comment): / 18-12-2014 / 09:54:33 / sr"
 !
 
 frequencyFromString:frequencyString
@@ -1158,10 +1164,10 @@
 !UnitConverter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/UnitConverter.st,v 1.44 2013-12-17 15:58:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/UnitConverter.st,v 1.45 2014-12-18 08:55:11 sr Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/UnitConverter.st,v 1.44 2013-12-17 15:58:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/UnitConverter.st,v 1.45 2014-12-18 08:55:11 sr Exp $'
 ! !