FileURI.st
changeset 3453 a49af911b6e0
parent 2871 af6745fe3136
child 4182 4c84b6a60de4
--- a/FileURI.st	Tue Dec 02 15:22:35 2014 +0100
+++ b/FileURI.st	Tue Dec 02 15:22:43 2014 +0100
@@ -139,7 +139,7 @@
 
     ^ [ 
         stream := file readStream.
-        aBlock value:stream optionalValue:attributes
+        aBlock value:stream optionalArgument:attributes
      ] ensure:[
         stream notNil ifTrue:[stream close]
      ].
@@ -227,7 +227,7 @@
                 attributes at:#uriInfo put:uri.  
             ].
             stream := eachFilename readStream.
-            aBlock value:stream optionalValue:attributes.
+            aBlock value:stream optionalArgument:attributes.
         ] ensure:[
             stream notNil ifTrue:[stream close]
         ].
@@ -271,7 +271,7 @@
 
     ^ [
         stream := self asFilename writeStream.
-        aBlock value:stream optionalValue:self class attributes
+        aBlock value:stream optionalArgument:self class attributes
      ] ensure:[
         stream notNil ifTrue:[stream close]
      ].
@@ -330,7 +330,7 @@
             ].
             stream := toFileName writeStream.
         ].
-        aBlock value:stream optionalValue:self class attributes.
+        aBlock value:stream optionalArgument:self class attributes.
         stream close.
         doAtomic ifTrue:[
             toFileName moveTo:fileName.
@@ -352,10 +352,10 @@
 !FileURI class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/FileURI.st,v 1.17 2013-01-20 15:28:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/FileURI.st,v 1.18 2014-12-02 14:22:43 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/FileURI.st,v 1.17 2013-01-20 15:28:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/FileURI.st,v 1.18 2014-12-02 14:22:43 stefan Exp $'
 ! !