changed: #makeLegalFilename
authorClaus Gittinger <cg@exept.de>
Wed, 01 Dec 2010 18:54:15 +0100
changeset 13158 75976f0d731a
parent 13157 0e11977963c2
child 13159 04ecf0207585
changed: #makeLegalFilename blanks are legal filename characters
PCFilename.st
--- a/PCFilename.st	Wed Dec 01 14:03:50 2010 +0100
+++ b/PCFilename.st	Wed Dec 01 18:54:15 2010 +0100
@@ -311,9 +311,9 @@
     "/ replace colons by underscore
     "/ may need more to convert - time will show
 
-    (nameString indexOfAny:#($: $ ) startingAt:srchStart) ~~ 0 ifTrue:[
+    (nameString indexOfAny:#($: ) startingAt:srchStart) ~~ 0 ifTrue:[
         nameString := nameString copy.
-        nameString replaceAny:#($: $ ) with:$_ from:srchStart to:(nameString size).
+        nameString replaceAny:#($: ) with:$_ from:srchStart to:(nameString size).
     ].
     ^ self
 
@@ -326,7 +326,7 @@
      '\\idefix\' asFilename makeLegalFilename 
     "
 
-    "Modified: / 11.10.1998 / 01:40:47 / cg"
+    "Modified: / 01-12-2010 / 18:53:59 / cg"
 !
 
 makeNonDOSName
@@ -886,9 +886,9 @@
 !PCFilename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PCFilename.st,v 1.51 2010-10-26 10:47:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PCFilename.st,v 1.52 2010-12-01 17:54:15 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/PCFilename.st,v 1.51 2010-10-26 10:47:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PCFilename.st,v 1.52 2010-12-01 17:54:15 cg Exp $'
 ! !