FileOperation.st
changeset 4016 2804208cc7ab
parent 4006 8c706ba8b3b5
child 4273 df4ed96689cd
--- a/FileOperation.st	Mon Oct 21 10:13:21 2002 +0200
+++ b/FileOperation.st	Mon Oct 21 10:16:56 2002 +0200
@@ -205,7 +205,7 @@
 !FileOperation::Copy class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.10 2002-10-16 08:28:47 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.11 2002-10-21 08:16:56 stefan Exp $'
 ! !
 
 !FileOperation::Copy methodsFor:'accessing'!
@@ -326,7 +326,7 @@
             ((newFile asString = filename asString) and:[copy]) ifTrue:[
                 [newFile exists] whileTrue:[
                     suffix := newFile suffix.
-                    fileString := newFile baseName withoutSuffix, self class copyMoveIfExistSuffixString, '.', suffix.
+                    fileString := newFile withoutSuffix baseName, self class copyMoveIfExistSuffixString, '.', suffix.
                     newFile := aDirectory construct:fileString.
                 ].
             ] ifFalse:[
@@ -409,7 +409,7 @@
 !FileOperation::Create class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.10 2002-10-16 08:28:47 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.11 2002-10-21 08:16:56 stefan Exp $'
 ! !
 
 !FileOperation::Create methodsFor:'accessing'!
@@ -645,7 +645,7 @@
 !FileOperation::Delete class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.10 2002-10-16 08:28:47 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.11 2002-10-21 08:16:56 stefan Exp $'
 ! !
 
 !FileOperation::Delete methodsFor:'actions'!
@@ -784,7 +784,7 @@
 !FileOperation::Move class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.10 2002-10-16 08:28:47 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.11 2002-10-21 08:16:56 stefan Exp $'
 ! !
 
 !FileOperation::Move methodsFor:'accessing'!
@@ -953,7 +953,7 @@
 !FileOperation::Rename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.10 2002-10-16 08:28:47 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.11 2002-10-21 08:16:56 stefan Exp $'
 ! !
 
 !FileOperation::Rename methodsFor:'accessing'!
@@ -1038,5 +1038,5 @@
 !FileOperation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.10 2002-10-16 08:28:47 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.11 2002-10-21 08:16:56 stefan Exp $'
 ! !