hg/stx-libtool: FileOperation.st@8e8f26585ce1 (annotated)

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

author	Claus Gittinger <cg@exept.de>
	Fri, 27 Feb 2015 19:55:33 +0100
changeset 15453	8e8f26585ce1
parent 15096	8fefa892330b
child 15566	184cea584be5
child 15572	6153ad7684d7
permissions	-rw-r--r--