author | Claus Gittinger <cg@exept.de> |
Thu, 19 Dec 2002 16:41:13 +0100 | |
changeset 4395 | ba0469b42c99 |
parent 4273 | df4ed96689cd |
child 4408 | 8c0c80b68ae7 |
permissions | -rw-r--r-- |
3841 | 1 |
"{ Package: 'stx:libtool2' }" |
2 |
||
3 |
Object subclass:#FileOperation |
|
3975
dcaac82381dc
share goodRenameDefault code with FileBrowser
Claus Gittinger <cg@exept.de>
parents:
3877
diff
changeset
|
4 |
instanceVariableNames:'errorString result' |
dcaac82381dc
share goodRenameDefault code with FileBrowser
Claus Gittinger <cg@exept.de>
parents:
3877
diff
changeset
|
5 |
classVariableNames:'' |
dcaac82381dc
share goodRenameDefault code with FileBrowser
Claus Gittinger <cg@exept.de>
parents:
3877
diff
changeset
|
6 |
poolDictionaries:'' |
dcaac82381dc
share goodRenameDefault code with FileBrowser
Claus Gittinger <cg@exept.de>
parents:
3877
diff
changeset
|
7 |
category:'Interface-Support' |
3841 | 8 |
! |
9 |
||
3842 | 10 |
FileOperation subclass:#Copy |
3975
dcaac82381dc
share goodRenameDefault code with FileBrowser
Claus Gittinger <cg@exept.de>
parents:
3877
diff
changeset
|
11 |
instanceVariableNames:'colOfCopiedFiles' |
dcaac82381dc
share goodRenameDefault code with FileBrowser
Claus Gittinger <cg@exept.de>
parents:
3877
diff
changeset
|
12 |
classVariableNames:'' |
dcaac82381dc
share goodRenameDefault code with FileBrowser
Claus Gittinger <cg@exept.de>
parents:
3877
diff
changeset
|
13 |
poolDictionaries:'' |
dcaac82381dc
share goodRenameDefault code with FileBrowser
Claus Gittinger <cg@exept.de>
parents:
3877
diff
changeset
|
14 |
privateIn:FileOperation |
3842 | 15 |
! |
16 |
||
17 |
FileOperation subclass:#Create |
|
3975
dcaac82381dc
share goodRenameDefault code with FileBrowser
Claus Gittinger <cg@exept.de>
parents:
3877
diff
changeset
|
18 |
instanceVariableNames:'createdFile' |
dcaac82381dc
share goodRenameDefault code with FileBrowser
Claus Gittinger <cg@exept.de>
parents:
3877
diff
changeset
|
19 |
classVariableNames:'LastCreatedDirectory LastCreatedFile' |
dcaac82381dc
share goodRenameDefault code with FileBrowser
Claus Gittinger <cg@exept.de>
parents:
3877
diff
changeset
|
20 |
poolDictionaries:'' |
dcaac82381dc
share goodRenameDefault code with FileBrowser
Claus Gittinger <cg@exept.de>
parents:
3877
diff
changeset
|
21 |
privateIn:FileOperation |
3842 | 22 |
! |
23 |
||
24 |
FileOperation subclass:#Delete |
|
3975
dcaac82381dc
share goodRenameDefault code with FileBrowser
Claus Gittinger <cg@exept.de>
parents:
3877
diff
changeset
|
25 |
instanceVariableNames:'fileName' |
dcaac82381dc
share goodRenameDefault code with FileBrowser
Claus Gittinger <cg@exept.de>
parents:
3877
diff
changeset
|
26 |
classVariableNames:'' |
dcaac82381dc
share goodRenameDefault code with FileBrowser
Claus Gittinger <cg@exept.de>
parents:
3877
diff
changeset
|
27 |
poolDictionaries:'' |
dcaac82381dc
share goodRenameDefault code with FileBrowser
Claus Gittinger <cg@exept.de>
parents:
3877
diff
changeset
|
28 |
privateIn:FileOperation |
3842 | 29 |
! |
30 |
||
31 |
FileOperation subclass:#Move |
|
3975
dcaac82381dc
share goodRenameDefault code with FileBrowser
Claus Gittinger <cg@exept.de>
parents:
3877
diff
changeset
|
32 |
instanceVariableNames:'colOfMovedFiles' |
dcaac82381dc
share goodRenameDefault code with FileBrowser
Claus Gittinger <cg@exept.de>
parents:
3877
diff
changeset
|
33 |
classVariableNames:'' |
dcaac82381dc
share goodRenameDefault code with FileBrowser
Claus Gittinger <cg@exept.de>
parents:
3877
diff
changeset
|
34 |
poolDictionaries:'' |
dcaac82381dc
share goodRenameDefault code with FileBrowser
Claus Gittinger <cg@exept.de>
parents:
3877
diff
changeset
|
35 |
privateIn:FileOperation |
3842 | 36 |
! |
37 |
||
38 |
FileOperation subclass:#Rename |
|
3975
dcaac82381dc
share goodRenameDefault code with FileBrowser
Claus Gittinger <cg@exept.de>
parents:
3877
diff
changeset
|
39 |
instanceVariableNames:'renamedFiles' |
dcaac82381dc
share goodRenameDefault code with FileBrowser
Claus Gittinger <cg@exept.de>
parents:
3877
diff
changeset
|
40 |
classVariableNames:'' |
dcaac82381dc
share goodRenameDefault code with FileBrowser
Claus Gittinger <cg@exept.de>
parents:
3877
diff
changeset
|
41 |
poolDictionaries:'' |
dcaac82381dc
share goodRenameDefault code with FileBrowser
Claus Gittinger <cg@exept.de>
parents:
3877
diff
changeset
|
42 |
privateIn:FileOperation |
3842 | 43 |
! |
44 |
||
3841 | 45 |
|
46 |
!FileOperation class methodsFor:'defaults'! |
|
47 |
||
48 |
copyMoveIfExistSuffixString |
|
49 |
||
50 |
^ '.copy' |
|
51 |
! ! |
|
52 |
||
3842 | 53 |
!FileOperation class methodsFor:'private class access'! |
54 |
||
55 |
copy |
|
56 |
^ Copy |
|
57 |
! |
|
58 |
||
59 |
create |
|
60 |
^ Create |
|
61 |
! |
|
62 |
||
63 |
delete |
|
64 |
^ Delete |
|
65 |
! |
|
66 |
||
67 |
move |
|
68 |
^ Move |
|
69 |
! |
|
70 |
||
71 |
rename |
|
72 |
^ Rename |
|
73 |
! ! |
|
74 |
||
3841 | 75 |
!FileOperation methodsFor:'accessing'! |
76 |
||
77 |
errorString |
|
78 |
"return the value of the static variable 'ErrorString' (automatically generated)" |
|
79 |
||
80 |
^ errorString |
|
81 |
! |
|
82 |
||
83 |
errorString:something |
|
84 |
"set the value of the static variable 'ErrorString' (automatically generated)" |
|
85 |
||
86 |
errorString := something. |
|
87 |
! |
|
88 |
||
89 |
result |
|
90 |
"return the value of the instance variable 'result' (automatically generated)" |
|
91 |
||
92 |
^ result |
|
93 |
! |
|
94 |
||
95 |
result:something |
|
96 |
"set the value of the instance variable 'result' (automatically generated)" |
|
97 |
||
98 |
result := something. |
|
99 |
! ! |
|
100 |
||
101 |
!FileOperation methodsFor:'dialogs'! |
|
102 |
||
103 |
fileExistDialogFor:aFile |
|
104 |
||
105 |
^ self fileExistDialogFor:aFile withCancel:false. |
|
106 |
! |
|
107 |
||
108 |
fileExistDialogFor:aFile withCancel:aBoolean |
|
109 |
| stream string| |
|
110 |
||
111 |
aFile exists ifTrue:[ |
|
112 |
stream := WriteStream on:''. |
|
113 |
stream nextPutAll:'overwrite '. |
|
114 |
stream nextPutAll:(aFile asString). |
|
115 |
stream nextPutAll:' from '. |
|
116 |
(aFile modificationTime) printOn:stream format:'%(Day)-%(mon)-%(year) %h:%m:%s'. |
|
117 |
stream nextPutAll:' with size of '. |
|
118 |
stream nextPutAll:aFile fileSize asString. |
|
119 |
stream cr. |
|
120 |
stream nextPutAll:' with '. |
|
121 |
stream nextPutAll:aFile asString. |
|
122 |
stream nextPutAll:' from '. |
|
123 |
(aFile modificationTime) printOn:stream format:'%(Day)-%(mon)-%(year) %h:%m:%s'. |
|
124 |
stream nextPutAll:' with size of '. |
|
125 |
stream nextPutAll:aFile fileSize asString. |
|
126 |
string := stream contents. |
|
127 |
stream close. |
|
128 |
aBoolean ifTrue:[ |
|
129 |
^ (Dialog confirmWithCancel:(string)). |
|
130 |
] ifFalse:[ |
|
131 |
^ (Dialog confirm:(string)). |
|
132 |
]. |
|
133 |
]. |
|
134 |
^ true |
|
135 |
! ! |
|
136 |
||
3842 | 137 |
!FileOperation::Copy class methodsFor:'actions'! |
138 |
||
139 |
copyFile:aSourceFile to:aDestFile |
|
140 |
"delete current selected files/directories |
|
141 |
" |
|
142 |
||
143 |
|instance| |
|
144 |
||
145 |
instance := self new. |
|
146 |
instance copyFile:aSourceFile to:aDestFile. |
|
147 |
^ instance |
|
148 |
! |
|
149 |
||
150 |
copyFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning |
|
151 |
"delete current selected files/directories |
|
152 |
" |
|
153 |
||
154 |
|instance| |
|
155 |
||
156 |
instance := self new. |
|
157 |
instance copyFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning. |
|
158 |
^ instance |
|
159 |
! |
|
160 |
||
161 |
copyFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning copyFileIfSame:copy |
|
162 |
"delete current selected files/directories |
|
163 |
" |
|
164 |
||
165 |
|instance| |
|
166 |
||
167 |
instance := self new. |
|
168 |
instance copyFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning copyFileIfSame:copy. |
|
169 |
^ instance |
|
170 |
! |
|
171 |
||
172 |
copyFiles:aColOfSourceFiles to:aDirectory |
|
173 |
"delete current selected files/directories |
|
174 |
" |
|
175 |
||
176 |
|instance| |
|
177 |
||
178 |
instance := self new. |
|
179 |
instance copyFiles:aColOfSourceFiles to:aDirectory. |
|
180 |
^ instance |
|
181 |
! |
|
182 |
||
183 |
copyFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning |
|
184 |
"delete current selected files/directories |
|
185 |
" |
|
186 |
||
187 |
|instance| |
|
188 |
||
189 |
instance := self new. |
|
190 |
instance copyFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning. |
|
191 |
^ instance |
|
192 |
! |
|
193 |
||
194 |
copyFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning copyFileIfSame:copy |
|
195 |
"delete current selected files/directories |
|
196 |
" |
|
197 |
||
198 |
|instance| |
|
199 |
||
200 |
instance := self new. |
|
201 |
instance copyFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning copyFileIfSame:copy. |
|
202 |
^ instance |
|
203 |
! ! |
|
204 |
||
205 |
!FileOperation::Copy class methodsFor:'documentation'! |
|
206 |
||
207 |
version |
|
4395 | 208 |
^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.13 2002-12-19 15:41:13 cg Exp $' |
3842 | 209 |
! ! |
210 |
||
211 |
!FileOperation::Copy methodsFor:'accessing'! |
|
212 |
||
213 |
colOfCopiedFiles |
|
214 |
"return the value of the instance variable 'colOfCopiedFiles' (automatically generated)" |
|
215 |
||
216 |
colOfCopiedFiles isNil ifTrue:[ |
|
217 |
colOfCopiedFiles := OrderedCollection new. |
|
218 |
]. |
|
219 |
^ colOfCopiedFiles |
|
220 |
! ! |
|
221 |
||
222 |
!FileOperation::Copy methodsFor:'actions'! |
|
223 |
||
224 |
copyFile:aSourceFile to:aDestFile |
|
225 |
"defete current selected files/directories |
|
226 |
" |
|
227 |
||
228 |
self copyFile:aSourceFile to:aDestFile withOverWriteWarning:true |
|
229 |
! |
|
230 |
||
231 |
copyFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning |
|
232 |
"copy to |
|
233 |
" |
|
234 |
||
235 |
self copyFile:aSourceFile to:aDestFile withOverWriteWarning:true copyFileIfSame:true |
|
236 |
! |
|
237 |
||
238 |
copyFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning copyFileIfSame:copy |
|
239 |
"copy to |
|
240 |
" |
|
241 |
||
242 |
|newFile fileString targetDirectory targetIsDirectory sourceIsDirectory suffix| |
|
243 |
||
244 |
sourceIsDirectory := aSourceFile isDirectory. |
|
245 |
targetIsDirectory := aDestFile isDirectory. |
|
246 |
targetIsDirectory ifTrue:[ |
|
247 |
targetDirectory := aDestFile. |
|
248 |
newFile := aDestFile construct:(aSourceFile baseName). |
|
249 |
] ifFalse:[ |
|
250 |
targetDirectory := aDestFile directory. |
|
251 |
newFile := aDestFile. |
|
252 |
]. |
|
253 |
"/ do not copy if destination directory doest exist. |
|
254 |
(targetDirectory exists not) ifTrue:[ |
|
3863 | 255 |
Dialog warn:'cant copy to not existing directory ', targetDirectory asString. |
3842 | 256 |
result := false. |
257 |
^ self |
|
258 |
]. |
|
259 |
(newFile exists) ifTrue:[ |
|
260 |
((newFile asString = aSourceFile asString) and:[copy]) ifTrue:[ |
|
261 |
[newFile exists] whileTrue:[ |
|
262 |
suffix := newFile suffix. |
|
263 |
fileString := newFile baseName withoutSuffix, self class copyMoveIfExistSuffixString, '.', suffix. |
|
264 |
newFile := targetDirectory construct:fileString. |
|
265 |
]. |
|
266 |
] ifFalse:[ |
|
267 |
overWriteWarning ifTrue:[ |
|
268 |
(self fileExistDialogFor:newFile) ifFalse:[ |
|
269 |
result := false. |
|
270 |
^ self. |
|
271 |
] |
|
272 |
] ifFalse:[ |
|
273 |
result := false. |
|
274 |
^ self. |
|
275 |
] |
|
276 |
]. |
|
277 |
]. |
|
278 |
Error handle:[:ex| |
|
279 |
"was not able to copy it" |
|
280 |
WarningBox warn:'on copy file - ', ex errorString. |
|
281 |
self errorString:('on copy file - ', ex description asString). |
|
282 |
result := false. |
|
4006
8c706ba8b3b5
change flushCachedDirectory: senders to flushCachedDirectoryFor:
penk
parents:
3977
diff
changeset
|
283 |
^ self |
3842 | 284 |
] do:[ |
285 |
sourceIsDirectory ifTrue:[ |
|
286 |
OperatingSystem recursiveCopyDirectory:(aSourceFile pathName) |
|
287 |
to:newFile. |
|
288 |
] ifFalse:[ |
|
289 |
aSourceFile copyTo:newFile. |
|
290 |
]. |
|
291 |
]. |
|
4006
8c706ba8b3b5
change flushCachedDirectory: senders to flushCachedDirectoryFor:
penk
parents:
3977
diff
changeset
|
292 |
DirectoryContents flushCachedDirectoryFor:(aSourceFile directory). |
8c706ba8b3b5
change flushCachedDirectory: senders to flushCachedDirectoryFor:
penk
parents:
3977
diff
changeset
|
293 |
result := true. |
3842 | 294 |
! |
295 |
||
296 |
copyFiles:aColOfSourceFiles to:aDirectory |
|
297 |
||
298 |
^ self copyFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:true. |
|
299 |
! |
|
300 |
||
301 |
copyFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning |
|
302 |
||
303 |
^ self copyFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning copyFileIfSame:true. |
|
304 |
! |
|
305 |
||
306 |
copyFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning copyFileIfSame:copy |
|
307 |
||
308 |
||
309 |
|newFile suffix fileString sourceIsDirectory askResult| |
|
310 |
||
311 |
(aDirectory exists not) ifTrue:[ |
|
3863 | 312 |
Dialog warn:'cant copy to not existing directory ', aDirectory asString. |
3842 | 313 |
result := false. |
314 |
^ self |
|
315 |
]. |
|
316 |
(aDirectory isDirectory not) ifTrue:[ |
|
3863 | 317 |
Dialog warn:'destination ', aDirectory asString, ' is not a directory'. |
3842 | 318 |
result := false. |
319 |
^ self |
|
320 |
]. |
|
321 |
aColOfSourceFiles do:[: filename | |
|
322 |
newFile := aDirectory construct:(filename baseName). |
|
323 |
sourceIsDirectory := filename isDirectory. |
|
324 |
(newFile exists) ifTrue:[ |
|
325 |
askResult := true. |
|
326 |
((newFile asString = filename asString) and:[copy]) ifTrue:[ |
|
327 |
[newFile exists] whileTrue:[ |
|
328 |
suffix := newFile suffix. |
|
4016 | 329 |
fileString := newFile withoutSuffix baseName, self class copyMoveIfExistSuffixString, '.', suffix. |
3842 | 330 |
newFile := aDirectory construct:fileString. |
331 |
]. |
|
332 |
] ifFalse:[ |
|
333 |
overWriteWarning ifTrue:[ |
|
334 |
askResult := (self fileExistDialogFor:newFile withCancel:true). |
|
335 |
askResult isNil ifTrue:[ |
|
336 |
result := false. |
|
337 |
^ self. |
|
338 |
] |
|
339 |
] |
|
340 |
]. |
|
341 |
]. |
|
342 |
askResult ifTrue:[ |
|
343 |
Error handle:[:ex| |
|
344 |
"was not able to copy it" |
|
345 |
result := false. |
|
346 |
self errorString:('on copy file - ', ex description asString). |
|
347 |
( Dialog |
|
348 |
confirm:('error on copy file - ', ex description asString) |
|
349 |
title:'Copy' |
|
350 |
yesLabel:'Continue' |
|
351 |
noLabel:'Abort') ifFalse:[ |
|
352 |
^ self. |
|
353 |
]. |
|
354 |
] do:[ |
|
355 |
sourceIsDirectory ifTrue:[ |
|
356 |
OperatingSystem recursiveCopyDirectory:(filename asString) |
|
357 |
to:(newFile asString). |
|
358 |
] ifFalse:[ |
|
359 |
filename copyTo:newFile. |
|
360 |
]. |
|
361 |
]. |
|
362 |
self colOfCopiedFiles add:filename |
|
363 |
] |
|
364 |
]. |
|
4006
8c706ba8b3b5
change flushCachedDirectory: senders to flushCachedDirectoryFor:
penk
parents:
3977
diff
changeset
|
365 |
DirectoryContents flushCachedDirectoryFor:aDirectory. |
3842 | 366 |
result := true. |
367 |
! ! |
|
368 |
||
369 |
!FileOperation::Create class methodsFor:'actions'! |
|
370 |
||
3863 | 371 |
createDirectoryIn:aDirectory |
3842 | 372 |
|
373 |
|instance| |
|
374 |
||
375 |
instance := self new. |
|
3863 | 376 |
instance createDirectoryIn:aDirectory. |
3842 | 377 |
^ instance |
378 |
! |
|
379 |
||
3863 | 380 |
createFileIn:aFile |
3842 | 381 |
|
382 |
|instance| |
|
383 |
||
384 |
instance := self new. |
|
3863 | 385 |
instance createFileIn:aFile. |
3842 | 386 |
^ instance |
3877 | 387 |
! |
388 |
||
389 |
createHardLinkIn:aFile |
|
390 |
"create an new hard link in a files directory" |
|
391 |
||
392 |
|instance| |
|
393 |
||
394 |
instance := self new. |
|
395 |
instance createHardLinkIn:aFile. |
|
396 |
^ instance |
|
397 |
! |
|
398 |
||
399 |
createSoftLinkIn:aFile |
|
400 |
"create an new soft link in a files directory" |
|
401 |
||
402 |
|instance| |
|
403 |
||
404 |
instance := self new. |
|
405 |
instance createSoftLinkIn:aFile. |
|
406 |
^ instance |
|
3842 | 407 |
! ! |
408 |
||
409 |
!FileOperation::Create class methodsFor:'documentation'! |
|
410 |
||
411 |
version |
|
4395 | 412 |
^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.13 2002-12-19 15:41:13 cg Exp $' |
3863 | 413 |
! ! |
414 |
||
415 |
!FileOperation::Create methodsFor:'accessing'! |
|
416 |
||
417 |
createdFile |
|
418 |
"return the value of the instance variable 'createdFile' (automatically generated)" |
|
419 |
||
420 |
^ createdFile |
|
421 |
! |
|
422 |
||
423 |
createdFile:something |
|
424 |
"set the value of the instance variable 'createdFile' (automatically generated)" |
|
425 |
||
426 |
createdFile := something. |
|
3842 | 427 |
! ! |
428 |
||
429 |
!FileOperation::Create methodsFor:'actions'! |
|
430 |
||
3863 | 431 |
createDirectoryIn:startDirectory |
432 |
|msg startBaseName defaultDirectory newName newFile| |
|
433 |
||
3842 | 434 |
|
3863 | 435 |
startBaseName := startDirectory baseName. |
436 |
LastCreatedDirectory isNil ifTrue:[ |
|
437 |
defaultDirectory := startBaseName. |
|
438 |
] ifFalse:[ |
|
439 |
defaultDirectory := LastCreatedDirectory baseName. |
|
440 |
]. |
|
441 |
newName := Dialog |
|
442 |
request:('Create new directory in ', startBaseName) |
|
443 |
initialAnswer:defaultDirectory |
|
444 |
okLabel:'Create' |
|
445 |
title:'Create Directory' |
|
446 |
onCancel:[ |
|
447 |
self result:false. |
|
448 |
^ self |
|
449 |
]. |
|
450 |
newName isEmpty ifTrue:[ |
|
451 |
self result:false. |
|
452 |
^ self |
|
453 |
]. |
|
454 |
newFile := startDirectory construct:newName. |
|
455 |
newFile exists ifTrue:[ |
|
456 |
Dialog warn:(newName, ' already exists.'). |
|
3842 | 457 |
result := false. |
458 |
^ self |
|
459 |
]. |
|
460 |
||
3863 | 461 |
newFile makeDirectory ifFalse:[ |
3850 | 462 |
msg := errorString := ('cannot create directory '', newName,'' !!') , '(', (OperatingSystem lastErrorString) , ')'. |
463 |
errorString := msg. |
|
3863 | 464 |
Dialog warn:errorString. |
3842 | 465 |
result := false. |
466 |
^ self |
|
467 |
]. |
|
3863 | 468 |
self createdFile:newFile. |
469 |
LastCreatedDirectory := newFile. |
|
3842 | 470 |
result := true. |
471 |
! |
|
472 |
||
3863 | 473 |
createFileIn:aFile |
3842 | 474 |
"create an empty file" |
475 |
||
3863 | 476 |
|aStream msg file directory newName defaultFile| |
3842 | 477 |
|
3863 | 478 |
aFile isDirectory ifTrue:[ |
479 |
directory := aFile |
|
480 |
] ifFalse:[ |
|
481 |
directory := aFile directory. |
|
482 |
file := aFile |
|
483 |
]. |
|
484 |
LastCreatedFile isNil ifTrue:[ |
|
485 |
defaultFile := aFile baseName. |
|
486 |
] ifFalse:[ |
|
487 |
defaultFile := LastCreatedFile baseName. |
|
3842 | 488 |
]. |
3863 | 489 |
newName := Dialog |
490 |
request:('Create new file in ', directory baseName) |
|
491 |
initialAnswer:defaultFile |
|
492 |
okLabel:'Create' |
|
493 |
title:'Create a File' |
|
494 |
onCancel:[ |
|
495 |
self result:false. |
|
496 |
^ self |
|
497 |
]. |
|
498 |
newName isEmpty ifTrue:[ |
|
499 |
self result:false. |
|
3842 | 500 |
] ifFalse:[ |
3863 | 501 |
| newFile | |
502 |
newFile := directory construct:newName. |
|
503 |
newFile exists ifTrue:[ |
|
504 |
(Dialog |
|
505 |
confirm:(newName, ' already exists truncate ?') |
|
506 |
yesLabel:('Truncate') |
|
507 |
noLabel:('Cancel')) |
|
508 |
ifFalse:[ |
|
509 |
self result:false. |
|
510 |
^ self |
|
511 |
]. |
|
512 |
]. |
|
513 |
FileStream openErrorSignal handle:[:ex| |
|
514 |
msg := ('Cannot create file '', newName,'' !!') , '(' , (FileStream lastErrorString) , ')'. |
|
515 |
errorString := msg. |
|
516 |
self result:false. |
|
517 |
^ Dialog warn:errorString |
|
518 |
] do:[ |
|
519 |
aStream := newFile newReadWriteStream. |
|
520 |
]. |
|
521 |
aStream notNil ifTrue:[ |
|
522 |
aStream close. |
|
523 |
self createdFile:newFile. |
|
524 |
LastCreatedFile := newFile. |
|
525 |
self result:true. |
|
526 |
] ifFalse:[ |
|
527 |
msg := ('Cannot create file '', newName, '' !!') , '(' , (FileStream lastErrorString) , ')'. |
|
528 |
errorString := msg. |
|
529 |
self result:false. |
|
530 |
^ Dialog warn:errorString |
|
531 |
]. |
|
3842 | 532 |
]. |
3877 | 533 |
! |
534 |
||
535 |
createHardLinkIn:aFile |
|
536 |
"create an new hard link in a files directory" |
|
537 |
||
538 |
self createLinkIn:aFile soft:false. |
|
539 |
! |
|
540 |
||
541 |
createLinkIn:aFile soft:symbolic |
|
542 |
"create an new soft or hard link in aFile's directory" |
|
543 |
||
544 |
|newPath oldPath box string if1 if2 err newPathFile oldPathFile| |
|
545 |
||
546 |
aFile isDirectory ifTrue:[ |
|
547 |
newPath := aFile asValue. |
|
548 |
oldPath := aFile asValue. |
|
549 |
] ifFalse:[ |
|
550 |
newPath := aFile directory asValue. |
|
551 |
oldPath := aFile asValue. |
|
552 |
]. |
|
553 |
||
554 |
box := Dialog new. |
|
555 |
string := 'Create ', (symbolic ifTrue:['symbolic'] ifFalse:['hard']) ,' link:'. |
|
556 |
(box addTextLabel:string) adjust:#left. |
|
557 |
if1 := box addFilenameInputFieldOn:newPath in:nil tabable:true. |
|
558 |
(box addTextLabel:'to:') adjust:#left. |
|
559 |
if2 := box addFilenameInputFieldOn:oldPath in:nil value tabable:true. |
|
560 |
||
561 |
box addAbortAndOkButtons. |
|
562 |
||
563 |
aFile isDirectory not ifTrue:[ |
|
564 |
box focusOnField:if1. |
|
565 |
]. |
|
566 |
box showAtPointer. |
|
567 |
||
568 |
box accepted ifTrue:[ |
|
569 |
newPath := newPath value. |
|
570 |
oldPath := oldPath value. |
|
571 |
(oldPath size == 0) ifTrue:[ |
|
572 |
err := 'no destination entered'. |
|
573 |
] ifFalse:[ |
|
574 |
(oldPath size == 0) ifTrue:[ |
|
575 |
err := 'no link name entered'. |
|
576 |
] ifFalse:[ |
|
577 |
newPathFile := newPath asFilename. |
|
578 |
newPathFile exists ifTrue:[ |
|
579 |
err := newPath, ' already exists'. |
|
580 |
] ifFalse:[ |
|
581 |
oldPathFile := oldPath asFilename. |
|
582 |
oldPathFile exists not ifTrue:[ |
|
583 |
err := oldPath, ' does not exist '. |
|
584 |
] ifFalse:[ |
|
585 |
((symbolic not) and:[oldPathFile isDirectory]) ifTrue:[ |
|
586 |
err := oldPath,' is a directory'. |
|
587 |
] ifFalse:[ |
|
588 |
ErrorSignal handle:[:ex | |
|
589 |
err := ex errorString |
|
590 |
] do:[ |
|
591 |
symbolic ifTrue:[ |
|
592 |
OperatingSystem createSymbolicLinkFrom:oldPath to:newPath. |
|
593 |
] ifFalse:[ |
|
594 |
OperatingSystem createHardLinkFrom:oldPath to:newPath |
|
595 |
]. |
|
596 |
self createdFile:newPathFile. |
|
597 |
self result:true. |
|
598 |
^ self |
|
599 |
]. |
|
600 |
] |
|
601 |
] |
|
602 |
] |
|
603 |
] |
|
604 |
]. |
|
605 |
||
606 |
err notNil ifTrue:[ |
|
607 |
Dialog warn:(err allBold). |
|
608 |
self errorString:err. |
|
609 |
^ self |
|
610 |
]. |
|
611 |
]. |
|
612 |
self result:false. |
|
613 |
! |
|
614 |
||
615 |
createSoftLinkIn:aFile |
|
616 |
"create an new soft link in a files directory" |
|
617 |
||
618 |
self createLinkIn:aFile soft:true. |
|
3842 | 619 |
! ! |
620 |
||
621 |
!FileOperation::Delete class methodsFor:'actions'! |
|
622 |
||
623 |
deleteFile:aFileOrDirectory |
|
624 |
"delete current selected files/directories |
|
625 |
" |
|
626 |
||
627 |
|instance| |
|
628 |
||
629 |
instance := self new. |
|
630 |
instance deleteFile:aFileOrDirectory. |
|
631 |
^ instance |
|
632 |
! |
|
633 |
||
634 |
deleteFiles:aColOfFiles |
|
635 |
"delete current selected files/directories |
|
636 |
" |
|
637 |
||
638 |
|instance| |
|
639 |
||
640 |
instance := self new. |
|
641 |
instance deleteFiles:aColOfFiles. |
|
642 |
^ instance |
|
643 |
! ! |
|
644 |
||
645 |
!FileOperation::Delete class methodsFor:'documentation'! |
|
646 |
||
647 |
version |
|
4395 | 648 |
^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.13 2002-12-19 15:41:13 cg Exp $' |
3842 | 649 |
! ! |
650 |
||
651 |
!FileOperation::Delete methodsFor:'actions'! |
|
652 |
||
653 |
deleteFile:aFileOrDirectory |
|
654 |
||
655 |
| file isDirectory | |
|
656 |
||
657 |
aFileOrDirectory notNil ifTrue:[ |
|
658 |
file := aFileOrDirectory asFilename. |
|
659 |
||
660 |
file exists ifTrue:[ |
|
661 |
isDirectory := file isDirectory. |
|
662 |
||
663 |
Error handle:[:ex| |
|
664 |
"was not able to remove it" |
|
665 |
Smalltalk beep. |
|
666 |
self errorString:((ex description, '\', ex signal notifierString) withCRs). |
|
667 |
result := false. |
|
4006
8c706ba8b3b5
change flushCachedDirectory: senders to flushCachedDirectoryFor:
penk
parents:
3977
diff
changeset
|
668 |
^ self. |
3842 | 669 |
] do:[ |
670 |
isDirectory ifTrue:[file recursiveRemove] ifFalse:[file remove]. |
|
671 |
||
4006
8c706ba8b3b5
change flushCachedDirectory: senders to flushCachedDirectoryFor:
penk
parents:
3977
diff
changeset
|
672 |
]. |
8c706ba8b3b5
change flushCachedDirectory: senders to flushCachedDirectoryFor:
penk
parents:
3977
diff
changeset
|
673 |
"/ flush parent directory or directory |
3842 | 674 |
] |
675 |
]. |
|
4006
8c706ba8b3b5
change flushCachedDirectory: senders to flushCachedDirectoryFor:
penk
parents:
3977
diff
changeset
|
676 |
DirectoryContents flushCachedDirectoryFor:(file directory). |
3842 | 677 |
result := true. |
678 |
! |
|
679 |
||
680 |
deleteFiles:colOfFiles |
|
681 |
"delete current selected files/directories |
|
682 |
" |
|
3977 | 683 |
| retVal ask size labels values | |
3842 | 684 |
|
685 |
ask := true. |
|
686 |
size := colOfFiles size. |
|
687 |
colOfFiles do:[: filename | |
|
688 |
ask ifTrue:[ |
|
689 |
size = 1 ifTrue:[ |
|
3977 | 690 |
labels := #('Yes' 'No' 'Cancel'). |
691 |
values := #(#yes #no #cancel). |
|
3842 | 692 |
] ifFalse:[ |
3977 | 693 |
labels := #('Yes' 'No' 'Yes to All' 'Cancel'). |
694 |
values := #(#yes #no #yesToAll #cancel). |
|
695 |
]. |
|
696 |
retVal := Dialog |
|
4395 | 697 |
confirmWithCancel:('Really delete %1 ?' bindWith:filename asString allBold) |
3977 | 698 |
labels:labels |
699 |
values:values |
|
700 |
default:1. |
|
3842 | 701 |
]. |
702 |
retVal == #cancel ifTrue:[ |
|
703 |
^ self. |
|
704 |
]. |
|
705 |
retVal == #yes ifTrue:[ |
|
706 |
self deleteFile:filename. |
|
707 |
]. |
|
708 |
retVal == #yesToAll ifTrue:[ |
|
709 |
self deleteFile:filename. |
|
710 |
ask := false. |
|
711 |
retVal := #yes. |
|
712 |
]. |
|
713 |
]. |
|
714 |
! ! |
|
715 |
||
716 |
!FileOperation::Move class methodsFor:'actions'! |
|
717 |
||
718 |
moveFile:aSourceFile to:aDestFile |
|
719 |
"delete current selected files/directories |
|
720 |
" |
|
721 |
||
722 |
|instance| |
|
723 |
||
724 |
instance := self new. |
|
725 |
instance moveFile:aSourceFile to:aDestFile. |
|
726 |
^ instance |
|
727 |
! |
|
728 |
||
729 |
moveFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning |
|
730 |
"delete current selected files/directories |
|
731 |
" |
|
732 |
||
733 |
|instance| |
|
734 |
||
735 |
instance := self new. |
|
736 |
instance moveFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning. |
|
737 |
^ instance |
|
738 |
! |
|
739 |
||
740 |
moveFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning moveFileIfSame:move |
|
741 |
"delete current selected files/directories |
|
742 |
" |
|
743 |
||
744 |
|instance| |
|
745 |
||
746 |
instance := self new. |
|
747 |
instance moveFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning moveFileIfSame:move. |
|
748 |
^ instance |
|
749 |
! |
|
750 |
||
751 |
moveFiles:aColOfSourceFiles to:aDirectory |
|
752 |
"delete current selected files/directories |
|
753 |
" |
|
754 |
||
755 |
|instance| |
|
756 |
||
757 |
instance := self new. |
|
758 |
instance moveFiles:aColOfSourceFiles to:aDirectory. |
|
759 |
^ instance |
|
760 |
! |
|
761 |
||
762 |
moveFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning |
|
763 |
"delete current selected files/directories |
|
764 |
" |
|
765 |
||
766 |
|instance| |
|
767 |
||
768 |
instance := self new. |
|
769 |
instance moveFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning. |
|
770 |
^ instance |
|
771 |
! |
|
772 |
||
773 |
moveFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning moveFileIfSame:move |
|
774 |
"delete current selected files/directories |
|
775 |
" |
|
776 |
||
777 |
|instance| |
|
778 |
||
779 |
instance := self new. |
|
780 |
instance moveFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning moveFileIfSame:move. |
|
781 |
^ instance |
|
782 |
! ! |
|
783 |
||
784 |
!FileOperation::Move class methodsFor:'documentation'! |
|
785 |
||
786 |
version |
|
4395 | 787 |
^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.13 2002-12-19 15:41:13 cg Exp $' |
3842 | 788 |
! ! |
789 |
||
790 |
!FileOperation::Move methodsFor:'accessing'! |
|
791 |
||
792 |
colOfMovedFiles |
|
793 |
"return the value of the instance variable 'colOfMovedFiles' (automatically generated)" |
|
794 |
||
795 |
colOfMovedFiles isNil ifTrue:[ |
|
796 |
colOfMovedFiles := OrderedCollection new. |
|
797 |
]. |
|
798 |
^ colOfMovedFiles |
|
799 |
! ! |
|
800 |
||
801 |
!FileOperation::Move methodsFor:'actions'! |
|
802 |
||
803 |
moveFile:aSourceFile to:aDestFile |
|
804 |
||
805 |
^ self moveFile:aSourceFile to:aDestFile withOverWriteWarning:true. |
|
806 |
! |
|
807 |
||
808 |
moveFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning |
|
809 |
||
810 |
^ self moveFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning moveFileIfSame:true |
|
811 |
! |
|
812 |
||
813 |
moveFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning moveFileIfSame:move |
|
814 |
||
815 |
|newFile fileString targetDirectory targetIsDirectory suffix| |
|
816 |
||
817 |
targetIsDirectory := aDestFile isDirectory. |
|
818 |
targetIsDirectory ifTrue:[ |
|
819 |
targetDirectory := aDestFile. |
|
820 |
newFile := aDestFile construct:(aSourceFile baseName). |
|
821 |
] ifFalse:[ |
|
822 |
targetDirectory := aDestFile directory. |
|
823 |
newFile := aDestFile. |
|
824 |
]. |
|
825 |
"/ do not copy if destination directory doest exist. |
|
826 |
(targetDirectory exists not) ifTrue:[ |
|
3863 | 827 |
Dialog warn:'cant move to not existing directory ', targetDirectory asString. |
3842 | 828 |
result := false. |
829 |
^ self |
|
830 |
]. |
|
831 |
(newFile exists) ifTrue:[ |
|
832 |
((newFile asString = aSourceFile asString) and:[move]) ifTrue:[ |
|
833 |
[newFile exists] whileTrue:[ |
|
834 |
suffix := newFile suffix. |
|
835 |
fileString := newFile baseName withoutSuffix, self class copyMoveIfExistSuffixString, '.', suffix. |
|
836 |
newFile := targetDirectory construct:fileString. |
|
837 |
]. |
|
838 |
] ifFalse:[ |
|
839 |
overWriteWarning ifTrue:[ |
|
840 |
(self fileExistDialogFor:newFile) ifFalse:[ |
|
841 |
result := false. |
|
842 |
^ self. |
|
843 |
] |
|
844 |
] ifFalse:[ |
|
845 |
result := false. |
|
846 |
^ self. |
|
847 |
] |
|
848 |
]. |
|
849 |
]. |
|
850 |
Error handle:[:ex| |
|
851 |
"was not able to copy it" |
|
852 |
WarningBox warn:'on copy file - ', ex errorString. |
|
853 |
self errorString:('on copy file - ', ex description asString). |
|
854 |
result := false. |
|
4006
8c706ba8b3b5
change flushCachedDirectory: senders to flushCachedDirectoryFor:
penk
parents:
3977
diff
changeset
|
855 |
^ self |
3842 | 856 |
] do:[ |
857 |
aSourceFile moveTo:newFile. |
|
858 |
]. |
|
4006
8c706ba8b3b5
change flushCachedDirectory: senders to flushCachedDirectoryFor:
penk
parents:
3977
diff
changeset
|
859 |
DirectoryContents flushCachedDirectoryFor:(aSourceFile directory). |
8c706ba8b3b5
change flushCachedDirectory: senders to flushCachedDirectoryFor:
penk
parents:
3977
diff
changeset
|
860 |
result := true. |
3842 | 861 |
! |
862 |
||
863 |
moveFiles:aColOfSourceFiles to:aDirectory |
|
864 |
||
865 |
^ self moveFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:true |
|
866 |
! |
|
867 |
||
868 |
moveFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning |
|
869 |
||
870 |
^ self moveFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning moveFileIfSame:true |
|
871 |
! |
|
872 |
||
873 |
moveFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning moveFileIfSame:move |
|
874 |
||
875 |
|newFile suffix fileString askResult| |
|
876 |
||
877 |
(aDirectory exists not) ifTrue:[ |
|
3863 | 878 |
Dialog warn:'cant move to not existing directory ', aDirectory asString. |
3842 | 879 |
result := false. |
880 |
^ self |
|
881 |
]. |
|
882 |
(aDirectory isDirectory not) ifTrue:[ |
|
3863 | 883 |
Dialog warn:'destination ', aDirectory asString, ' is not a directory'. |
3842 | 884 |
result := false. |
885 |
^ self |
|
886 |
]. |
|
887 |
aColOfSourceFiles do:[: filename | |
|
888 |
newFile := aDirectory construct:filename baseName. |
|
889 |
(newFile exists) ifTrue:[ |
|
890 |
askResult := true. |
|
891 |
((newFile asString = filename asString) and:[move]) ifTrue:[ |
|
892 |
[newFile exists] whileTrue:[ |
|
893 |
suffix := newFile suffix. |
|
894 |
fileString := newFile baseName withoutSuffix, self class copyMoveIfExistSuffixString, '.', suffix. |
|
895 |
newFile := aDirectory construct:fileString. |
|
896 |
]. |
|
897 |
] ifFalse:[ |
|
898 |
overWriteWarning ifTrue:[ |
|
899 |
askResult := (self fileExistDialogFor:newFile withCancel:true). |
|
900 |
askResult isNil ifTrue:[ |
|
901 |
result := false. |
|
902 |
^ self. |
|
903 |
] |
|
904 |
] |
|
905 |
]. |
|
906 |
]. |
|
907 |
askResult ifTrue:[ |
|
908 |
Error handle:[:ex| |
|
909 |
"was not able to copy it" |
|
910 |
result := false. |
|
911 |
self errorString:('on move file - ', ex description asString). |
|
912 |
( Dialog |
|
913 |
confirm:('error on move file - ', ex description asString) |
|
914 |
title:'Move' |
|
915 |
yesLabel:'Continue' |
|
916 |
noLabel:'Abort') ifFalse:[ |
|
917 |
^ self. |
|
918 |
]. |
|
919 |
] do:[ |
|
920 |
filename moveTo:newFile. |
|
921 |
]. |
|
922 |
self colOfMovedFiles add:filename |
|
923 |
] |
|
924 |
]. |
|
4006
8c706ba8b3b5
change flushCachedDirectory: senders to flushCachedDirectoryFor:
penk
parents:
3977
diff
changeset
|
925 |
DirectoryContents flushCachedDirectoryFor:aDirectory. |
3842 | 926 |
result := true. |
927 |
! ! |
|
928 |
||
929 |
!FileOperation::Rename class methodsFor:'actions'! |
|
930 |
||
931 |
renameFile:oldFile to:newName |
|
932 |
"move from to |
|
933 |
" |
|
934 |
||
935 |
|instance| |
|
936 |
||
937 |
instance := self new. |
|
938 |
instance renameFile:oldFile to:newName. |
|
939 |
^ instance |
|
940 |
! |
|
941 |
||
942 |
renameFiles:aColOfFiles |
|
943 |
"move from to |
|
944 |
" |
|
945 |
||
946 |
|instance| |
|
947 |
||
948 |
instance := self new. |
|
949 |
instance renameFiles:aColOfFiles. |
|
950 |
^ instance |
|
951 |
! ! |
|
952 |
||
953 |
!FileOperation::Rename class methodsFor:'documentation'! |
|
954 |
||
955 |
version |
|
4395 | 956 |
^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.13 2002-12-19 15:41:13 cg Exp $' |
3842 | 957 |
! ! |
958 |
||
959 |
!FileOperation::Rename methodsFor:'accessing'! |
|
960 |
||
961 |
renamedFiles |
|
962 |
"return the value of the instance variable 'lastRenamedFile' (automatically generated)" |
|
963 |
||
964 |
renamedFiles isNil ifTrue:[ |
|
965 |
renamedFiles := OrderedCollection new. |
|
966 |
]. |
|
967 |
^ renamedFiles |
|
968 |
! ! |
|
969 |
||
970 |
!FileOperation::Rename methodsFor:'actions'! |
|
971 |
||
972 |
renameFile:oldFile to:newName |
|
973 |
"rename a file (or directory)" |
|
974 |
||
975 |
|old new msg| |
|
976 |
||
977 |
(oldFile isNil or:[newName isNil]) ifTrue:[ |
|
978 |
result := false |
|
979 |
]. |
|
980 |
(oldFile asString isBlank or:[newName isBlank]) ifTrue:[ |
|
981 |
result := false |
|
982 |
]. |
|
983 |
(oldFile baseName = newName) ifTrue:[ |
|
984 |
result := false |
|
985 |
]. |
|
986 |
||
987 |
old := oldFile. |
|
988 |
new := oldFile directory construct:newName. |
|
989 |
||
990 |
OperatingSystem errorSignal handle:[:ex| |
|
991 |
msg := ('Cannot rename file ', old baseName,' to ', newName,' !!'), '\\(' ,(OperatingSystem lastErrorString) , ')'. |
|
3863 | 992 |
Dialog warn:msg withCRs. |
3842 | 993 |
result := false |
994 |
] do:[ |
|
995 |
new exists ifTrue:[ |
|
3863 | 996 |
(Dialog confirm:(new baseName allBold, ' already exists - rename (i.e. overwrite) anyway ?')) |
3842 | 997 |
ifFalse:[ |
998 |
result := false. |
|
999 |
^ self. |
|
1000 |
] |
|
1001 |
]. |
|
1002 |
old renameTo:new. |
|
1003 |
self renamedFiles add:new. |
|
1004 |
]. |
|
1005 |
result := true. |
|
1006 |
! |
|
1007 |
||
1008 |
renameFiles:aColOfFiles |
|
1009 |
"rename the selected file(s)" |
|
1010 |
||
1011 |
|queryBox b lastNewName lastOldName initialText oldName| |
|
1012 |
||
1013 |
queryBox := FilenameEnterBox new. |
|
1014 |
queryBox okText:'Rename'. |
|
1015 |
aColOfFiles size > 1 ifTrue:[ |
|
1016 |
b := queryBox addAbortButtonLabelled:'Cancel All'. |
|
1017 |
b action:[^ self] |
|
1018 |
]. |
|
1019 |
aColOfFiles do:[:oldFile | |
|
1020 |
oldName := oldFile baseName asString. |
|
1021 |
queryBox title:('Rename ' , oldName , ' to:'). |
|
1022 |
lastNewName notNil ifTrue:[ |
|
4273
df4ed96689cd
separated default for arbitrary renames and deault for files.
Claus Gittinger <cg@exept.de>
parents:
4016
diff
changeset
|
1023 |
initialText := FileBrowser goodRenameDefaultForFile:oldName lastOld:lastOldName lastNew:lastNewName |
3842 | 1024 |
]. |
3975
dcaac82381dc
share goodRenameDefault code with FileBrowser
Claus Gittinger <cg@exept.de>
parents:
3877
diff
changeset
|
1025 |
queryBox initialText:(initialText ? oldName). |
3842 | 1026 |
queryBox |
1027 |
action:[:newName | |
|
1028 |
(self renameFile:oldFile to:newName asString) ifTrue:[ |
|
1029 |
result := true |
|
1030 |
]. |
|
1031 |
lastOldName := oldName. |
|
1032 |
lastNewName := newName |
|
1033 |
]. |
|
1034 |
queryBox showAtPointer |
|
1035 |
] |
|
1036 |
! ! |
|
1037 |
||
3841 | 1038 |
!FileOperation class methodsFor:'documentation'! |
1039 |
||
1040 |
version |
|
4395 | 1041 |
^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.13 2002-12-19 15:41:13 cg Exp $' |
3841 | 1042 |
! ! |