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 3977 52e9db551c1a
parent 3975 dcaac82381dc
child 4006 8c706ba8b3b5 
--- a/FileOperation.st	Fri Oct 11 15:38:13 2002 +0200
+++ b/FileOperation.st	Fri Oct 11 17:43:29 2002 +0200
@@ -205,7 +205,7 @@
 !FileOperation::Copy class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.8 2002-10-11 13:37:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.9 2002-10-11 15:43:29 cg Exp $'
 ! !
 
 !FileOperation::Copy methodsFor:'accessing'!
@@ -408,7 +408,7 @@
 !FileOperation::Create class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.8 2002-10-11 13:37:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.9 2002-10-11 15:43:29 cg Exp $'
 ! !
 
 !FileOperation::Create methodsFor:'accessing'!
@@ -644,7 +644,7 @@
 !FileOperation::Delete class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.8 2002-10-11 13:37:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.9 2002-10-11 15:43:29 cg Exp $'
 ! !
 
 !FileOperation::Delete methodsFor:'actions'!
@@ -678,25 +678,24 @@
 deleteFiles:colOfFiles
     "delete current selected files/directories
     "
-    | retVal ask size|
+    | retVal ask size labels values |
 
     ask := true.
     size := colOfFiles size.
     colOfFiles do:[: filename |
         ask ifTrue:[
             size = 1 ifTrue:[
-                retVal := Dialog 
-                    confirmWithCancel:('really delete ', filename asString , ' ?')
-                               labels:#('Yes' 'No' 'Cancel')
-                               values:#(#yes #no #cancel)
-                              default:1.
+                labels := #('Yes' 'No' 'Cancel').
+                values := #(#yes #no #cancel).
             ] ifFalse:[
-                retVal := Dialog 
-                    confirmWithCancel:('really delete ', filename asString , ' ?')
-                               labels:#('Yes' 'No' 'Yes to All' 'Cancel')
-                               values:#(#yes #no #yesToAll #cancel)
-                              default:1.
-            ]
+                labels := #('Yes' 'No' 'Yes to All' 'Cancel').
+                values := #(#yes #no #yesToAll #cancel).
+            ].
+            retVal := Dialog 
+                confirmWithCancel:('Really Delete ', filename asString allBold, ' ?')
+                           labels:labels
+                           values:values
+                          default:1.
         ].
         retVal == #cancel ifTrue:[
             ^ self.
@@ -783,7 +782,7 @@
 !FileOperation::Move class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.8 2002-10-11 13:37:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.9 2002-10-11 15:43:29 cg Exp $'
 ! !
 
 !FileOperation::Move methodsFor:'accessing'!
@@ -951,7 +950,7 @@
 !FileOperation::Rename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.8 2002-10-11 13:37:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.9 2002-10-11 15:43:29 cg Exp $'
 ! !
 
 !FileOperation::Rename methodsFor:'accessing'!
@@ -1036,5 +1035,5 @@
 !FileOperation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.8 2002-10-11 13:37:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.9 2002-10-11 15:43:29 cg Exp $'
 ! !
hg/stx-libtool