PCFilename.st
changeset 3873 4a81549760f7
parent 3853 949e67b19d6b
child 4374 0b2a18a8cf84
--- a/PCFilename.st	Fri Oct 09 16:19:06 1998 +0200
+++ b/PCFilename.st	Tue Oct 13 14:31:53 1998 +0200
@@ -213,9 +213,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
 
@@ -228,7 +228,7 @@
      '\\idefix\' asFilename makeLegalFilename 
     "
 
-    "Modified: / 24.9.1998 / 12:56:53 / cg"
+    "Modified: / 11.10.1998 / 01:40:47 / cg"
 ! !
 
 !PCFilename methodsFor:'file operations'!
@@ -594,5 +594,5 @@
 !PCFilename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PCFilename.st,v 1.19 1998-09-24 18:49:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PCFilename.st,v 1.20 1998-10-13 12:31:53 cg Exp $'
 ! !