# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1295970161 -3600
# Node ID 3be09aea2c0f34b79a825ff0507dfe1325f6160c
# Parent  6bb2fb9dc2b03cc64cdc7e23c16f59c4d954645e
added: #recursiveRemoveAll

diff -r 6bb2fb9dc2b0 -r 3be09aea2c0f Filename.st
--- a/Filename.st	Mon Jan 24 21:39:47 2011 +0100
+++ b/Filename.st	Tue Jan 25 16:42:41 2011 +0100
@@ -2980,9 +2980,8 @@
     "Modified: / 5.5.1999 / 13:43:35 / cg"
 !
 
-recursiveRemoveWithoutOSCommand
-    "if I represent a regular file, remove it.
-     Otherwise, remove the directory and all of its subfiles/subdirectories.
+recursiveRemoveAll
+    "Otherwise, remove all of my subfiles/subdirectories.
      Raise an error if not successful.
      This one walks down the directory hierarchy, not using any OS
      command to do the remove."
@@ -3010,6 +3009,29 @@
             ].
         ]
     ].
+
+    "
+     'foo' asFilename makeDirectory.
+     'foo/bar' asFilename writeStream close.
+     'foo' asFilename remove
+    "
+    "
+     'foo' asFilename makeDirectory.
+     'foo/bar' asFilename writeStream close.
+     'foo' asFilename recursiveRemove
+    "
+
+    "Created: / 25-01-2011 / 16:42:15 / cg"
+!
+
+recursiveRemoveWithoutOSCommand
+    "if I represent a regular file, remove it.
+     Otherwise, remove the directory and all of its subfiles/subdirectories.
+     Raise an error if not successful.
+     This one walks down the directory hierarchy, not using any OS
+     command to do the remove."
+
+    self recursiveRemoveAll.
     self remove
 
     "
@@ -3023,8 +3045,8 @@
      'foo' asFilename recursiveRemove
     "
 
-    "Created: / 25.2.1998 / 19:50:40 / cg"
-    "Modified: / 25.2.1998 / 19:52:08 / cg"
+    "Created: / 25-02-1998 / 19:50:40 / cg"
+    "Modified: / 25-01-2011 / 16:42:24 / cg"
 !
 
 remove
@@ -5817,11 +5839,11 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.363 2011-01-12 09:45:36 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.364 2011-01-25 15:42:41 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.363 2011-01-12 09:45:36 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.364 2011-01-25 15:42:41 cg Exp $'
 ! !
 
 Filename initialize!