--- a/FileDirectory.st	Wed Jul 29 17:00:10 2009 +0200
+++ b/FileDirectory.st	Thu Jul 30 10:00:27 2009 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libbasic' }"
 
 Collection subclass:#FileDirectory
@@ -195,6 +194,15 @@
 
 !FileDirectory methodsFor:'Compatibility-Squeak'!
 
+assureExistence
+    self asFilename recursiveMakeDirectory
+!
+
+containingDirectory
+    ^ self class
+        directoryNamed:(self asFilename directory pathName)
+!
+
 deleteDirectory:dirName
     "Squeak/ST80 compatibility"
 
@@ -222,6 +230,10 @@
     ^ self directories
 !
 
+entries
+    ^ self contents
+!
+
 fileExists:dir
     "Squeak/ST80 compatibility"
 
@@ -237,10 +249,32 @@
     ^ self files
 !
 
+forceNewFileNamed:fn
+    "Squeak/ST80 compatibility"
+
+    |f|
+
+    f := self filenameFor:fn.
+    ^ f writeStream
+!
+
 includesKey:name
     "Squeak/ST80 compatibility"
 
     ^ self exists:name
+!
+
+readOnlyFileNamed:fn
+    "Squeak/ST80 compatibility"
+
+    |f|
+
+    f := self filenameFor:fn.
+    ^ f readStream
+!
+
+recursiveDelete
+    self asFilename recursiveRemove
 ! !
 
 !FileDirectory methodsFor:'accessing'!
@@ -696,7 +730,7 @@
 !FileDirectory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.47 2006-04-26 10:55:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.48 2009-07-30 08:00:27 cg Exp $'
 ! !
 
 FileDirectory initialize!