FileOperation.st
changeset 4273 df4ed96689cd
parent 4016 2804208cc7ab
child 4395 ba0469b42c99
--- a/FileOperation.st	Mon Nov 18 11:40:59 2002 +0100
+++ b/FileOperation.st	Mon Nov 18 12:37:28 2002 +0100
@@ -205,7 +205,7 @@
 !FileOperation::Copy class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.11 2002-10-21 08:16:56 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.12 2002-11-18 11:37:13 cg Exp $'
 ! !
 
 !FileOperation::Copy methodsFor:'accessing'!
@@ -409,7 +409,7 @@
 !FileOperation::Create class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.11 2002-10-21 08:16:56 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.12 2002-11-18 11:37:13 cg Exp $'
 ! !
 
 !FileOperation::Create methodsFor:'accessing'!
@@ -645,7 +645,7 @@
 !FileOperation::Delete class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.11 2002-10-21 08:16:56 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.12 2002-11-18 11:37:13 cg Exp $'
 ! !
 
 !FileOperation::Delete methodsFor:'actions'!
@@ -784,7 +784,7 @@
 !FileOperation::Move class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.11 2002-10-21 08:16:56 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.12 2002-11-18 11:37:13 cg Exp $'
 ! !
 
 !FileOperation::Move methodsFor:'accessing'!
@@ -953,7 +953,7 @@
 !FileOperation::Rename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.11 2002-10-21 08:16:56 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.12 2002-11-18 11:37:13 cg Exp $'
 ! !
 
 !FileOperation::Rename methodsFor:'accessing'!
@@ -1020,7 +1020,7 @@
         oldName := oldFile baseName asString.
         queryBox title:('Rename ' , oldName , ' to:').
         lastNewName notNil ifTrue:[
-            initialText := FileBrowser goodRenameDefaultFor:oldName lastOld:lastOldName lastNew:lastNewName
+            initialText := FileBrowser goodRenameDefaultForFile:oldName lastOld:lastOldName lastNew:lastNewName
         ].
         queryBox initialText:(initialText ? oldName).
         queryBox 
@@ -1038,5 +1038,5 @@
 !FileOperation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.11 2002-10-21 08:16:56 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.12 2002-11-18 11:37:13 cg Exp $'
 ! !