pathname instead filename to copy directory to directory
authorpenk
Fri, 14 Mar 2003 15:30:48 +0100
changeset 4664 526ee0c92be6
parent 4663 d11b898b6fc5
child 4665 cd7e02bf5d85
pathname instead filename to copy directory to directory
FileOperation.st
--- a/FileOperation.st	Fri Mar 14 15:29:50 2003 +0100
+++ b/FileOperation.st	Fri Mar 14 15:30:48 2003 +0100
@@ -196,7 +196,7 @@
 !FileOperation::Copy class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.26 2003-03-09 16:51:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.27 2003-03-14 14:30:48 penk Exp $'
 ! !
 
 !FileOperation::Copy methodsFor:'accessing'!
@@ -275,7 +275,7 @@
     ] do:[
         sourceIsDirectory ifTrue:[
             OperatingSystem recursiveCopyDirectory:(aSourceFile pathName) 
-                                                to:newFile.
+                                                to:(newFile pathName).
         ] ifFalse:[
             aSourceFile copyTo:newFile.
         ].
@@ -400,7 +400,7 @@
 !FileOperation::Create class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.26 2003-03-09 16:51:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.27 2003-03-14 14:30:48 penk Exp $'
 ! !
 
 !FileOperation::Create methodsFor:'accessing'!
@@ -646,7 +646,7 @@
 !FileOperation::Delete class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.26 2003-03-09 16:51:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.27 2003-03-14 14:30:48 penk Exp $'
 ! !
 
 !FileOperation::Delete methodsFor:'actions'!
@@ -810,7 +810,7 @@
 !FileOperation::Move class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.26 2003-03-09 16:51:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.27 2003-03-14 14:30:48 penk Exp $'
 ! !
 
 !FileOperation::Move methodsFor:'accessing'!
@@ -980,7 +980,7 @@
 !FileOperation::Rename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.26 2003-03-09 16:51:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.27 2003-03-14 14:30:48 penk Exp $'
 ! !
 
 !FileOperation::Rename methodsFor:'accessing'!
@@ -1067,5 +1067,5 @@
 !FileOperation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.26 2003-03-09 16:51:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.27 2003-03-14 14:30:48 penk Exp $'
 ! !