--- a/FileDirectory.st	Sun Aug 16 18:14:23 2009 +0100
+++ b/FileDirectory.st	Wed Aug 19 17:14:36 2009 +0100
@@ -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
-    ^ '$Id: FileDirectory.st 10447 2009-06-14 13:09:55Z vranyj1 $'
+    ^ '$Id: FileDirectory.st 10467 2009-08-19 16:14:36Z vranyj1 $'
 ! !
 
 FileDirectory initialize!