Filename.st
changeset 845 6bcb2386d05a
parent 844 8833550c4e01
child 883 78d6c8b2b9f0
--- 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 $'
 ! !