hg/stx-libtool: FileOperation.st@051110bdd147 (annotated)

6168 45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	1	"
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	2	COPYRIGHT (c) 2003 by eXept Software AG
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	3	All Rights Reserved
6168 45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	4
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	5	This software is furnished under a license and may be used
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	6	only in accordance with the terms of that license and with the
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	7	inclusion of the above copyright notice. This software may not
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	8	be provided or otherwise made available to, or used by, any
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	9	other person. No title to or ownership of the software is
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	10	hereby transferred.
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	11	"
6618 72df4c3bb723 FileOperation moved Claus Gittinger <cg@exept.de> parents: 6374 diff changeset	12	"{ Package: 'stx:libtool' }"
3841 5dbada9cdc3f initial checkin penk parents: diff changeset	13
5dbada9cdc3f initial checkin penk parents: diff changeset	14	Object subclass:#FileOperation
3975 dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	15	instanceVariableNames:'errorString result'
dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	16	classVariableNames:''
dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	17	poolDictionaries:''
dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	18	category:'Interface-Support'
3841 5dbada9cdc3f initial checkin penk parents: diff changeset	19	!
5dbada9cdc3f initial checkin penk parents: diff changeset	20
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	21	FileOperation subclass:#Copy
6374 f9bed8385350 * empty log message * Claus Gittinger <cg@exept.de> parents: 6373 diff changeset	22	instanceVariableNames:'copiedFiles newFiles'
3975 dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	23	classVariableNames:''
dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	24	poolDictionaries:''
dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	25	privateIn:FileOperation
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	26	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	27
7634 f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	28	FileOperation::Copy subclass:#CopyCorrupted
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	29	instanceVariableNames:''
7634 f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	30	classVariableNames:''
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	31	poolDictionaries:''
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	32	privateIn:FileOperation
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	33	!
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	34
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	35	FileOperation subclass:#Create
3975 dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	36	instanceVariableNames:'createdFile'
dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	37	classVariableNames:'LastCreatedDirectory LastCreatedFile'
dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	38	poolDictionaries:''
dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	39	privateIn:FileOperation
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	40	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	41
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	42	FileOperation subclass:#Delete
3975 dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	43	instanceVariableNames:'fileName'
dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	44	classVariableNames:''
dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	45	poolDictionaries:''
dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	46	privateIn:FileOperation
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	47	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	48
6168 45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	49	FileOperation::Delete subclass:#Erase
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	50	instanceVariableNames:''
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	51	classVariableNames:''
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	52	poolDictionaries:''
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	53	privateIn:FileOperation
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	54	!
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	55
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	56	FileOperation subclass:#Move
6374 f9bed8385350 * empty log message * Claus Gittinger <cg@exept.de> parents: 6373 diff changeset	57	instanceVariableNames:'movedFiles'
3975 dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	58	classVariableNames:''
dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	59	poolDictionaries:''
dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	60	privateIn:FileOperation
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	61	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	62
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	63	FileOperation subclass:#Rename
3975 dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	64	instanceVariableNames:'renamedFiles'
dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	65	classVariableNames:''
dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	66	poolDictionaries:''
dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	67	privateIn:FileOperation
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	68	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	69
6168 45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	70	!FileOperation class methodsFor:'documentation'!
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	71
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	72	copyright
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	73	"
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	74	COPYRIGHT (c) 2003 by eXept Software AG
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	75	All Rights Reserved
6168 45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	76
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	77	This software is furnished under a license and may be used
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	78	only in accordance with the terms of that license and with the
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	79	inclusion of the above copyright notice. This software may not
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	80	be provided or otherwise made available to, or used by, any
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	81	other person. No title to or ownership of the software is
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	82	hereby transferred.
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	83	"
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	84	! !
3841 5dbada9cdc3f initial checkin penk parents: diff changeset	85
7634 f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	86	!FileOperation class methodsFor:'instance creation'!
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	87
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	88	copyCorruptedFile:aSourceFile to:aDestFile
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	89	^ CopyCorrupted
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	90	copyFile:aSourceFile to:aDestFile
7634 f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	91
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	92	"Created: / 07-02-2007 / 18:41:24 / cg"
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	93	!
5961 f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	94
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	95	copyFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarningBoolean copyFileIfSame:copyIfSameBoolean
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	96	^ Copy
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	97	copyFile:aSourceFile to:aDestFile
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	98	withOverWriteWarning:overWriteWarningBoolean
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	99	copyFileIfSame:copyIfSameBoolean
5961 f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	100	!
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	101
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	102	copyFiles:aColOfSourceFiles to:aDirectory
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	103	^ Copy copyFiles:aColOfSourceFiles to:aDirectory
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	104	!
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	105
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	106	createDirectoryIn:aDirectory
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	107	^ Create createDirectoryIn:aDirectory
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	108	!
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	109
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	110	createDirectoryIn:aDirectory initialAnswer:defaultAnswer
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	111	^ Create createDirectoryIn:aDirectory initialAnswer:defaultAnswer
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	112	!
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	113
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	114	createFileIn:aDirectory
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	115	^ Create createFileIn:aDirectory
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	116	!
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	117
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	118	createHardLinkIn:dir
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	119	^ Create createHardLinkIn:dir
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	120	!
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	121
6151 baba7a7d54b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6150 diff changeset	122	createLinkIn:dir soft:soft
baba7a7d54b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6150 diff changeset	123	^ Create createLinkIn:dir soft:soft
baba7a7d54b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6150 diff changeset	124	!
baba7a7d54b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6150 diff changeset	125
5961 f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	126	createSoftLinkIn:dir
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	127	^ Create createSoftLinkIn:dir
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	128	!
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	129
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	130	deleteFiles:colOfFiles confirm:confirm
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	131	^ Delete deleteFiles:colOfFiles confirm:confirm
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	132	!
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	133
6168 45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	134	eraseFiles:colOfFiles confirm:confirm
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	135	^ Erase deleteFiles:colOfFiles confirm:confirm
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	136	!
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	137
5961 f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	138	moveFile:aSourceFile to:aDestFile
6168 45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	139	^ Move moveFile:aSourceFile to:aDestFile
5961 f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	140	!
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	141
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	142	moveFiles:aCollectionOfFiles to:aDestDirectory
6168 45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	143	^ Move moveFiles:aCollectionOfFiles to:aDestDirectory
5961 f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	144	!
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	145
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	146	renameFile:filename to:newFileString
6168 45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	147	^ Rename renameFile:filename to:newFileString
5961 f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	148	!
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	149
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	150	renameFiles:aCollectionofFilenames
6168 45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	151	^ Rename renameFiles:aCollectionofFilenames
5961 f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	152	! !
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	153
3841 5dbada9cdc3f initial checkin penk parents: diff changeset	154	!FileOperation class methodsFor:'defaults'!
5dbada9cdc3f initial checkin penk parents: diff changeset	155
6168 45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	156	suffixForCopyOverExistingFile
3841 5dbada9cdc3f initial checkin penk parents: diff changeset	157	^ '.copy'
5dbada9cdc3f initial checkin penk parents: diff changeset	158	! !
5dbada9cdc3f initial checkin penk parents: diff changeset	159
5dbada9cdc3f initial checkin penk parents: diff changeset	160	!FileOperation methodsFor:'accessing'!
5dbada9cdc3f initial checkin penk parents: diff changeset	161
5dbada9cdc3f initial checkin penk parents: diff changeset	162	errorString
5dbada9cdc3f initial checkin penk parents: diff changeset	163	^ errorString
5dbada9cdc3f initial checkin penk parents: diff changeset	164	!
5dbada9cdc3f initial checkin penk parents: diff changeset	165
5dbada9cdc3f initial checkin penk parents: diff changeset	166	errorString:something
5dbada9cdc3f initial checkin penk parents: diff changeset	167	errorString := something.
5dbada9cdc3f initial checkin penk parents: diff changeset	168	!
5dbada9cdc3f initial checkin penk parents: diff changeset	169
5dbada9cdc3f initial checkin penk parents: diff changeset	170	result
5dbada9cdc3f initial checkin penk parents: diff changeset	171	^ result
5dbada9cdc3f initial checkin penk parents: diff changeset	172	!
5dbada9cdc3f initial checkin penk parents: diff changeset	173
5dbada9cdc3f initial checkin penk parents: diff changeset	174	result:something
5dbada9cdc3f initial checkin penk parents: diff changeset	175	result := something.
5dbada9cdc3f initial checkin penk parents: diff changeset	176	! !
5dbada9cdc3f initial checkin penk parents: diff changeset	177
7634 f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	178	!FileOperation methodsFor:'dialogs & helpers'!
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	179
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	180	checkDirectoryExists:aDirectory
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	181	aDirectory exists ifFalse:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	182	Dialog warn:('Non-existing Directory: %1' bindWith:aDirectory asString).
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	183	^ false
7634 f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	184	].
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	185	aDirectory isDirectory ifFalse:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	186	Dialog warn:('Not a Directory: %1' bindWith:aDirectory asString).
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	187	^ false
7634 f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	188	].
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	189	^ true
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	190
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	191	"Created: / 07-02-2007 / 18:30:49 / cg"
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	192	!
3841 5dbada9cdc3f initial checkin penk parents: diff changeset	193
6168 45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	194	fileExistsDialogForNewFile:newFile oldFile:oldFile withCancel:withCancel
4701 b30d103a8bc9 better confirmation dialogs Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	195	"return true, if the file should be moved/copied.
b30d103a8bc9 better confirmation dialogs Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	196	Ask user if oldFile exists."
b30d103a8bc9 better confirmation dialogs Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	197
6168 45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	198	^ self fileExistsDialogForNewFile:newFile oldFile:oldFile withCancel:withCancel withRemoveIfSame:false.
5862 41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	199	!
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	200
6168 45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	201	fileExistsDialogForNewFile:newFile oldFile:oldFile withCancel:withCancel withRemoveIfSame:withRemoveIfSame
5862 41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	202	"return true, if the file should be moved/copied.
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	203	If oldFile exists, ask user.
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	204	If withRemoveIfSame is true, two additional possible values are returned:
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	205	#removeSource and #removeDestination.
5862 41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	206	"
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	207
5888 f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	208	\|msg oldSize newSize sameContents resources sourceType destType\|
4701 b30d103a8bc9 better confirmation dialogs Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	209
b30d103a8bc9 better confirmation dialogs Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	210	newFile exists ifFalse:[ ^ true ].
b30d103a8bc9 better confirmation dialogs Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	211	oldSize := oldFile fileSize.
b30d103a8bc9 better confirmation dialogs Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	212	newSize := newFile fileSize.
b30d103a8bc9 better confirmation dialogs Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	213
5888 f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	214	sameContents := false.
f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	215
f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	216	newFile isDirectory ifTrue:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	217	oldFile isDirectory ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	218	"/ could (should?) recursively look for same contents here...
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	219	].
5888 f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	220	] ifFalse:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	221	oldFile isDirectory ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	222	sameContents := oldSize = newSize and:[oldFile sameContentsAs:newFile].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	223	]
5888 f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	224	].
f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	225
f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	226	"/ for now:
f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	227	oldFile isDirectory ~~ newFile isDirectory ifTrue:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	228	Dialog warn:(resources string:'Will not overwrite directory with file and vice versa.').
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	229	^ false.
5888 f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	230	].
f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	231
f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	232	sourceType := newFile isDirectory ifTrue:'directory' ifFalse:'file'.
f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	233	destType := oldFile isDirectory ifTrue:'directory' ifFalse:'file'.
3841 5dbada9cdc3f initial checkin penk parents: diff changeset	234
4701 b30d103a8bc9 better confirmation dialogs Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	235	sameContents ifTrue:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	236	msg := 'Overwrite existing destination %7:\\ %1\ size: %3 of %2\\with source (same contents):\\ %4\ size: %6 of %5'.
4701 b30d103a8bc9 better confirmation dialogs Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	237	] ifFalse:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	238	msg := 'Overwrite existing destination %7:\\ %1\ size: %3 of %2\\with source:\\ %4\ size: %6 of %5'.
4701 b30d103a8bc9 better confirmation dialogs Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	239	].
4587 cd82e0c63680 better fileExistsDialog Claus Gittinger <cg@exept.de> parents: 4585 diff changeset	240
5862 41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	241	resources := AbstractFileBrowser classResources.
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	242	msg := resources
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	243	stringWithCRs:msg
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	244	withArgs:(Array
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	245	with:newFile asString allBold
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	246	with:(newFile modificationTime printStringFormat:'%(Day)-%(mon)-%(year) %h:%m:%s')
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	247	with:newSize
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	248	with:oldFile asString allBold
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	249	with:(oldFile modificationTime printStringFormat:'%(Day)-%(mon)-%(year) %h:%m:%s')
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	250	with:oldSize
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	251	with:destType).
4701 b30d103a8bc9 better confirmation dialogs Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	252
5862 41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	253	(sameContents and:[withRemoveIfSame]) ifTrue:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	254	^ OptionBox
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	255	request:msg
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	256	label:(resources string:'Overwrite existing file')
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	257	image:(YesNoBox iconBitmap)
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	258	buttonLabels:(resources array:( #('No' 'Remove Source' 'Remove Destination' 'Yes' ) , (withCancel ifTrue:[#('Cancel')] ifFalse:[#()])))
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	259	values:#( false #removeSource #removeDestination true )
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	260	default:#removeSource
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	261	onCancel:nil.
5862 41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	262	] ifFalse:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	263	^ Dialog confirm:msg withCancel:withCancel.
5862 41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	264	].
3841 5dbada9cdc3f initial checkin penk parents: diff changeset	265	! !
5dbada9cdc3f initial checkin penk parents: diff changeset	266
6285 fc86d75c6e29 * empty log message * Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	267	!FileOperation methodsFor:'queries'!
fc86d75c6e29 * empty log message * Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	268
fc86d75c6e29 * empty log message * Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	269	isErase
fc86d75c6e29 * empty log message * Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	270	^ false
fc86d75c6e29 * empty log message * Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	271	! !
fc86d75c6e29 * empty log message * Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	272
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	273	!FileOperation::Copy class methodsFor:'actions'!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	274
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	275	copyFile:aSourceFile to:aDestFile
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	276	\|instance\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	277
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	278	instance := self new.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	279	instance copyFile:aSourceFile to:aDestFile.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	280	^ instance
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	281	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	282
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	283	copyFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	284	\|instance\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	285
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	286	instance := self new.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	287	instance copyFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	288	^ instance
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	289	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	290
5961 f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	291	copyFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarningBoolean copyFileIfSame:copyIfSameBoolean
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	292	\|instance\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	293
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	294	instance := self new.
5961 f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	295	instance copyFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarningBoolean copyFileIfSame:copyIfSameBoolean.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	296	^ instance
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	297	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	298
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	299	copyFiles:aColOfSourceFiles to:aDirectory
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	300	\|instance\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	301
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	302	instance := self new.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	303	instance copyFiles:aColOfSourceFiles to:aDirectory.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	304	^ instance
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	305	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	306
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	307	copyFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	308	\|instance\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	309
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	310	instance := self new.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	311	instance copyFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	312	^ instance
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	313	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	314
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	315	copyFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning copyFileIfSame:copy
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	316	\|instance\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	317
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	318	instance := self new.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	319	instance copyFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning copyFileIfSame:copy.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	320	^ instance
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	321	! !
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	322
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	323	!FileOperation::Copy methodsFor:'accessing'!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	324
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	325	colOfCopiedFiles
6373 16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	326	"obsolete - bad name"
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	327
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	328	^ self collectionOfCopiedFiles
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	329	!
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	330
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	331	collectionOfCopiedFiles
6374 f9bed8385350 * empty log message * Claus Gittinger <cg@exept.de> parents: 6373 diff changeset	332	copiedFiles isNil ifTrue:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	333	copiedFiles := OrderedCollection new.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	334	].
6374 f9bed8385350 * empty log message * Claus Gittinger <cg@exept.de> parents: 6373 diff changeset	335	^ copiedFiles
f9bed8385350 * empty log message * Claus Gittinger <cg@exept.de> parents: 6373 diff changeset	336	!
f9bed8385350 * empty log message * Claus Gittinger <cg@exept.de> parents: 6373 diff changeset	337
f9bed8385350 * empty log message * Claus Gittinger <cg@exept.de> parents: 6373 diff changeset	338	collectionOfNewFiles
f9bed8385350 * empty log message * Claus Gittinger <cg@exept.de> parents: 6373 diff changeset	339	newFiles isNil ifTrue:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	340	newFiles := OrderedCollection new.
6374 f9bed8385350 * empty log message * Claus Gittinger <cg@exept.de> parents: 6373 diff changeset	341	].
f9bed8385350 * empty log message * Claus Gittinger <cg@exept.de> parents: 6373 diff changeset	342	^ newFiles
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	343	! !
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	344
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	345	!FileOperation::Copy methodsFor:'actions'!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	346
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	347	copyFile:aSourceFile to:aDestFile
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	348	self copyFile:aSourceFile to:aDestFile withOverWriteWarning:true
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	349	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	350
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	351	copyFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	352	self copyFile:aSourceFile to:aDestFile withOverWriteWarning:true copyFileIfSame:true
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	353	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	354
6373 16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	355	copyFiles:aColOfSourceFiles to:aDirectory
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	356	^ self copyFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:true.
6373 16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	357	!
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	358
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	359	copyFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning
6373 16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	360	^ self copyFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning copyFileIfSame:true.
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	361	! !
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	362
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	363	!FileOperation::Copy methodsFor:'actions-basic'!
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	364
7634 f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	365	basicCopy:aSourceFile to:newFile
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	366	aSourceFile isDirectory ifTrue:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	367	OperatingSystem recursiveCopyDirectory:(aSourceFile pathName) to:(newFile pathName).
7634 f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	368	] ifFalse:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	369	aSourceFile copyTo:newFile.
7634 f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	370	].
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	371
7634 f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	372	"Created: / 07-02-2007 / 18:35:52 / cg"
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	373	!
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	374
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	375	copyFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarningBoolean copyFileIfSame:copyIfSameBoolean
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	376	\|newFile fileString targetDirectory suffix\|
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	377
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	378	aDestFile isDirectory ifTrue:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	379	targetDirectory := aDestFile.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	380	newFile := aDestFile construct:(aSourceFile baseName).
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	381	] ifFalse:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	382	targetDirectory := aDestFile directory.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	383	newFile := aDestFile.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	384	].
7634 f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	385
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	386	"/ do not copy if destination directory doest exist.
7634 f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	387	(self checkDirectoryExists:targetDirectory) ifFalse:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	388	result := false.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	389	^ self
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	390	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	391	(newFile exists) ifTrue:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	392	((newFile asString = aSourceFile asString) and:[copyIfSameBoolean]) ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	393	[newFile exists] whileTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	394	suffix := newFile suffix.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	395	fileString := newFile baseName withoutSuffix, self class suffixForCopyOverExistingFile, '.', suffix.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	396	newFile := targetDirectory construct:fileString.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	397	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	398	] ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	399	overWriteWarningBoolean ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	400	(self fileExistsDialogForNewFile:newFile oldFile:aSourceFile withCancel:false withRemoveIfSame:false) ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	401	result := false.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	402	^ self.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	403	]
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	404	] ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	405	result := false.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	406	^ self.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	407	]
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	408	].
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	409	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	410	Error handle:[:ex\|
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	411	"was not able to copy it"
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	412	WarningBox warn:'on copy file - ', ex errorString.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	413	self errorString:('on copy file - ', ex description asString).
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	414	result := false.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	415	^ self
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	416	] do:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	417	self basicCopy:aSourceFile to:newFile.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	418	].
4006 8c706ba8b3b5 change flushCachedDirectory: senders to flushCachedDirectoryFor: penk parents: 3977 diff changeset	419	DirectoryContents flushCachedDirectoryFor:(aSourceFile directory).
8c706ba8b3b5 change flushCachedDirectory: senders to flushCachedDirectoryFor: penk parents: 3977 diff changeset	420	result := true.
7634 f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	421
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	422	"Modified: / 07-02-2007 / 18:36:02 / cg"
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	423	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	424
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	425	copyFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning copyFileIfSame:copy
7634 f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	426	\|newFile suffix fileString doCopy\|
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	427
7634 f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	428	"/ do not copy if destination directory doest exist.
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	429	(self checkDirectoryExists:aDirectory) ifFalse:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	430	result := false.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	431	^ self
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	432	].
6374 f9bed8385350 * empty log message * Claus Gittinger <cg@exept.de> parents: 6373 diff changeset	433
f9bed8385350 * empty log message * Claus Gittinger <cg@exept.de> parents: 6373 diff changeset	434	aColOfSourceFiles do:[:filename \|
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	435	newFile := aDirectory construct:(filename baseName).
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	436	doCopy := true.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	437	(newFile exists) ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	438	((newFile asString = filename asString) and:[copy]) ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	439	[newFile exists] whileTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	440	suffix := newFile suffix.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	441	fileString := newFile withoutSuffix baseName, self class suffixForCopyOverExistingFile.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	442	suffix notEmpty ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	443	fileString := fileString, '.', suffix.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	444	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	445	newFile := aDirectory construct:fileString.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	446	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	447	] ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	448	overWriteWarning ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	449	doCopy := (self fileExistsDialogForNewFile:newFile oldFile:filename withCancel:(aColOfSourceFiles size > 1) withRemoveIfSame:false).
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	450	doCopy isNil ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	451	" abort pressed "
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	452	result := false.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	453	^ self.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	454	]
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	455	]
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	456	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	457	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	458	doCopy ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	459	Error handle:[:ex\|
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	460	\|msg\|
7634 f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	461
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	462	msg := 'on copy file - ', ex description asString.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	463	"was not able to copy it"
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	464	result := false.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	465	self errorString:msg.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	466	( Dialog
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	467	confirm:('Error ',msg)
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	468	title:'Copy'
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	469	yesLabel:'Continue'
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	470	noLabel:'Abort') ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	471	ex proceed.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	472	] ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	473	^ self.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	474	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	475	] do:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	476	self basicCopy:filename to:newFile
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	477	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	478	self collectionOfCopiedFiles add:filename.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	479	self collectionOfNewFiles add:newFile.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	480	]
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	481	].
4006 8c706ba8b3b5 change flushCachedDirectory: senders to flushCachedDirectoryFor: penk parents: 3977 diff changeset	482	DirectoryContents flushCachedDirectoryFor:aDirectory.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	483	result := true.
7634 f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	484
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	485	"Modified: / 07-02-2007 / 18:36:54 / cg"
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	486	! !
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	487
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	488	!FileOperation::CopyCorrupted methodsFor:'actions-basic'!
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	489
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	490	basicCopy:aSourceFile to:newFile
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	491	aSourceFile isDirectory ifTrue:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	492	newFile makeDirectory.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	493	aSourceFile directoryContentsDo:[:eachFileOrDirectory \|
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	494	self basicCopy:(aSourceFile construct:eachFileOrDirectory) to:(newFile construct:eachFileOrDirectory)
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	495	].
7634 f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	496	] ifFalse:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	497	self basicCopyFile:aSourceFile to:newFile.
7634 f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	498	].
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	499
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	500	"Created: / 07-02-2007 / 18:39:03 / cg"
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	501	!
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	502
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	503	basicCopyFile:sourceFile to:destFile
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	504	"this is a copy which is tolerant w.r.t. read errors.
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	505	Wheneven a read fails, a number of retries is performed
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	506	(with smaller buffer sizes) and, a block of zeros is eventually written.
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	507	This allows for partially corrupted data to be read from a tape or disk."
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	508
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	509	\|in in2 out doWrite doRead fileSize offset buffer bufferSize nRead nWritten nSingle
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	510	lostStart lostEnd seekFailed\|
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	511
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	512	buffer := ByteArray new:102410248.
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	513	bufferSize := buffer size.
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	514	offset := 0.
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	515	fileSize := sourceFile fileSize.
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	516	in := sourceFile readStream binary.
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	517	out := destFile writeStream binary.
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	518
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	519	doWrite := [:n \|
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	520	nWritten := out nextPutBytes:n from:buffer startingAt:1.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	521	offset := offset + nWritten.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	522	nWritten ~= n ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	523	self error:'Write error'.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	524	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	525	].
7634 f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	526
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	527	doRead := [:n \|
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	528	ReadError handle:[:ex \|
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	529	nRead := 0.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	530	in position:offset.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	531	] do:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	532	nRead := in nextBytes:n into:buffer startingAt:1.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	533	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	534	].
7634 f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	535
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	536	[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	537	[offset < fileSize] whileTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	538	doRead value:(bufferSize min:(fileSize - offset)).
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	539	nRead > 0 ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	540	lostStart notNil ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	541	Transcript showCR:'CORRUPT: ',(lostStart printString),' .. ',(lostEnd printString).
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	542	lostStart := nil.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	543	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	544	doWrite value:nRead.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	545	].
7634 f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	546
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	547	nRead == (bufferSize min:(fileSize - offset)) ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	548	bufferSize < buffer size ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	549	bufferSize := bufferSize * 2.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	550	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	551	] ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	552	nRead == 0 ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	553	"/ try reading single blocks for a while...
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	554	nSingle := 512.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	555	[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	556	nSingle > 0
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	557	and:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	558	doRead value:256.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	559	nRead > 0]
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	560	] whileTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	561	lostStart notNil ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	562	Transcript showCR:'CORRUPT: ',(lostStart printString),' .. ',(lostEnd printString).
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	563	lostStart := nil.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	564	].
7634 f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	565	Transcript showCR:'single block at ',offset printString.
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	566	doWrite value:nRead.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	567	nSingle := nSingle - 1.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	568	].
7634 f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	569
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	570	nRead == 0 ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	571	in2 := sourceFile readStream binary.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	572	Error handle:[:ex \|
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	573	] do:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	574	in2 position:0.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	575	in2 nextBytes:buffer size into:buffer startingAt:1.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	576	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	577	seekFailed := false.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	578	Error handle:[:ex \|
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	579	seekFailed := true.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	580	] do:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	581	in2 position:offset.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	582	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	583	seekFailed ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	584	buffer from:1 to:256 put:0.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	585	Transcript showCR:'bad seek at ',offset printString.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	586	doWrite value:256.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	587	] ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	588	in close.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	589	in := in2.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	590	doRead value:256.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	591	nRead > 0 ifTrue:[
7634 f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	592	Transcript showCR:'single after reopen at ',offset printString.
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	593	doWrite value:nRead.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	594	] ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	595	lostStart isNil ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	596	lostStart := lostEnd := offset.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	597	] ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	598	lostEnd := offset.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	599	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	600	buffer from:1 to:256 put:0.
7634 f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	601	Transcript showCR:'bad at ',offset printString.
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	602	doWrite value:256.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	603	bufferSize := 256.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	604	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	605	]
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	606	]
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	607	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	608	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	609	Transcript showCR:offset.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	610	].
7634 f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	611	] ensure:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	612	in close.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	613	out close.
7634 f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	614	].
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	615	lostStart notNil ifTrue:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	616	Transcript showCR:'CORRUPT: ',(lostStart printString),' .. ',(lostEnd printString).
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	617	lostStart := nil.
7634 f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	618	].
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	619
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	620	"Created: / 07-02-2007 / 18:40:32 / cg"
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	621	"Modified: / 07-02-2007 / 21:40:24 / cg"
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	622	! !
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	623
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	624	!FileOperation::Create class methodsFor:'actions'!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	625
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	626	createDirectoryIn:aDirectory
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	627
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	628	\|instance\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	629
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	630	instance := self new.
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	631	instance createDirectoryIn:aDirectory.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	632	^ instance
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	633	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	634
5961 f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	635	createDirectoryIn:aDirectory initialAnswer:defaultAnswer
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	636
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	637	\|instance\|
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	638
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	639	instance := self new.
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	640	instance createDirectoryIn:aDirectory initialAnswer:defaultAnswer.
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	641	^ instance
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	642	!
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	643
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	644	createFileIn:aFile
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	645
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	646	\|instance\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	647
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	648	instance := self new.
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	649	instance createFileIn:aFile.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	650	^ instance
3877 ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	651	!
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	652
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	653	createHardLinkIn:aFile
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	654	"create an new hard link in a files directory"
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	655
6151 baba7a7d54b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6150 diff changeset	656	^ self createLinkIn:aFile soft:false
baba7a7d54b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6150 diff changeset	657	!
baba7a7d54b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6150 diff changeset	658
baba7a7d54b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6150 diff changeset	659	createLinkIn:aFile soft:soft
baba7a7d54b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6150 diff changeset	660	"create an new soft or hard link in a files directory"
baba7a7d54b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6150 diff changeset	661
3877 ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	662	\|instance\|
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	663
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	664	instance := self new.
6151 baba7a7d54b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6150 diff changeset	665	instance createLinkIn:aFile soft:soft.
3877 ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	666	^ instance
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	667	!
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	668
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	669	createSoftLinkIn:aFile
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	670	"create an new soft link in a files directory"
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	671
6151 baba7a7d54b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6150 diff changeset	672	^ self createLinkIn:aFile soft:true
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	673	! !
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	674
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	675	!FileOperation::Create methodsFor:'accessing'!
a761857e62ef * empty log message * penk parents: 3850 diff changeset	676
a761857e62ef * empty log message * penk parents: 3850 diff changeset	677	createdFile
a761857e62ef * empty log message * penk parents: 3850 diff changeset	678	^ createdFile
a761857e62ef * empty log message * penk parents: 3850 diff changeset	679	!
a761857e62ef * empty log message * penk parents: 3850 diff changeset	680
a761857e62ef * empty log message * penk parents: 3850 diff changeset	681	createdFile:something
a761857e62ef * empty log message * penk parents: 3850 diff changeset	682	createdFile := something.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	683	! !
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	684
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	685	!FileOperation::Create methodsFor:'actions'!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	686
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	687	createDirectoryIn:startDirectory
4522 917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	688	\|defaultDirectory\|
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	689
4522 917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	690	"/ stupid - that one already exists
917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	691	"/ LastCreatedDirectory notNil ifTrue:[
917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	692	"/ defaultDirectory := LastCreatedDirectory baseName.
917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	693	"/ ].
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	694
4522 917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	695	^ self createDirectoryIn:startDirectory initialAnswer:defaultDirectory
917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	696	!
917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	697
6373 16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	698	createHardLinkIn:aFile
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	699	"create an new hard link in a files directory"
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	700
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	701	self createLinkIn:aFile soft:false.
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	702	!
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	703
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	704	createSoftLinkIn:aFile
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	705	"create an new soft link in a files directory"
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	706
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	707	self createLinkIn:aFile soft:true.
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	708	!
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	709
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	710	operationError:msg
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	711	self result:false.
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	712	Dialog warn:msg.
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	713	self errorString:msg.
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	714	! !
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	715
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	716	!FileOperation::Create methodsFor:'actions-basic'!
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	717
4522 917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	718	createDirectoryIn:startDirectory initialAnswer:initialAnswerArg
4584 7664dfcac0e4 resource strings Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	719	\|resources initialAnswer msg startBaseName newName newDir\|
7664dfcac0e4 resource strings Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	720
7664dfcac0e4 resource strings Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	721	resources := AbstractFileBrowser classResources.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	722
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	723	startBaseName := startDirectory baseName.
4522 917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	724	initialAnswer := initialAnswerArg.
917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	725	(startDirectory construct:initialAnswer) exists ifTrue:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	726	initialAnswer := nil.
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	727	].
7084 0d178f33c920 unneeded code removed Claus Gittinger <cg@exept.de> parents: 7052 diff changeset	728	newName := Dialog
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	729	request:(resources string:'Create New Directory in %1:' with:startBaseName allBold)
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	730	initialAnswer:initialAnswer
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	731	okLabel:(resources string:'Create')
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	732	title:(resources string:'Create Directory')
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	733	onCancel:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	734	self result:false.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	735	^ self
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	736	].
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	737	newName isEmpty ifTrue:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	738	self result:false.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	739	^ self
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	740	].
4522 917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	741	newDir := startDirectory construct:newName.
917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	742	newDir exists ifTrue:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	743	Dialog warn:(newName, ' already exists.').
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	744	result := false.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	745	^ self
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	746	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	747
4522 917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	748	newDir makeDirectory ifFalse:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	749	msg := errorString := ('cannot create directory '', newName,'' !!') , '(', (OperatingSystem lastErrorString) , ')'.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	750	errorString := msg.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	751	Dialog warn:errorString.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	752	result := false.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	753	^ self
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	754	].
4522 917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	755	self createdFile:newDir.
917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	756	LastCreatedDirectory := newDir.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	757	result := true.
7084 0d178f33c920 unneeded code removed Claus Gittinger <cg@exept.de> parents: 7052 diff changeset	758
0d178f33c920 unneeded code removed Claus Gittinger <cg@exept.de> parents: 7052 diff changeset	759	"Modified: / 05-09-2006 / 11:52:48 / cg"
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	760	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	761
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	762	createFileIn:aFile
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	763	"create an empty file"
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	764
4584 7664dfcac0e4 resource strings Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	765	\|resources aStream msg file directory newName defaultFile\|
7664dfcac0e4 resource strings Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	766
7664dfcac0e4 resource strings Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	767	resources := AbstractFileBrowser classResources.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	768
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	769	aFile isDirectory ifTrue:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	770	directory := aFile
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	771	] ifFalse:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	772	directory := aFile directory.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	773	file := aFile
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	774	].
a761857e62ef * empty log message * penk parents: 3850 diff changeset	775	LastCreatedFile isNil ifTrue:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	776	defaultFile := aFile baseName.
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	777	] ifFalse:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	778	defaultFile := LastCreatedFile baseName.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	779	].
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	780	newName := Dialog
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	781	request:(resources string:'Create New File in %1:' with:directory baseName allBold)
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	782	initialAnswer:defaultFile
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	783	okLabel:(resources string:'Create')
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	784	title:(resources string:'Create File')
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	785	onCancel:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	786	self result:false.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	787	^ self
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	788	].
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	789	newName isEmpty ifTrue:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	790	self result:false.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	791	] ifFalse:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	792	\| newFile \|
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	793	newFile := directory construct:newName.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	794	newFile exists ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	795	(Dialog
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	796	confirm:(newName, ' already exists truncate ?')
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	797	yesLabel:('Truncate')
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	798	noLabel:('Cancel'))
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	799	ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	800	self result:false.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	801	^ self
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	802	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	803	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	804	FileStream openErrorSignal handle:[:ex\|
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	805	msg := ('Cannot create file '', newName,'' !!') , '(' , (FileStream lastErrorString) , ')'.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	806	errorString := msg.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	807	self result:false.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	808	^ Dialog warn:errorString
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	809	] do:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	810	aStream := newFile newReadWriteStream.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	811	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	812	aStream close.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	813	self createdFile:newFile.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	814	LastCreatedFile := newFile.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	815	self result:true.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	816	].
3877 ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	817	!
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	818
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	819	createLinkIn:aFile soft:symbolic
4788 eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	820	"ask for the link target;
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	821	then, create an new soft or hard link in aFile's directory"
3877 ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	822
4788 eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	823	\|resources newPath oldPath box string if1 if2\|
4584 7664dfcac0e4 resource strings Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	824
7664dfcac0e4 resource strings Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	825	resources := AbstractFileBrowser classResources.
3877 ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	826
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	827	aFile isDirectory ifTrue:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	828	newPath := aFile asValue.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	829	oldPath := aFile asValue.
3877 ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	830	] ifFalse:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	831	newPath := aFile directory asValue.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	832	oldPath := aFile asValue.
3877 ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	833	].
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	834
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	835	box := Dialog new.
4585 ee485ca5a96a resource strings Claus Gittinger <cg@exept.de> parents: 4584 diff changeset	836	box label:'Create Link'.
ee485ca5a96a resource strings Claus Gittinger <cg@exept.de> parents: 4584 diff changeset	837
ee485ca5a96a resource strings Claus Gittinger <cg@exept.de> parents: 4584 diff changeset	838	string := 'Create ', (symbolic ifTrue:['Symbolic'] ifFalse:['Hard']) ,' Link from:'.
4584 7664dfcac0e4 resource strings Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	839	(box addTextLabel:(resources string:string)) adjust:#left.
6150 5028485a29c6 fixed new-symbolic link operation Claus Gittinger <cg@exept.de> parents: 6088 diff changeset	840	if1 := box addFilenameInputFieldOn:oldPath in:nil tabable:true.
4584 7664dfcac0e4 resource strings Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	841	(box addTextLabel:(resources string:'to:')) adjust:#left.
6150 5028485a29c6 fixed new-symbolic link operation Claus Gittinger <cg@exept.de> parents: 6088 diff changeset	842	if2 := box addFilenameInputFieldOn:newPath in:nil value tabable:true.
3877 ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	843
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	844	box addAbortAndOkButtons.
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	845
6250 5b0673ccff1c refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6185 diff changeset	846	aFile isDirectory ifFalse:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	847	box focusOnField:if1.
3877 ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	848	].
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	849	box showAtPointer.
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	850
4788 eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	851	box accepted ifFalse:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	852	self result:false.
4788 eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	853	] ifTrue:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	854	self doCreateLinkFrom:(oldPath value) to:(newPath value) soft:symbolic.
3877 ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	855	].
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	856	!
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	857
6150 5028485a29c6 fixed new-symbolic link operation Claus Gittinger <cg@exept.de> parents: 6088 diff changeset	858	doCreateLinkFrom:oldPath to:newPathArg soft:symbolic
4788 eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	859	"actually create a soft or hard link"
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	860
6150 5028485a29c6 fixed new-symbolic link operation Claus Gittinger <cg@exept.de> parents: 6088 diff changeset	861	\|resources err newPath newPathFile oldPathFile\|
5028485a29c6 fixed new-symbolic link operation Claus Gittinger <cg@exept.de> parents: 6088 diff changeset	862
5028485a29c6 fixed new-symbolic link operation Claus Gittinger <cg@exept.de> parents: 6088 diff changeset	863	newPath := newPathArg.
4788 eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	864
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	865	resources := AbstractFileBrowser classResources.
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	866
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	867	(oldPath size == 0) ifTrue:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	868	self operationError:'Missing source'.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	869	^ self.
4788 eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	870	].
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	871	(newPath size == 0) ifTrue:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	872	self operationError:'Missing link name (target)'.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	873	^ self.
4788 eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	874	].
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	875
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	876	newPathFile := newPath asFilename.
6150 5028485a29c6 fixed new-symbolic link operation Claus Gittinger <cg@exept.de> parents: 6088 diff changeset	877	oldPathFile := oldPath asFilename.
5028485a29c6 fixed new-symbolic link operation Claus Gittinger <cg@exept.de> parents: 6088 diff changeset	878
5028485a29c6 fixed new-symbolic link operation Claus Gittinger <cg@exept.de> parents: 6088 diff changeset	879	newPathFile exists ifTrue:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	880	newPathFile isDirectory ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	881	newPathFile := newPathFile construct:(oldPathFile baseName).
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	882	newPath := newPathFile name.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	883	].
6150 5028485a29c6 fixed new-symbolic link operation Claus Gittinger <cg@exept.de> parents: 6088 diff changeset	884	].
5028485a29c6 fixed new-symbolic link operation Claus Gittinger <cg@exept.de> parents: 6088 diff changeset	885
4788 eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	886	newPathFile exists ifTrue:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	887	self operationError:(resources string:'%1 already exists' with:newPath allBold).
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	888	^ self.
4788 eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	889	].
6150 5028485a29c6 fixed new-symbolic link operation Claus Gittinger <cg@exept.de> parents: 6088 diff changeset	890	oldPathFile exists ifFalse:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	891	symbolic ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	892	oldPathFile isAbsolute ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	893	self operationError:(resources string:'%1 does not exist' with:oldPath allBold).
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	894	^ self.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	895	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	896	(newPathFile directory construct:oldPath) exists ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	897	Dialog warn:(resources string:'%1 does not exist (Warning only)' with:oldPath allBold).
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	898	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	899	] ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	900	self operationError:(resources string:'%1 does not exist' with:oldPath allBold).
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	901	^ self.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	902	].
4788 eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	903	].
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	904	((symbolic not) and:[oldPathFile isDirectory]) ifTrue:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	905	self operationError:(resources string:'%1 is a directory' with:oldPath allBold).
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	906	^ self.
4788 eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	907	].
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	908	ErrorSignal handle:[:ex \|
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	909	err := ex errorString.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	910	self operationError:err.
4788 eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	911	] do:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	912	symbolic ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	913	OperatingSystem createSymbolicLinkFrom:oldPath to:newPath.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	914	] ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	915	OperatingSystem createHardLinkFrom:oldPath to:newPath
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	916	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	917	self createdFile:newPathFile.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	918	self result:true.
4788 eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	919	].
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	920	! !
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	921
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	922	!FileOperation::Delete class methodsFor:'actions'!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	923
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	924	deleteFile:aFileOrDirectory
6168 45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	925	"delete aFileOrDirectory"
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	926
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	927	\|instance\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	928
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	929	instance := self new.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	930	instance deleteFile:aFileOrDirectory.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	931	^ instance
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	932	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	933
6168 45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	934	deleteFiles:aCollectionOfFiles
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	935	^ self deleteFiles:aCollectionOfFiles confirm:true
5081 e55e62d8aeb9 cut and paste files in same directory penk parents: 5021 diff changeset	936	!
e55e62d8aeb9 cut and paste files in same directory penk parents: 5021 diff changeset	937
6168 45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	938	deleteFiles:aCollectionOfFiles confirm:confirm
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	939	"delete aCollectionOfFiles"
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	940
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	941	\|instance\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	942
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	943	instance := self new.
6168 45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	944	instance deleteFiles:aCollectionOfFiles confirm:confirm.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	945	^ instance
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	946	! !
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	947
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	948	!FileOperation::Delete methodsFor:'actions'!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	949
6373 16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	950	deleteFiles:colOfFiles
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	951	^ self deleteFiles:colOfFiles confirm:true.
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	952	!
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	953
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	954	eraseFilesContentsBeforeRemoving:file
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	955	"intentionally left blank"
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	956	! !
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	957
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	958	!FileOperation::Delete methodsFor:'actions-basic'!
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	959
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	960	deleteFile:aFileOrDirectory
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	961	\| file isDirectory \|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	962
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	963	aFileOrDirectory notNil ifTrue:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	964	file := aFileOrDirectory asFilename.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	965
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	966	isDirectory := file isDirectory.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	967
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	968	Error handle:[:ex\|
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	969	"was not able to remove it"
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	970	Dialog warn:(ex description).
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	971	self errorString:(ex description).
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	972	result := false.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	973	^ self.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	974	] do:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	975	isDirectory ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	976	file recursiveRemove
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	977	] ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	978	self eraseFilesContentsBeforeRemoving:file.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	979	file remove
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	980	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	981	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	982	"/ flush parent directory or directory
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	983	].
4006 8c706ba8b3b5 change flushCachedDirectory: senders to flushCachedDirectoryFor: penk parents: 3977 diff changeset	984	DirectoryContents flushCachedDirectoryFor:(file directory).
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	985	result := true.
5746 a505fc181e11 warning string (backslash in pc-filename) Claus Gittinger <cg@exept.de> parents: 5687 diff changeset	986
a505fc181e11 warning string (backslash in pc-filename) Claus Gittinger <cg@exept.de> parents: 5687 diff changeset	987	"Modified: / 17-03-2004 / 12:42:02 / cg"
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	988	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	989
5081 e55e62d8aeb9 cut and paste files in same directory penk parents: 5021 diff changeset	990	deleteFiles:colOfFiles confirm:confirm
7051 4d1e19c7a648 * empty log message * Claus Gittinger <cg@exept.de> parents: 6618 diff changeset	991	\|resources answer nFilesToDelete ask labels values fileTypeString msg lbls vals dontAskForNonEmptyDirectory\|
5081 e55e62d8aeb9 cut and paste files in same directory penk parents: 5021 diff changeset	992
7051 4d1e19c7a648 * empty log message * Claus Gittinger <cg@exept.de> parents: 6618 diff changeset	993	dontAskForNonEmptyDirectory := false.
5081 e55e62d8aeb9 cut and paste files in same directory penk parents: 5021 diff changeset	994	ask := confirm.
4584 7664dfcac0e4 resource strings Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	995	resources := AbstractFileBrowser classResources.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	996
4701 b30d103a8bc9 better confirmation dialogs Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	997	nFilesToDelete := colOfFiles size.
4408 8c0c80b68ae7 ask again, if dir is not empty Claus Gittinger <cg@exept.de> parents: 4395 diff changeset	998	colOfFiles do:[:filenameOrString \|
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	999	\|filename doDelete skip\|
4408 8c0c80b68ae7 ask again, if dir is not empty Claus Gittinger <cg@exept.de> parents: 4395 diff changeset	1000
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1001	filename := filenameOrString asFilename.
4665 cd7e02bf5d85 fixed to allow deleting bad symbolic links Claus Gittinger <cg@exept.de> parents: 4664 diff changeset	1002
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1003	skip := false.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1004	fileTypeString := ''.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1005	filename isSymbolicLink ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1006	fileTypeString := 'symbolic link '.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1007	] ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1008	filename exists ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1009	(Dialog
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1010	confirm:('%1 does not exist.' bindWith:filename asString allBold)
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1011	yesLabel:(resources string:'Proceed')
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1012	noLabel:(resources string:'Cancel'))
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1013	ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1014	^ self.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1015	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1016	skip := true.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1017	]
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1018	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1019	skip ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1020	ask ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1021	nFilesToDelete = 1 ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1022	labels := #('No' 'Yes').
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1023	values := #(#no #yes).
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1024	] ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1025	labels := #('Cancel' 'No' 'Yes' 'Yes to All' ).
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1026	values := #(#cancel #no #yes #yesToAll).
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1027	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1028	msg := self isErase ifTrue:'Really erase' ifFalse:'Really delete'.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1029	msg := msg ,
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1030	(nFilesToDelete = 1
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1031	ifTrue:'\\%1%2 ?'
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1032	ifFalse:'\\%1%2 \\(%3 files alltogether)').
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1033	answer := Dialog
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1034	confirmWithCancel:(resources
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1035	stringWithCRs:msg
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1036	with:fileTypeString
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1037	with:(filename asString allBold)
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1038	with:nFilesToDelete)
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1039	labels:(resources array:labels)
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1040	values:values
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1041	default:(values indexOf:#yes).
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1042	] ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1043	answer := #yesToAll.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1044	].
5673 3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	1045
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1046	answer == #cancel ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1047	^ self.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1048	].
5673 3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	1049
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1050	answer == #yesToAll ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1051	ask := false.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1052	answer := #yes.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1053	].
4408 8c0c80b68ae7 ask again, if dir is not empty Claus Gittinger <cg@exept.de> parents: 4395 diff changeset	1054
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1055	answer == #yes ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1056	doDelete := true.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1057	filename isSymbolicLink ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1058	dontAskForNonEmptyDirectory ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1059	filename isNonEmptyDirectory ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1060	colOfFiles size == 1 ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1061	lbls := #('Cancel' 'Remove').
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1062	vals := #(false true).
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1063	] ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1064	lbls := #('Cancel All' 'Keep' 'Remove' 'Remove All').
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1065	vals := #(nil false true #removeAll).
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1066	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1067	doDelete := Dialog
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1068	confirmWithCancel:(resources
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1069	stringWithCRs:'Directory ''%1'' is not empty\remove anyway ?'
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1070	with:filename pathName allBold)
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1071	labels:( resources array:lbls )
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1072	values:vals
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1073	default:(vals indexOf:true).
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1074	doDelete == nil ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1075	^ self
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1076	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1077	doDelete == #removeAll ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1078	dontAskForNonEmptyDirectory := true.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1079	doDelete := true.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1080	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1081	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1082	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1083	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1084	doDelete ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1085	self deleteFile:filename.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1086	]
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1087	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1088	].
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1089	].
7051 4d1e19c7a648 * empty log message * Claus Gittinger <cg@exept.de> parents: 6618 diff changeset	1090
7084 0d178f33c920 unneeded code removed Claus Gittinger <cg@exept.de> parents: 7052 diff changeset	1091	"Modified: / 05-09-2006 / 11:52:35 / cg"
6168 45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	1092	! !
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	1093
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	1094	!FileOperation::Erase methodsFor:'actions'!
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	1095
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	1096	eraseFilesContentsBeforeRemoving
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	1097	"fill file with zeros"
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	1098
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	1099	self halt.
6373 16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	1100	! !
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	1101
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	1102	!FileOperation::Erase methodsFor:'actions-basic'!
6168 45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	1103
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	1104	eraseFilesContentsBeforeRemoving:file
7634 f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	1105	"fill file with zeros (to be really erased from the disk).
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	1106	We use this, if the file contains security relevant data (such as crypto-keys)"
6168 45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	1107
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	1108	\|writeStream fileSize remaining buffer bufferSize nWritten\|
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	1109
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	1110	fileSize := file fileSize.
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	1111	writeStream := file asFilename readWriteStream.
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	1112
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1113	remaining := fileSize.
6168 45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	1114	bufferSize := 8192.
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	1115	buffer := ByteArray new:bufferSize.
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	1116	[remaining > 0] whileTrue:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1117	nWritten := writeStream
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1118	nextPutBytes:(bufferSize min:remaining)
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1119	from:buffer
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1120	startingAt:1.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1121	remaining := remaining - nWritten.
6168 45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	1122	].
45a19dfda66b code cleanup + erase Claus Gittinger <cg@exept.de> parents: 6153 diff changeset	1123	writeStream close.
7634 f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	1124
f3ff12d68382 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7606 diff changeset	1125	"Modified: / 07-02-2007 / 18:20:21 / cg"
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1126	! !
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1127
6285 fc86d75c6e29 * empty log message * Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	1128	!FileOperation::Erase methodsFor:'queries'!
fc86d75c6e29 * empty log message * Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	1129
fc86d75c6e29 * empty log message * Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	1130	isErase
fc86d75c6e29 * empty log message * Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	1131	^ true
fc86d75c6e29 * empty log message * Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	1132	! !
fc86d75c6e29 * empty log message * Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	1133
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1134	!FileOperation::Move class methodsFor:'actions'!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1135
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1136	moveFile:aSourceFile to:aDestFile
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1137	\|instance\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1138
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1139	instance := self new.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1140	instance moveFile:aSourceFile to:aDestFile.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1141	^ instance
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1142	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1143
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1144	moveFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1145	\|instance\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1146
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1147	instance := self new.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1148	instance moveFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1149	^ instance
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1150	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1151
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1152	moveFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning moveFileIfSame:move
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1153	\|instance\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1154
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1155	instance := self new.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1156	instance moveFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning moveFileIfSame:move.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1157	^ instance
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1158	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1159
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1160	moveFiles:aColOfSourceFiles to:aDirectory
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1161	\|instance\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1162
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1163	instance := self new.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1164	instance moveFiles:aColOfSourceFiles to:aDirectory.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1165	^ instance
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1166	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1167
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1168	moveFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1169	\|instance\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1170
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1171	instance := self new.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1172	instance moveFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1173	^ instance
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1174	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1175
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1176	moveFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning moveFileIfSame:move
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1177	\|instance\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1178
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1179	instance := self new.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1180	instance moveFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning moveFileIfSame:move.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1181	^ instance
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1182	! !
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1183
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1184	!FileOperation::Move methodsFor:'accessing'!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1185
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1186	colOfMovedFiles
6373 16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	1187	"obsolete - bad name"
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	1188
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	1189	^ self collectionOfMovedFiles
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	1190	!
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	1191
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	1192	collectionOfMovedFiles
6374 f9bed8385350 * empty log message * Claus Gittinger <cg@exept.de> parents: 6373 diff changeset	1193	movedFiles isNil ifTrue:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1194	movedFiles := OrderedCollection new.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1195	].
6374 f9bed8385350 * empty log message * Claus Gittinger <cg@exept.de> parents: 6373 diff changeset	1196	^ movedFiles
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1197	! !
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1198
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1199	!FileOperation::Move methodsFor:'actions'!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1200
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1201	moveFile:aSourceFile to:aDestFile
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1202
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1203	^ self moveFile:aSourceFile to:aDestFile withOverWriteWarning:true.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1204	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1205
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1206	moveFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1207
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1208	^ self moveFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning moveFileIfSame:true
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1209	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1210
6373 16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	1211	moveFiles:aColOfSourceFiles to:aDirectory
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	1212
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	1213	^ self moveFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:true
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	1214	!
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	1215
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	1216	moveFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	1217
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	1218	^ self moveFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning moveFileIfSame:true
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	1219	! !
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	1220
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	1221	!FileOperation::Move methodsFor:'actions-basic'!
16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	1222
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1223	moveFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning moveFileIfSame:move
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1224
5862 41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1225	\|newFile fileString targetDirectory targetIsDirectory suffix doMove\|
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1226
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1227	targetIsDirectory := aDestFile isDirectory.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1228	targetIsDirectory ifTrue:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1229	targetDirectory := aDestFile.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1230	newFile := aDestFile construct:(aSourceFile baseName).
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1231	] ifFalse:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1232	targetDirectory := aDestFile directory.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1233	newFile := aDestFile.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1234	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1235	"/ do not copy if destination directory doest exist.
6250 5b0673ccff1c refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6185 diff changeset	1236	targetDirectory exists ifFalse:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1237	Dialog warn:'Cannot move to non-existing directory ', targetDirectory asString.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1238	result := false.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1239	^ self
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1240	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1241	(newFile exists) ifTrue:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1242	((newFile asString = aSourceFile asString) and:[move]) ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1243	[newFile exists] whileTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1244	suffix := newFile suffix.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1245	fileString := newFile baseName withoutSuffix, self class suffixForCopyOverExistingFile, '.', suffix.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1246	newFile := targetDirectory construct:fileString.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1247	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1248	] ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1249	overWriteWarning ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1250	doMove := self fileExistsDialogForNewFile:newFile oldFile:aSourceFile withCancel:false withRemoveIfSame:true.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1251	doMove == #removeSource ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1252	self halt.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1253	result := false.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1254	^ self.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1255	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1256	doMove == #removeDestination ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1257	self halt.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1258	result := false.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1259	^ self.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1260	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1261	doMove == true ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1262	result := false.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1263	^ self.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1264	].
5862 41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1265
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1266	] ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1267	result := false.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1268	^ self.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1269	]
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1270	].
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1271	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1272	Error handle:[:ex\|
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1273	"was not able to copy it"
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1274	WarningBox warn:'Error in copy file Operation: ', ex errorString.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1275	self errorString:('Error in copy file Operation- ', ex description asString).
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1276	result := false.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1277	^ self
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1278	] do:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1279	aSourceFile moveTo:newFile.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1280	].
4006 8c706ba8b3b5 change flushCachedDirectory: senders to flushCachedDirectoryFor: penk parents: 3977 diff changeset	1281	DirectoryContents flushCachedDirectoryFor:(aSourceFile directory).
8c706ba8b3b5 change flushCachedDirectory: senders to flushCachedDirectoryFor: penk parents: 3977 diff changeset	1282	result := true.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1283	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1284
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1285	moveFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning moveFileIfSame:move
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1286
5862 41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1287	\|newFile suffix fileString doMove doRemoveSource doRemoveDestination\|
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1288
5854 8c6042ba7495 ask if non-existing directory should be created Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1289	aDirectory exists ifFalse:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1290	(Dialog confirm:(FileBrowser classResources
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1291	stringWithCRs:'Non-existing directory "%1" .\Create ?'
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1292	with:aDirectory asString allBold)) ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1293	result := false.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1294	^ self
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1295	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1296	aDirectory makeDirectory.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1297	aDirectory exists ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1298	Dialog warn:(FileBrowser classResources
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1299	stringWithCRs:'Cannot create directory "%1" !!\Create ?.'
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1300	with:aDirectory asString allBold).
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1301	result := false.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1302	^ self
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1303	]
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1304	].
5788 c42526d05d57 * empty log message * Claus Gittinger <cg@exept.de> parents: 5746 diff changeset	1305	(aDirectory isDirectory) ifFalse:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1306	Dialog warn:('Destination %1 is not a directory.' bindWith:aDirectory asString allBold).
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1307	result := false.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1308	^ self
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1309	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1310	aColOfSourceFiles do:[: filename \|
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1311	newFile := aDirectory construct:filename baseName.
5790 a20cb6fcb74b * empty log message * Claus Gittinger <cg@exept.de> parents: 5788 diff changeset	1312
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1313	doMove := true.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1314	doRemoveSource := false.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1315	doRemoveDestination := false.
5862 41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1316
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1317	(newFile exists) ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1318	((newFile asString = filename asString) and:[move]) ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1319	[newFile exists] whileTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1320	suffix := newFile suffix.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1321	fileString := newFile withoutSuffix baseName , self class suffixForCopyOverExistingFile, '.', suffix.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1322	newFile := aDirectory construct:fileString.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1323	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1324	] ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1325	overWriteWarning ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1326	doMove := self fileExistsDialogForNewFile:newFile oldFile:filename withCancel:(aColOfSourceFiles size > 1) withRemoveIfSame:true.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1327	doMove isNil ifTrue:[ "/ cancel
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1328	result := false.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1329	^ self.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1330	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1331	(doMove == #removeSource) ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1332	doRemoveSource := true.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1333	doMove := false
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1334	] ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1335	(doMove == #removeDestination) ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1336	doRemoveDestination := true.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1337	doMove := false
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1338	]
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1339	]
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1340	]
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1341	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1342	].
4522 917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	1343
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1344	(doMove or:[doRemoveSource or:[doRemoveDestination]]) ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1345	Error handle:[:ex\|
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1346	"was not able to copy it"
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1347	\|descriptionString\|
5862 41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1348
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1349	result := false.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1350	descriptionString := ex description asString.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1351	self errorString:(' Error in Move-File Operation:', descriptionString).
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1352	( Dialog
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1353	confirm:(' Error in Move-File Operation: ', descriptionString)
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1354	title:'Move'
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1355	yesLabel:'Continue'
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1356	noLabel:'Abort'
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1357	) ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1358	^ self.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1359	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1360	] do:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1361	doRemoveSource ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1362	filename remove
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1363	] ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1364	doRemoveDestination ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1365	newFile remove
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1366	] ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1367	filename moveTo:newFile.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1368	]
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1369	]
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1370	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1371	self collectionOfMovedFiles add:filename
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1372	]
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1373	].
4006 8c706ba8b3b5 change flushCachedDirectory: senders to flushCachedDirectoryFor: penk parents: 3977 diff changeset	1374	DirectoryContents flushCachedDirectoryFor:aDirectory.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1375	result := true.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1376	! !
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1377
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1378	!FileOperation::Rename class methodsFor:'actions'!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1379
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1380	renameFile:oldFile to:newName
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1381	\|instance\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1382
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1383	instance := self new.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1384	instance renameFile:oldFile to:newName.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1385	^ instance
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1386	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1387
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1388	renameFiles:aColOfFiles
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1389	\|instance\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1390
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1391	instance := self new.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1392	instance renameFiles:aColOfFiles.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1393	^ instance
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1394	! !
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1395
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1396	!FileOperation::Rename methodsFor:'accessing'!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1397
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1398	renamedFiles
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1399	renamedFiles isNil ifTrue:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1400	renamedFiles := OrderedCollection new.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1401	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1402	^ renamedFiles
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1403	! !
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1404
6373 16fb0a500e0d * empty log message * Claus Gittinger <cg@exept.de> parents: 6355 diff changeset	1405	!FileOperation::Rename methodsFor:'actions-basic'!
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1406
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1407	renameFile:oldFile to:newName
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1408	"rename a file (or directory)"
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1409
7334 e0bd092badd1 care for same-name rename on OS which is not filename-case-sensitive Claus Gittinger <cg@exept.de> parents: 7084 diff changeset	1410	\|newFile msg resources sameFile\|
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1411
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1412	(oldFile isNil or:[newName isNil]) ifTrue:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1413	result := false.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1414	^ self.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1415	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1416	(oldFile asString isBlank or:[newName isBlank]) ifTrue:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1417	result := false.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1418	^ self.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1419	].
5656 8402ac9f6398 internationalization Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	1420	newName asFilename isAbsolute ifTrue:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1421	newFile := newName asFilename.
5656 8402ac9f6398 internationalization Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	1422	] ifFalse:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1423	(oldFile baseName = newName) ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1424	result := false
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1425	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1426	newFile := oldFile directory construct:newName.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1427	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1428
5656 8402ac9f6398 internationalization Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	1429	oldFile pathName = newFile pathName ifTrue:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1430	^ self.
4674 64a49fadc47e do op if newName is same as old in a rename operation Claus Gittinger <cg@exept.de> parents: 4665 diff changeset	1431	].
7334 e0bd092badd1 care for same-name rename on OS which is not filename-case-sensitive Claus Gittinger <cg@exept.de> parents: 7084 diff changeset	1432	Filename isCaseSensitive ifFalse:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1433	sameFile := (oldFile pathName sameAs: newFile pathName)
7334 e0bd092badd1 care for same-name rename on OS which is not filename-case-sensitive Claus Gittinger <cg@exept.de> parents: 7084 diff changeset	1434	] ifTrue:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1435	sameFile := false
7334 e0bd092badd1 care for same-name rename on OS which is not filename-case-sensitive Claus Gittinger <cg@exept.de> parents: 7084 diff changeset	1436	].
4674 64a49fadc47e do op if newName is same as old in a rename operation Claus Gittinger <cg@exept.de> parents: 4665 diff changeset	1437
5656 8402ac9f6398 internationalization Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	1438	resources := Dialog classResources.
8402ac9f6398 internationalization Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	1439
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1440	OperatingSystem errorSignal handle:[:ex\|
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1441	msg := resources
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1442	stringWithCRs:'Cannot rename file %1 to %2 !!\\(%3)'
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1443	with:oldFile baseName
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1444	with:newName
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1445	with:(OperatingSystem lastErrorString).
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1446	Dialog warn:msg.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1447	result := false.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1448	^ self.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1449	] do:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1450	sameFile ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1451	newFile exists ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1452	(newFile sameContentsAs:oldFile) ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1453	msg := '%1 exists [with same contents] - rename (i.e. overwrite) anyway ?'
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1454	] ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1455	msg := '%1 exists - rename (i.e. overwrite) anyway ?'
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1456	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1457	(Dialog confirmWithCancel:(resources string:msg with:newName allBold) default:false) ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1458	result := false.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1459	^ self.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1460	]
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1461	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1462	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1463	oldFile renameTo:newFile.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1464	self renamedFiles add:newFile.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1465	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1466	result := true.
7334 e0bd092badd1 care for same-name rename on OS which is not filename-case-sensitive Claus Gittinger <cg@exept.de> parents: 7084 diff changeset	1467
e0bd092badd1 care for same-name rename on OS which is not filename-case-sensitive Claus Gittinger <cg@exept.de> parents: 7084 diff changeset	1468	"Modified: / 21-09-2006 / 18:32:12 / cg"
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1469	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1470
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1471	renameFiles:aColOfFiles
5827 657cdb93ba7e rename all Claus Gittinger <cg@exept.de> parents: 5820 diff changeset	1472	\|resources queryBox b lastNewName lastOldName initialText oldName newName renameAll doRename\|
4584 7664dfcac0e4 resource strings Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	1473
7664dfcac0e4 resource strings Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	1474	resources := AbstractFileBrowser classResources.
5827 657cdb93ba7e rename all Claus Gittinger <cg@exept.de> parents: 5820 diff changeset	1475	renameAll := false.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1476
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1477	queryBox := FilenameEnterBox new.
4584 7664dfcac0e4 resource strings Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	1478	queryBox okText:(resources string:'Rename').
5827 657cdb93ba7e rename all Claus Gittinger <cg@exept.de> parents: 5820 diff changeset	1479
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1480	aColOfFiles size > 1 ifTrue:[
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1481	b := queryBox addAbortButtonLabelled:(resources string:'Cancel All').
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1482	b action:[^ self].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1483	queryBox addButton:(Button label:(resources string:'Rename All') action:[renameAll := true. queryBox okPressed]) before:(queryBox okButton).
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1484	].
5827 657cdb93ba7e rename all Claus Gittinger <cg@exept.de> parents: 5820 diff changeset	1485	aColOfFiles do:[:oldFile \|
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1486	oldName := oldFile baseName asString.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1487	lastNewName notNil ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1488	initialText := FileBrowser goodRenameDefaultForFile:oldName lastOld:lastOldName lastNew:lastNewName.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1489	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1490	doRename := false.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1491	(renameAll and:[initialText notNil]) ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1492	doRename := true.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1493	newName := initialText.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1494	] ifFalse:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1495	queryBox title:(resources string:'Rename %1 to:' with:(oldName allBold)).
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1496	queryBox initialText:(initialText ? oldName).
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1497	queryBox action:[:newEnteredName \| newName := newEnteredName. doRename := true.].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1498	queryBox show "showAtPointer".
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1499	"/ queryBox accepted ifFalse:[self halt].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1500	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1501	doRename ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1502	(self renameFile:oldFile to:newName asString) ifTrue:[
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1503	result := true
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1504	].
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1505	lastOldName := oldName.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1506	lastNewName := newName.
ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1507	].
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1508	]
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1509	! !
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1510
3841 5dbada9cdc3f initial checkin penk parents: diff changeset	1511	!FileOperation class methodsFor:'documentation'!
5dbada9cdc3f initial checkin penk parents: diff changeset	1512
5dbada9cdc3f initial checkin penk parents: diff changeset	1513	version
7637 ee7ed843e5ba * empty log message * Claus Gittinger <cg@exept.de> parents: 7634 diff changeset	1514	^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.78 2007-02-08 14:39:01 cg Exp $'
3841 5dbada9cdc3f initial checkin penk parents: diff changeset	1515	! !

author	Claus Gittinger <cg@exept.de>
	Mon, 09 Jun 2008 15:53:15 +0200
changeset 8194	051110bdd147
parent 7637	ee7ed843e5ba
child 8289	8dcce3984b27
permissions	-rw-r--r--