--- a/Filename.st Tue Jan 09 15:33:13 1996 +0100
+++ b/Filename.st Wed Jan 10 18:45:16 1996 +0100
@@ -808,20 +808,20 @@
!
remove
- "remove the file/directory - the argument must be convertable to a String.
+ "remove the file/directory.
Raise an error if not successful.
- Use recursiveRemove in order to (recursively) remove non empty directories."
+ Use #recursiveRemove in order to (recursively) remove non empty directories."
|ok|
self exists ifFalse:[ ^ self].
self isDirectory ifTrue:[
- ok := OperatingSystem removeDirectory:nameString
+ ok := OperatingSystem removeDirectory:nameString
] ifFalse:[
- ok := OperatingSystem removeFile:nameString
+ ok := OperatingSystem removeFile:nameString
].
ok ifFalse:[
- self removeError:self
+ self removeError:self
].
"
@@ -833,11 +833,11 @@
'foo' asFilename makeDirectory.
'foo/bar' asFilename writeStream close.
('foo' asFilename remove) ifFalse:[
- Transcript showCr:'could not remove foo'
+ Transcript showCr:'could not remove foo'
]
"
- "Modified: 14.11.1995 / 11:18:26 / cg"
+ "Modified: 10.1.1996 / 18:44:50 / cg"
!
removeAccessRights:aCollection
@@ -1613,5 +1613,5 @@
!Filename class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.47 1996-01-09 14:33:13 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.48 1996-01-10 17:45:16 cg Exp $'
! !