--- 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 $'
! !