--- 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 $'
! !