Mercurial Mercurial > hg > stx-libtool / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
FileOperation.st
changeset 5854 8c6042ba7495
parent 5846 d959a98a0047
child 5862 41b855c4028e 
--- a/FileOperation.st	Mon May 17 18:54:01 2004 +0200
+++ b/FileOperation.st	Mon May 17 19:10:31 2004 +0200
@@ -202,7 +202,7 @@
 !FileOperation::Copy class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.51 2004-05-14 10:39:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.52 2004-05-17 17:10:31 cg Exp $'
 ! !
 
 !FileOperation::Copy methodsFor:'accessing'!
@@ -412,7 +412,7 @@
 !FileOperation::Create class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.51 2004-05-14 10:39:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.52 2004-05-17 17:10:31 cg Exp $'
 ! !
 
 !FileOperation::Create methodsFor:'accessing'!
@@ -685,7 +685,7 @@
 !FileOperation::Delete class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.51 2004-05-14 10:39:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.52 2004-05-17 17:10:31 cg Exp $'
 ! !
 
 !FileOperation::Delete methodsFor:'actions'!
@@ -890,7 +890,7 @@
 !FileOperation::Move class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.51 2004-05-14 10:39:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.52 2004-05-17 17:10:31 cg Exp $'
 ! !
 
 !FileOperation::Move methodsFor:'accessing'!
@@ -980,10 +980,21 @@
 
     |newFile suffix fileString doMove|
 
-    (aDirectory exists) ifFalse:[
-        Dialog warn:('Cannot move to non-existing directory %1.' bindWith:aDirectory asString allBold).
-        result := false.
-        ^ self
+    aDirectory exists ifFalse:[
+        (Dialog confirm:(FileBrowser classResources 
+                            stringWithCRs:'Non-existing directory "%1" .\Create ?' 
+                            with:aDirectory asString allBold)) ifFalse:[
+            result := false.
+            ^ self
+        ].
+        aDirectory makeDirectory.
+        aDirectory exists ifFalse:[
+            Dialog warn:(FileBrowser classResources 
+                                stringWithCRs:'Cannot create directory "%1" !!\Create ?.' 
+                                with:aDirectory asString allBold).
+            result := false.
+            ^ self
+        ]
     ].
     (aDirectory isDirectory) ifFalse:[
         Dialog warn:('Destination %1 is not a directory.' bindWith:aDirectory asString allBold).
@@ -1061,7 +1072,7 @@
 !FileOperation::Rename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.51 2004-05-14 10:39:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.52 2004-05-17 17:10:31 cg Exp $'
 ! !
 
 !FileOperation::Rename methodsFor:'accessing'!
@@ -1176,5 +1187,5 @@
 !FileOperation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.51 2004-05-14 10:39:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.52 2004-05-17 17:10:31 cg Exp $'
 ! !
hg/stx-libtool