Mercurial Mercurial > hg > stx-libbasic2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
class: FtpURI expecco_2_7_1
authorStefan Vogel <sv@exept.de>
Tue, 02 Dec 2014 15:22:35 +0100
changeset 3452 366305432727
parent 3451 02cfd9f14962
child 3453 a49af911b6e0
class: FtpURI changed: #readStreamDo: (send #value:optionalArgument: instead of #value:optionalValue:) #readStreamsDo:skipFilenamesWithSuffix:renameBlock: (send #value:optionalArgument: instead of #value:optionalValue:) #writeStreamDo: (send #value:optionalArgument: instead of #value:optionalValue:) #writeStreamDo:create:atomic: (send #value:optionalArgument: instead of #value:optionalValue:)
FtpURI.st file | annotate | diff | comparison | revisions 
--- a/FtpURI.st	Tue Dec 02 15:22:27 2014 +0100
+++ b/FtpURI.st	Tue Dec 02 15:22:35 2014 +0100
@@ -112,7 +112,7 @@
             attributes at:#uriInfo  put:self printString.  
 
             stream := ftp getStreamFor:path.
-            aBlock value:stream optionalValue:attributes.
+            aBlock value:stream optionalArgument:attributes.
         ] ensure:[
             stream notNil ifTrue:[
                 stream close.
@@ -245,7 +245,7 @@
                 attributes at:#uriInfo put:srcUri.  
 
                 [ 
-                    aBlock value:stream optionalValue:attributes 
+                    aBlock value:stream optionalArgument:attributes 
                 ] ensure:[stream close].
 
                 renameBlock notNil ifTrue:[ |renameFilenameString|
@@ -284,7 +284,7 @@
     self connectThenDo:[:ftp| |stream|
         [
             stream := ftp putStreamFor:self path.
-            aBlock value:stream optionalValue:self class attributes.
+            aBlock value:stream optionalArgument:self class attributes.
         ] ensure:[
             stream notNil ifTrue:[
                 stream close.
@@ -355,7 +355,7 @@
                 ].
                 stream := ftp putStreamFor:toPath.
             ].
-            aBlock value:stream optionalValue:self class attributes.
+            aBlock value:stream optionalArgument:self class attributes.
             stream close.
             doAtomic ifTrue:[
                 ftp rename:toPath to:path
@@ -406,6 +406,6 @@
 !FtpURI class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/FtpURI.st,v 1.19 2013-06-04 10:15:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/FtpURI.st,v 1.20 2014-12-02 14:22:35 stefan Exp $'
 ! !
hg/stx-libbasic2