The Trunk: Files-nice.65.mcz

Nicolas Cellier uploaded a new version of Files to project The Trunk:
http://source.squeak.org/trunk/Files-nice.65.mcz

==================== Summary ====================

Name: Files-nice.65
Author: nice
Time: 12 January 2010, 8:41:11.49 am
UUID: d18711b3-905c-3540-9bc7-10f6f8fcfd35
Ancestors: Files-ar.64

Extend fileNamed:do: protocol to FileDirectory

=============== Diff against Files-ar.64 ===============

Item was added:
+ ----- Method: FileDirectory>>oldFileNamed:do: (in category 'file stream creation') -----
+ oldFileNamed: localFileName do: aBlock
+ "Open the existing file with the given name in this directory and pass it as argument to aBlock."
+
+ ^ FileStream concreteStream oldFileNamed: (self fullNameFor: localFileName) do: aBlock
+ !

Item was added:
+ ----- Method: FileDirectory>>readOnlyFileNamed:do: (in category 'file stream creation') -----
+ readOnlyFileNamed: localFileName do: aBlock
+ "Open the existing file with the given name in this directory for read-only access and pass it as argument to aBlock."
+
+ ^ FileStream concreteStream readOnlyFileNamed: (self fullNameFor: localFileName) do: aBlock
+ !

Item was added:
+ ----- Method: FileDirectory>>fileNamed:do: (in category 'file stream creation') -----
+ fileNamed: localFileName do: aBlock
+ "Open the file with the given name in this directory for writing and pass it as argument to aBlock."
+
+ ^ FileStream concreteStream fileNamed: (self fullNameFor: localFileName) do: aBlock
+ !

Item was added:
+ ----- Method: FileDirectory>>forceNewFileNamed:do: (in category 'file stream creation') -----
+ forceNewFileNamed: localFileName do: aBlock
+ "Open the file with the given name in this directory for writing.  If it already exists, delete it first without asking and pass it as argument to aBlock."
+
+ ^ FileStream concreteStream forceNewFileNamed: (self fullNameFor: localFileName) do: aBlock
+ !

Item was added:
+ ----- Method: FileDirectory>>newFileNamed:do: (in category 'file stream creation') -----
+ newFileNamed: localFileName do: aBlock
+ "Create a new file with the given name in this directory and pass it as argument to aBlock."
+
+ ^ FileStream concreteStream newFileNamed: (self fullNameFor: localFileName) do: aBlock
+ !