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

3841 5dbada9cdc3f initial checkin penk parents: diff changeset	1	"{ Package: 'stx:libtool2' }"
5dbada9cdc3f initial checkin penk parents: diff changeset	2
5dbada9cdc3f initial checkin penk parents: diff changeset	3	Object subclass:#FileOperation
3975 dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	4	instanceVariableNames:'errorString result'
dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	5	classVariableNames:''
dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	6	poolDictionaries:''
dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	7	category:'Interface-Support'
3841 5dbada9cdc3f initial checkin penk parents: diff changeset	8	!
5dbada9cdc3f initial checkin penk parents: diff changeset	9
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	10	FileOperation subclass:#Copy
3975 dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	11	instanceVariableNames:'colOfCopiedFiles'
dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	12	classVariableNames:''
dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	13	poolDictionaries:''
dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	14	privateIn:FileOperation
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	15	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	16
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	17	FileOperation subclass:#Create
3975 dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	18	instanceVariableNames:'createdFile'
dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	19	classVariableNames:'LastCreatedDirectory LastCreatedFile'
dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	20	poolDictionaries:''
dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	21	privateIn:FileOperation
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	22	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	23
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	24	FileOperation subclass:#Delete
3975 dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	25	instanceVariableNames:'fileName'
dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	26	classVariableNames:''
dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	27	poolDictionaries:''
dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	28	privateIn:FileOperation
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	29	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	30
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	31	FileOperation subclass:#Move
3975 dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	32	instanceVariableNames:'colOfMovedFiles'
dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	33	classVariableNames:''
dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	34	poolDictionaries:''
dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	35	privateIn:FileOperation
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	36	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	37
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	38	FileOperation subclass:#Rename
3975 dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	39	instanceVariableNames:'renamedFiles'
dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	40	classVariableNames:''
dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	41	poolDictionaries:''
dcaac82381dc share goodRenameDefault code with FileBrowser Claus Gittinger <cg@exept.de> parents: 3877 diff changeset	42	privateIn:FileOperation
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	43	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	44
3841 5dbada9cdc3f initial checkin penk parents: diff changeset	45
5961 f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	46	!FileOperation class methodsFor:'actions'!
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	47
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	48	copyFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarningBoolean copyFileIfSame:copyIfSameBoolean
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	49	^ Copy
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	50	copyFile:aSourceFile to:aDestFile
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	51	withOverWriteWarning:overWriteWarningBoolean
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	52	copyFileIfSame:copyIfSameBoolean
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	53	!
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	54
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	55	copyFiles:aColOfSourceFiles to:aDirectory
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	56	^ Copy copyFiles:aColOfSourceFiles to:aDirectory
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	57	!
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	58
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	59	createDirectoryIn:aDirectory
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	60	^ Create createDirectoryIn:aDirectory
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	61	!
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	62
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	63	createDirectoryIn:aDirectory initialAnswer:defaultAnswer
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	64	^ Create createDirectoryIn:aDirectory initialAnswer:defaultAnswer
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	65	!
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	66
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	67	createFileIn:aDirectory
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	68	^ Create createFileIn:aDirectory
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	69	!
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	70
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	71	createHardLinkIn:dir
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	72	^ Create createHardLinkIn:dir
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	73	!
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	74
6151 baba7a7d54b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6150 diff changeset	75	createLinkIn:dir soft:soft
baba7a7d54b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6150 diff changeset	76	^ Create createLinkIn:dir soft:soft
baba7a7d54b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6150 diff changeset	77	!
baba7a7d54b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6150 diff changeset	78
5961 f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	79	createSoftLinkIn:dir
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	80	^ Create createSoftLinkIn:dir
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	81	!
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	82
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	83	deleteFiles:colOfFiles confirm:confirm
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	84	^ Delete deleteFiles:colOfFiles confirm:confirm
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	85	!
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	86
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	87	moveFile:aSourceFile to:aDestFile
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	88	^ Move
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	89	moveFile:aSourceFile to:aDestFile
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	90	!
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	91
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	92	moveFiles:aCollectionOfFiles to:aDestDirectory
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	93	^ Move
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	94	moveFiles:aCollectionOfFiles to:aDestDirectory
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	95	!
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	96
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	97	renameFile:filename to:newFileString
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	98	^ Rename
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	99	renameFile:filename to:newFileString
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	100	!
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	101
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	102	renameFiles:aCollectionofFilenames
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	103	^ Rename
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	104	renameFiles:aCollectionofFilenames
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
3841 5dbada9cdc3f initial checkin penk parents: diff changeset	107	!FileOperation class methodsFor:'defaults'!
5dbada9cdc3f initial checkin penk parents: diff changeset	108
5dbada9cdc3f initial checkin penk parents: diff changeset	109	copyMoveIfExistSuffixString
5dbada9cdc3f initial checkin penk parents: diff changeset	110
5dbada9cdc3f initial checkin penk parents: diff changeset	111	^ '.copy'
5dbada9cdc3f initial checkin penk parents: diff changeset	112	! !
5dbada9cdc3f initial checkin penk parents: diff changeset	113
5dbada9cdc3f initial checkin penk parents: diff changeset	114	!FileOperation methodsFor:'accessing'!
5dbada9cdc3f initial checkin penk parents: diff changeset	115
5dbada9cdc3f initial checkin penk parents: diff changeset	116	errorString
5dbada9cdc3f initial checkin penk parents: diff changeset	117	"return the value of the static variable 'ErrorString' (automatically generated)"
5dbada9cdc3f initial checkin penk parents: diff changeset	118
5dbada9cdc3f initial checkin penk parents: diff changeset	119	^ errorString
5dbada9cdc3f initial checkin penk parents: diff changeset	120	!
5dbada9cdc3f initial checkin penk parents: diff changeset	121
5dbada9cdc3f initial checkin penk parents: diff changeset	122	errorString:something
5dbada9cdc3f initial checkin penk parents: diff changeset	123	"set the value of the static variable 'ErrorString' (automatically generated)"
5dbada9cdc3f initial checkin penk parents: diff changeset	124
5dbada9cdc3f initial checkin penk parents: diff changeset	125	errorString := something.
5dbada9cdc3f initial checkin penk parents: diff changeset	126	!
5dbada9cdc3f initial checkin penk parents: diff changeset	127
5dbada9cdc3f initial checkin penk parents: diff changeset	128	result
5dbada9cdc3f initial checkin penk parents: diff changeset	129	"return the value of the instance variable 'result' (automatically generated)"
5dbada9cdc3f initial checkin penk parents: diff changeset	130
5dbada9cdc3f initial checkin penk parents: diff changeset	131	^ result
5dbada9cdc3f initial checkin penk parents: diff changeset	132	!
5dbada9cdc3f initial checkin penk parents: diff changeset	133
5dbada9cdc3f initial checkin penk parents: diff changeset	134	result:something
5dbada9cdc3f initial checkin penk parents: diff changeset	135	"set the value of the instance variable 'result' (automatically generated)"
5dbada9cdc3f initial checkin penk parents: diff changeset	136
5dbada9cdc3f initial checkin penk parents: diff changeset	137	result := something.
5dbada9cdc3f initial checkin penk parents: diff changeset	138	! !
5dbada9cdc3f initial checkin penk parents: diff changeset	139
5dbada9cdc3f initial checkin penk parents: diff changeset	140	!FileOperation methodsFor:'dialogs'!
5dbada9cdc3f initial checkin penk parents: diff changeset	141
5862 41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	142	fileExistDialogForNewFile:newFile oldFile:oldFile withCancel:withCancel
4701 b30d103a8bc9 better confirmation dialogs Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	143	"return true, if the file should be moved/copied.
b30d103a8bc9 better confirmation dialogs Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	144	Ask user if oldFile exists."
b30d103a8bc9 better confirmation dialogs Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	145
5862 41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	146	^ self fileExistDialogForNewFile:newFile oldFile:oldFile withCancel:withCancel withRemoveIfSame:false.
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	147	!
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	148
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	149	fileExistDialogForNewFile:newFile oldFile:oldFile withCancel:withCancel withRemoveIfSame:withRemoveIfSame
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	150	"return true, if the file should be moved/copied.
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	151	If oldFile exists, ask user.
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	152	If withRemoveIfSame is true, two additional possible values are returned:
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	153	#removeSource and #removeDestination.
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	154	"
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	155
5888 f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	156	\|msg oldSize newSize sameContents resources sourceType destType\|
4701 b30d103a8bc9 better confirmation dialogs Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	157
b30d103a8bc9 better confirmation dialogs Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	158	newFile exists ifFalse:[ ^ true ].
b30d103a8bc9 better confirmation dialogs Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	159	oldSize := oldFile fileSize.
b30d103a8bc9 better confirmation dialogs Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	160	newSize := newFile fileSize.
b30d103a8bc9 better confirmation dialogs Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	161
5888 f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	162	sameContents := false.
f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	163
f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	164	newFile isDirectory ifTrue:[
f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	165	oldFile isDirectory ifTrue:[
f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	166	"/ could (should?) recursively look for same contents here...
f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	167	].
f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	168	] ifFalse:[
f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	169	oldFile isDirectory ifFalse:[
f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	170	sameContents := oldSize = newSize and:[oldFile sameContentsAs:newFile].
f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	171	]
f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	172	].
f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	173
f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	174	"/ for now:
f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	175	oldFile isDirectory ~~ newFile isDirectory ifTrue:[
f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	176	Dialog warn:(resources string:'Will not overwrite directory with file and vice versa.').
f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	177	^ false.
f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	178	].
f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	179
f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	180	sourceType := newFile isDirectory ifTrue:'directory' ifFalse:'file'.
f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	181	destType := oldFile isDirectory ifTrue:'directory' ifFalse:'file'.
3841 5dbada9cdc3f initial checkin penk parents: diff changeset	182
4701 b30d103a8bc9 better confirmation dialogs Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	183	sameContents ifTrue:[
5888 f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	184	msg := 'Overwrite existing destination %7:\\ %1\ size: %3 of %2\\with source (same contents):\\ %4\ size: %6 of %5'.
4701 b30d103a8bc9 better confirmation dialogs Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	185	] ifFalse:[
5888 f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	186	msg := 'Overwrite existing destination %7:\\ %1\ size: %3 of %2\\with source:\\ %4\ size: %6 of %5'.
4701 b30d103a8bc9 better confirmation dialogs Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	187	].
4587 cd82e0c63680 better fileExistsDialog Claus Gittinger <cg@exept.de> parents: 4585 diff changeset	188
5862 41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	189	resources := AbstractFileBrowser classResources.
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	190	msg := resources
4701 b30d103a8bc9 better confirmation dialogs Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	191	stringWithCRs:msg
b30d103a8bc9 better confirmation dialogs Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	192	withArgs:(Array
b30d103a8bc9 better confirmation dialogs Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	193	with:newFile asString allBold
b30d103a8bc9 better confirmation dialogs Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	194	with:(newFile modificationTime printStringFormat:'%(Day)-%(mon)-%(year) %h:%m:%s')
b30d103a8bc9 better confirmation dialogs Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	195	with:newSize
b30d103a8bc9 better confirmation dialogs Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	196	with:oldFile asString allBold
b30d103a8bc9 better confirmation dialogs Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	197	with:(oldFile modificationTime printStringFormat:'%(Day)-%(mon)-%(year) %h:%m:%s')
5888 f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	198	with:oldSize
f2758e87cb4f * empty log message * Claus Gittinger <cg@exept.de> parents: 5862 diff changeset	199	with:destType).
4701 b30d103a8bc9 better confirmation dialogs Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	200
5862 41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	201	(sameContents and:[withRemoveIfSame]) ifTrue:[
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	202	^ OptionBox
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	203	request:msg
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	204	label:(resources string:'Overwrite existing file')
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	205	image:(YesNoBox iconBitmap)
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	206	buttonLabels:(resources array:( #('No' 'Remove Source' 'Remove Destination' 'Yes' ) , (withCancel ifTrue:[#('Cancel')] ifFalse:[#()])))
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	207	values:#( false #removeSource #removeDestination true )
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	208	default:#removeSource
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	209	onCancel:nil.
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	210	] ifFalse:[
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	211	^ Dialog confirm:msg withCancel:withCancel.
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	212	].
3841 5dbada9cdc3f initial checkin penk parents: diff changeset	213	! !
5dbada9cdc3f initial checkin penk parents: diff changeset	214
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	215	!FileOperation::Copy class methodsFor:'actions'!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	216
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	217	copyFile:aSourceFile to:aDestFile
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	218	"delete current selected files/directories
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	219	"
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	220
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	221	\|instance\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	222
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	223	instance := self new.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	224	instance copyFile:aSourceFile to:aDestFile.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	225	^ instance
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	226	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	227
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	228	copyFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	229	"delete current selected files/directories
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	230	"
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	231
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	232	\|instance\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	233
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	234	instance := self new.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	235	instance copyFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	236	^ instance
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	237	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	238
5961 f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	239	copyFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarningBoolean copyFileIfSame:copyIfSameBoolean
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	240	"delete current selected files/directories
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	241	"
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	242
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	243	\|instance\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	244
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	245	instance := self new.
5961 f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	246	instance copyFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarningBoolean copyFileIfSame:copyIfSameBoolean.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	247	^ instance
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	248	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	249
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	250	copyFiles:aColOfSourceFiles to:aDirectory
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	251	"delete current selected files/directories
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	252	"
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	253
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	254	\|instance\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	255
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	256	instance := self new.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	257	instance copyFiles:aColOfSourceFiles to:aDirectory.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	258	^ instance
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	259	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	260
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	261	copyFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	262	"delete current selected files/directories
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	263	"
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	264
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	265	\|instance\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	266
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	267	instance := self new.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	268	instance copyFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	269	^ instance
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	270	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	271
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	272	copyFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning copyFileIfSame:copy
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	273	"delete current selected files/directories
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	274	"
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	275
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	276	\|instance\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	277
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	278	instance := self new.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	279	instance copyFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning copyFileIfSame:copy.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	280	^ instance
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	281	! !
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	282
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	283	!FileOperation::Copy methodsFor:'accessing'!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	284
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	285	colOfCopiedFiles
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	286	"return the value of the instance variable 'colOfCopiedFiles' (automatically generated)"
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	287
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	288	colOfCopiedFiles isNil ifTrue:[
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	289	colOfCopiedFiles := OrderedCollection new.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	290	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	291	^ colOfCopiedFiles
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	292	! !
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	293
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	294	!FileOperation::Copy methodsFor:'actions'!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	295
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	296	copyFile:aSourceFile to:aDestFile
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	297	"defete current selected files/directories
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	298	"
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	299
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	300	self copyFile:aSourceFile to:aDestFile withOverWriteWarning:true
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	301	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	302
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	303	copyFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	304	"copy to
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	305	"
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	306
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	307	self copyFile:aSourceFile to:aDestFile withOverWriteWarning:true copyFileIfSame:true
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	308	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	309
5961 f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	310	copyFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarningBoolean copyFileIfSame:copyIfSameBoolean
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	311	"copy to
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	312	"
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	313
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	314	\|newFile fileString targetDirectory targetIsDirectory sourceIsDirectory suffix\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	315
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	316	sourceIsDirectory := aSourceFile isDirectory.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	317	targetIsDirectory := aDestFile isDirectory.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	318	targetIsDirectory ifTrue:[
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	319	targetDirectory := aDestFile.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	320	newFile := aDestFile construct:(aSourceFile baseName).
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	321	] ifFalse:[
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	322	targetDirectory := aDestFile directory.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	323	newFile := aDestFile.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	324	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	325	"/ do not copy if destination directory doest exist.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	326	(targetDirectory exists not) ifTrue:[
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	327	Dialog warn:'cant copy to not existing directory ', targetDirectory asString.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	328	result := false.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	329	^ self
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	330	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	331	(newFile exists) ifTrue:[
5961 f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	332	((newFile asString = aSourceFile asString) and:[copyIfSameBoolean]) ifTrue:[
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	333	[newFile exists] whileTrue:[
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	334	suffix := newFile suffix.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	335	fileString := newFile baseName withoutSuffix, self class copyMoveIfExistSuffixString, '.', suffix.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	336	newFile := targetDirectory construct:fileString.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	337	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	338	] ifFalse:[
5961 f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	339	overWriteWarningBoolean ifTrue:[
5862 41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	340	(self fileExistDialogForNewFile:newFile oldFile:aSourceFile withCancel:false withRemoveIfSame:false) ifFalse:[
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	341	result := false.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	342	^ self.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	343	]
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	344	] ifFalse:[
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	345	result := false.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	346	^ self.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	347	]
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	348	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	349	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	350	Error handle:[:ex\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	351	"was not able to copy it"
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	352	WarningBox warn:'on copy file - ', ex errorString.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	353	self errorString:('on copy file - ', ex description asString).
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	354	result := false.
4006 8c706ba8b3b5 change flushCachedDirectory: senders to flushCachedDirectoryFor: penk parents: 3977 diff changeset	355	^ self
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	356	] do:[
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	357	sourceIsDirectory ifTrue:[
5862 41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	358	OperatingSystem recursiveCopyDirectory:(aSourceFile pathName) to:(newFile pathName).
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	359	] ifFalse:[
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	360	aSourceFile copyTo:newFile.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	361	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	362	].
4006 8c706ba8b3b5 change flushCachedDirectory: senders to flushCachedDirectoryFor: penk parents: 3977 diff changeset	363	DirectoryContents flushCachedDirectoryFor:(aSourceFile directory).
8c706ba8b3b5 change flushCachedDirectory: senders to flushCachedDirectoryFor: penk parents: 3977 diff changeset	364	result := true.
3842 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
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	369	^ self copyFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:true.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	370	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	371
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	372	copyFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	373
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	374	^ self copyFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning copyFileIfSame:true.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	375	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	376
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	377	copyFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning copyFileIfSame:copy
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	378
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	379
5819 0d22118e3f72 overwrite existing error penk parents: 5805 diff changeset	380	\|newFile suffix fileString sourceIsDirectory overWriteExisting\|
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	381
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	382	(aDirectory exists not) ifTrue:[
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	383	Dialog warn:'cant copy to not existing directory ', aDirectory asString.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	384	result := false.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	385	^ self
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	386	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	387	(aDirectory isDirectory not) ifTrue:[
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	388	Dialog warn:'destination ', aDirectory asString, ' is not a directory'.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	389	result := false.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	390	^ self
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	391	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	392	aColOfSourceFiles do:[: filename \|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	393	newFile := aDirectory construct:(filename baseName).
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	394	sourceIsDirectory := filename isDirectory.
5819 0d22118e3f72 overwrite existing error penk parents: 5805 diff changeset	395	overWriteExisting := true.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	396	(newFile exists) ifTrue:[
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	397	((newFile asString = filename asString) and:[copy]) ifTrue:[
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	398	[newFile exists] whileTrue:[
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	399	suffix := newFile suffix.
5081 e55e62d8aeb9 cut and paste files in same directory penk parents: 5021 diff changeset	400	fileString := newFile withoutSuffix baseName, self class copyMoveIfExistSuffixString.
e55e62d8aeb9 cut and paste files in same directory penk parents: 5021 diff changeset	401	suffix notEmpty ifTrue:[
e55e62d8aeb9 cut and paste files in same directory penk parents: 5021 diff changeset	402	fileString := fileString, '.', suffix.
e55e62d8aeb9 cut and paste files in same directory penk parents: 5021 diff changeset	403	].
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	404	newFile := aDirectory construct:fileString.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	405	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	406	] ifFalse:[
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	407	overWriteWarning ifTrue:[
5862 41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	408	overWriteExisting := (self fileExistDialogForNewFile:newFile oldFile:filename withCancel:(aColOfSourceFiles size > 1) withRemoveIfSame:false).
5819 0d22118e3f72 overwrite existing error penk parents: 5805 diff changeset	409	overWriteExisting isNil ifTrue:[
0d22118e3f72 overwrite existing error penk parents: 5805 diff changeset	410	" abort pressed "
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	411	result := false.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	412	^ self.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	413	]
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	414	]
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	415	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	416	].
5819 0d22118e3f72 overwrite existing error penk parents: 5805 diff changeset	417	overWriteExisting ifTrue:[
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	418	Error handle:[:ex\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	419	"was not able to copy it"
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	420	result := false.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	421	self errorString:('on copy file - ', ex description asString).
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	422	( Dialog
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	423	confirm:('error on copy file - ', ex description asString)
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	424	title:'Copy'
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	425	yesLabel:'Continue'
5820 76f71c9ac1cd overwrite existing error penk parents: 5819 diff changeset	426	noLabel:'Abort') ifTrue:[
76f71c9ac1cd overwrite existing error penk parents: 5819 diff changeset	427	ex proceed.
76f71c9ac1cd overwrite existing error penk parents: 5819 diff changeset	428	] ifFalse:[
76f71c9ac1cd overwrite existing error penk parents: 5819 diff changeset	429	^ self.
76f71c9ac1cd overwrite existing error penk parents: 5819 diff changeset	430	].
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	431	] do:[
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	432	sourceIsDirectory ifTrue:[
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	433	OperatingSystem recursiveCopyDirectory:(filename asString)
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	434	to:(newFile asString).
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	435	] ifFalse:[
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	436	filename copyTo:newFile.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	437	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	438	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	439	self colOfCopiedFiles add:filename
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	440	]
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	441	].
4006 8c706ba8b3b5 change flushCachedDirectory: senders to flushCachedDirectoryFor: penk parents: 3977 diff changeset	442	DirectoryContents flushCachedDirectoryFor:aDirectory.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	443	result := true.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	444	! !
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	445
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	446	!FileOperation::Create class methodsFor:'actions'!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	447
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	448	createDirectoryIn:aDirectory
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	449
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	450	\|instance\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	451
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	452	instance := self new.
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	453	instance createDirectoryIn:aDirectory.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	454	^ instance
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	455	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	456
5961 f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	457	createDirectoryIn:aDirectory initialAnswer:defaultAnswer
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	458
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	459	\|instance\|
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	460
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	461	instance := self new.
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	462	instance createDirectoryIn:aDirectory initialAnswer:defaultAnswer.
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	463	^ instance
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	464	!
f91c25cf2475 private classes are private Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	465
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	466	createFileIn:aFile
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	467
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	468	\|instance\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	469
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	470	instance := self new.
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	471	instance createFileIn:aFile.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	472	^ instance
3877 ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	473	!
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	474
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	475	createHardLinkIn:aFile
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	476	"create an new hard link in a files directory"
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	477
6151 baba7a7d54b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6150 diff changeset	478	^ self createLinkIn:aFile soft:false
baba7a7d54b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6150 diff changeset	479	!
baba7a7d54b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6150 diff changeset	480
baba7a7d54b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6150 diff changeset	481	createLinkIn:aFile soft:soft
baba7a7d54b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6150 diff changeset	482	"create an new soft or hard link in a files directory"
baba7a7d54b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6150 diff changeset	483
3877 ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	484	\|instance\|
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	485
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	486	instance := self new.
6151 baba7a7d54b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6150 diff changeset	487	instance createLinkIn:aFile soft:soft.
3877 ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	488	^ instance
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	489	!
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	490
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	491	createSoftLinkIn:aFile
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	492	"create an new soft link in a files directory"
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	493
6151 baba7a7d54b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6150 diff changeset	494	^ self createLinkIn:aFile soft:true
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	495	! !
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	496
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	497	!FileOperation::Create methodsFor:'accessing'!
a761857e62ef * empty log message * penk parents: 3850 diff changeset	498
a761857e62ef * empty log message * penk parents: 3850 diff changeset	499	createdFile
a761857e62ef * empty log message * penk parents: 3850 diff changeset	500	"return the value of the instance variable 'createdFile' (automatically generated)"
a761857e62ef * empty log message * penk parents: 3850 diff changeset	501
a761857e62ef * empty log message * penk parents: 3850 diff changeset	502	^ createdFile
a761857e62ef * empty log message * penk parents: 3850 diff changeset	503	!
a761857e62ef * empty log message * penk parents: 3850 diff changeset	504
a761857e62ef * empty log message * penk parents: 3850 diff changeset	505	createdFile:something
a761857e62ef * empty log message * penk parents: 3850 diff changeset	506	"set the value of the instance variable 'createdFile' (automatically generated)"
a761857e62ef * empty log message * penk parents: 3850 diff changeset	507
a761857e62ef * empty log message * penk parents: 3850 diff changeset	508	createdFile := something.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	509	! !
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	510
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	511	!FileOperation::Create methodsFor:'actions'!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	512
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	513	createDirectoryIn:startDirectory
4522 917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	514	\|defaultDirectory\|
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	515
4522 917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	516	"/ stupid - that one already exists
917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	517	"/ LastCreatedDirectory notNil ifTrue:[
917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	518	"/ defaultDirectory := LastCreatedDirectory baseName.
917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	519	"/ ].
917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	520
917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	521	^ self createDirectoryIn:startDirectory initialAnswer:defaultDirectory
917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	522	!
917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	523
917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	524	createDirectoryIn:startDirectory initialAnswer:initialAnswerArg
4584 7664dfcac0e4 resource strings Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	525	\|resources initialAnswer msg startBaseName newName newDir\|
7664dfcac0e4 resource strings Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	526
7664dfcac0e4 resource strings Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	527	resources := AbstractFileBrowser classResources.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	528
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	529	startBaseName := startDirectory baseName.
4522 917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	530	initialAnswer := initialAnswerArg.
917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	531	(startDirectory construct:initialAnswer) exists ifTrue:[
917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	532	initialAnswer := nil.
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	533	].
6055 c2bf998db6a8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6016 diff changeset	534	Dialog aboutToOpenBoxNotificationSignal ignoreIn:[
c2bf998db6a8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6016 diff changeset	535	newName := Dialog
c2bf998db6a8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6016 diff changeset	536	request:(resources string:'Create New Directory in %1:' with:startBaseName allBold)
c2bf998db6a8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6016 diff changeset	537	initialAnswer:initialAnswer
c2bf998db6a8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6016 diff changeset	538	okLabel:(resources string:'Create')
c2bf998db6a8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6016 diff changeset	539	title:(resources string:'Create Directory')
c2bf998db6a8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6016 diff changeset	540	onCancel:[
c2bf998db6a8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6016 diff changeset	541	self result:false.
c2bf998db6a8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6016 diff changeset	542	^ self
c2bf998db6a8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6016 diff changeset	543	].
c2bf998db6a8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6016 diff changeset	544	].
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	545	newName isEmpty ifTrue:[
a761857e62ef * empty log message * penk parents: 3850 diff changeset	546	self result:false.
a761857e62ef * empty log message * penk parents: 3850 diff changeset	547	^ self
a761857e62ef * empty log message * penk parents: 3850 diff changeset	548	].
4522 917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	549	newDir := startDirectory construct:newName.
917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	550	newDir exists ifTrue:[
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	551	Dialog warn:(newName, ' already exists.').
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	552	result := false.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	553	^ self
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	554	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	555
4522 917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	556	newDir makeDirectory ifFalse:[
3850 5150196b8d68 remove withCRs penk parents: 3849 diff changeset	557	msg := errorString := ('cannot create directory '', newName,'' !!') , '(', (OperatingSystem lastErrorString) , ')'.
5150196b8d68 remove withCRs penk parents: 3849 diff changeset	558	errorString := msg.
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	559	Dialog warn:errorString.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	560	result := false.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	561	^ self
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	562	].
4522 917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	563	self createdFile:newDir.
917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	564	LastCreatedDirectory := newDir.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	565	result := true.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	566	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	567
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	568	createFileIn:aFile
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	569	"create an empty file"
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	570
4584 7664dfcac0e4 resource strings Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	571	\|resources aStream msg file directory newName defaultFile\|
7664dfcac0e4 resource strings Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	572
7664dfcac0e4 resource strings Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	573	resources := AbstractFileBrowser classResources.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	574
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	575	aFile isDirectory ifTrue:[
a761857e62ef * empty log message * penk parents: 3850 diff changeset	576	directory := aFile
a761857e62ef * empty log message * penk parents: 3850 diff changeset	577	] ifFalse:[
a761857e62ef * empty log message * penk parents: 3850 diff changeset	578	directory := aFile directory.
a761857e62ef * empty log message * penk parents: 3850 diff changeset	579	file := aFile
a761857e62ef * empty log message * penk parents: 3850 diff changeset	580	].
a761857e62ef * empty log message * penk parents: 3850 diff changeset	581	LastCreatedFile isNil ifTrue:[
a761857e62ef * empty log message * penk parents: 3850 diff changeset	582	defaultFile := aFile baseName.
a761857e62ef * empty log message * penk parents: 3850 diff changeset	583	] ifFalse:[
a761857e62ef * empty log message * penk parents: 3850 diff changeset	584	defaultFile := LastCreatedFile baseName.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	585	].
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	586	newName := Dialog
4585 ee485ca5a96a resource strings Claus Gittinger <cg@exept.de> parents: 4584 diff changeset	587	request:(resources string:'Create New File in %1:' with:directory baseName allBold)
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	588	initialAnswer:defaultFile
4584 7664dfcac0e4 resource strings Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	589	okLabel:(resources string:'Create')
7664dfcac0e4 resource strings Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	590	title:(resources string:'Create File')
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	591	onCancel:[
a761857e62ef * empty log message * penk parents: 3850 diff changeset	592	self result:false.
a761857e62ef * empty log message * penk parents: 3850 diff changeset	593	^ self
a761857e62ef * empty log message * penk parents: 3850 diff changeset	594	].
a761857e62ef * empty log message * penk parents: 3850 diff changeset	595	newName isEmpty ifTrue:[
a761857e62ef * empty log message * penk parents: 3850 diff changeset	596	self result:false.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	597	] ifFalse:[
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	598	\| newFile \|
a761857e62ef * empty log message * penk parents: 3850 diff changeset	599	newFile := directory construct:newName.
a761857e62ef * empty log message * penk parents: 3850 diff changeset	600	newFile exists ifTrue:[
a761857e62ef * empty log message * penk parents: 3850 diff changeset	601	(Dialog
a761857e62ef * empty log message * penk parents: 3850 diff changeset	602	confirm:(newName, ' already exists truncate ?')
a761857e62ef * empty log message * penk parents: 3850 diff changeset	603	yesLabel:('Truncate')
a761857e62ef * empty log message * penk parents: 3850 diff changeset	604	noLabel:('Cancel'))
a761857e62ef * empty log message * penk parents: 3850 diff changeset	605	ifFalse:[
a761857e62ef * empty log message * penk parents: 3850 diff changeset	606	self result:false.
a761857e62ef * empty log message * penk parents: 3850 diff changeset	607	^ self
a761857e62ef * empty log message * penk parents: 3850 diff changeset	608	].
a761857e62ef * empty log message * penk parents: 3850 diff changeset	609	].
a761857e62ef * empty log message * penk parents: 3850 diff changeset	610	FileStream openErrorSignal handle:[:ex\|
a761857e62ef * empty log message * penk parents: 3850 diff changeset	611	msg := ('Cannot create file '', newName,'' !!') , '(' , (FileStream lastErrorString) , ')'.
a761857e62ef * empty log message * penk parents: 3850 diff changeset	612	errorString := msg.
a761857e62ef * empty log message * penk parents: 3850 diff changeset	613	self result:false.
a761857e62ef * empty log message * penk parents: 3850 diff changeset	614	^ Dialog warn:errorString
a761857e62ef * empty log message * penk parents: 3850 diff changeset	615	] do:[
a761857e62ef * empty log message * penk parents: 3850 diff changeset	616	aStream := newFile newReadWriteStream.
a761857e62ef * empty log message * penk parents: 3850 diff changeset	617	].
4637 46517dedc503 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4627 diff changeset	618	aStream close.
46517dedc503 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4627 diff changeset	619	self createdFile:newFile.
46517dedc503 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4627 diff changeset	620	LastCreatedFile := newFile.
46517dedc503 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4627 diff changeset	621	self result:true.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	622	].
3877 ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	623	!
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	624
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	625	createHardLinkIn:aFile
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	626	"create an new hard link in a files directory"
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	627
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	628	self createLinkIn:aFile soft:false.
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	629	!
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	630
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	631	createLinkIn:aFile soft:symbolic
4788 eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	632	"ask for the link target;
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	633	then, create an new soft or hard link in aFile's directory"
3877 ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	634
4788 eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	635	\|resources newPath oldPath box string if1 if2\|
4584 7664dfcac0e4 resource strings Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	636
7664dfcac0e4 resource strings Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	637	resources := AbstractFileBrowser classResources.
3877 ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	638
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	639	aFile isDirectory ifTrue:[
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	640	newPath := aFile asValue.
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	641	oldPath := aFile asValue.
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	642	] ifFalse:[
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	643	newPath := aFile directory asValue.
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	644	oldPath := aFile asValue.
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	645	].
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	646
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	647	box := Dialog new.
4585 ee485ca5a96a resource strings Claus Gittinger <cg@exept.de> parents: 4584 diff changeset	648	box label:'Create Link'.
ee485ca5a96a resource strings Claus Gittinger <cg@exept.de> parents: 4584 diff changeset	649
ee485ca5a96a resource strings Claus Gittinger <cg@exept.de> parents: 4584 diff changeset	650	string := 'Create ', (symbolic ifTrue:['Symbolic'] ifFalse:['Hard']) ,' Link from:'.
4584 7664dfcac0e4 resource strings Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	651	(box addTextLabel:(resources string:string)) adjust:#left.
6150 5028485a29c6 fixed new-symbolic link operation Claus Gittinger <cg@exept.de> parents: 6088 diff changeset	652	if1 := box addFilenameInputFieldOn:oldPath in:nil tabable:true.
4584 7664dfcac0e4 resource strings Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	653	(box addTextLabel:(resources string:'to:')) adjust:#left.
6150 5028485a29c6 fixed new-symbolic link operation Claus Gittinger <cg@exept.de> parents: 6088 diff changeset	654	if2 := box addFilenameInputFieldOn:newPath in:nil value tabable:true.
3877 ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	655
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	656	box addAbortAndOkButtons.
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	657
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	658	aFile isDirectory not ifTrue:[
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	659	box focusOnField:if1.
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	660	].
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	661	box showAtPointer.
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	662
4788 eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	663	box accepted ifFalse:[
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	664	self result:false.
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	665	] ifTrue:[
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	666	self doCreateLinkFrom:(oldPath value) to:(newPath value) soft:symbolic.
3877 ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	667	].
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	668	!
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	669
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	670	createSoftLinkIn:aFile
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	671	"create an new soft link in a files directory"
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	672
ac864436244f softLink and hardLink create added penk parents: 3863 diff changeset	673	self createLinkIn:aFile soft:true.
4788 eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	674	!
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	675
6150 5028485a29c6 fixed new-symbolic link operation Claus Gittinger <cg@exept.de> parents: 6088 diff changeset	676	doCreateLinkFrom:oldPath to:newPathArg soft:symbolic
4788 eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	677	"actually create a soft or hard link"
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	678
6150 5028485a29c6 fixed new-symbolic link operation Claus Gittinger <cg@exept.de> parents: 6088 diff changeset	679	\|resources err newPath newPathFile oldPathFile\|
5028485a29c6 fixed new-symbolic link operation Claus Gittinger <cg@exept.de> parents: 6088 diff changeset	680
5028485a29c6 fixed new-symbolic link operation Claus Gittinger <cg@exept.de> parents: 6088 diff changeset	681	newPath := newPathArg.
4788 eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	682
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	683	resources := AbstractFileBrowser classResources.
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	684
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	685	(oldPath size == 0) ifTrue:[
6150 5028485a29c6 fixed new-symbolic link operation Claus Gittinger <cg@exept.de> parents: 6088 diff changeset	686	self operationError:'Missing source'.
4788 eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	687	^ self.
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	688	].
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	689	(newPath size == 0) ifTrue:[
6150 5028485a29c6 fixed new-symbolic link operation Claus Gittinger <cg@exept.de> parents: 6088 diff changeset	690	self operationError:'Missing link name (target)'.
4788 eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	691	^ self.
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	692	].
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	693
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	694	newPathFile := newPath asFilename.
6150 5028485a29c6 fixed new-symbolic link operation Claus Gittinger <cg@exept.de> parents: 6088 diff changeset	695	oldPathFile := oldPath asFilename.
5028485a29c6 fixed new-symbolic link operation Claus Gittinger <cg@exept.de> parents: 6088 diff changeset	696
5028485a29c6 fixed new-symbolic link operation Claus Gittinger <cg@exept.de> parents: 6088 diff changeset	697	newPathFile exists ifTrue:[
5028485a29c6 fixed new-symbolic link operation Claus Gittinger <cg@exept.de> parents: 6088 diff changeset	698	newPathFile isDirectory ifTrue:[
5028485a29c6 fixed new-symbolic link operation Claus Gittinger <cg@exept.de> parents: 6088 diff changeset	699	newPathFile := newPathFile construct:(oldPathFile baseName).
5028485a29c6 fixed new-symbolic link operation Claus Gittinger <cg@exept.de> parents: 6088 diff changeset	700	newPath := newPathFile name.
5028485a29c6 fixed new-symbolic link operation Claus Gittinger <cg@exept.de> parents: 6088 diff changeset	701	].
5028485a29c6 fixed new-symbolic link operation Claus Gittinger <cg@exept.de> parents: 6088 diff changeset	702	].
5028485a29c6 fixed new-symbolic link operation Claus Gittinger <cg@exept.de> parents: 6088 diff changeset	703
4788 eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	704	newPathFile exists ifTrue:[
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	705	self operationError:(resources string:'%1 already exists' with:newPath allBold).
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	706	^ self.
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	707	].
6150 5028485a29c6 fixed new-symbolic link operation Claus Gittinger <cg@exept.de> parents: 6088 diff changeset	708	oldPathFile exists ifFalse:[
4788 eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	709	symbolic ifTrue:[
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	710	oldPathFile isAbsolute ifTrue:[
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	711	self operationError:(resources string:'%1 does not exist' with:oldPath allBold).
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	712	^ self.
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	713	].
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	714	(newPathFile directory construct:oldPath) exists ifFalse:[
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	715	Dialog warn:(resources string:'%1 does not exist (Warning only)' with:oldPath allBold).
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	716	].
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	717	] ifFalse:[
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	718	self operationError:(resources string:'%1 does not exist' with:oldPath allBold).
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	719	^ self.
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	720	].
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	721	].
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	722	((symbolic not) and:[oldPathFile isDirectory]) ifTrue:[
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	723	self operationError:(resources string:'%1 is a directory' with:oldPath allBold).
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	724	^ self.
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	725	].
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	726	ErrorSignal handle:[:ex \|
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	727	err := ex errorString.
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	728	self operationError:err.
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	729	] do:[
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	730	symbolic ifTrue:[
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	731	OperatingSystem createSymbolicLinkFrom:oldPath to:newPath.
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	732	] ifFalse:[
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	733	OperatingSystem createHardLinkFrom:oldPath to:newPath
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	734	].
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	735	self createdFile:newPathFile.
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	736	self result:true.
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	737	].
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	738	!
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	739
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	740	operationError:msg
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	741	self result:false.
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	742	Dialog warn:msg.
eab539baa741 refactored Claus Gittinger <cg@exept.de> parents: 4749 diff changeset	743	self errorString:msg.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	744	! !
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	745
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	746	!FileOperation::Delete class methodsFor:'actions'!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	747
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	748	deleteFile:aFileOrDirectory
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	749	"delete current selected files/directories
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	750	"
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	751
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	752	\|instance\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	753
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	754	instance := self new.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	755	instance deleteFile:aFileOrDirectory.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	756	^ instance
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	757	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	758
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	759	deleteFiles:aColOfFiles
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	760	"delete current selected files/directories
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	761	"
5081 e55e62d8aeb9 cut and paste files in same directory penk parents: 5021 diff changeset	762	^ self deleteFiles:aColOfFiles confirm:true
e55e62d8aeb9 cut and paste files in same directory penk parents: 5021 diff changeset	763	!
e55e62d8aeb9 cut and paste files in same directory penk parents: 5021 diff changeset	764
e55e62d8aeb9 cut and paste files in same directory penk parents: 5021 diff changeset	765	deleteFiles:aColOfFiles confirm:confirm
e55e62d8aeb9 cut and paste files in same directory penk parents: 5021 diff changeset	766	"delete current selected files/directories
e55e62d8aeb9 cut and paste files in same directory penk parents: 5021 diff changeset	767	"
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	768
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	769	\|instance\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	770
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	771	instance := self new.
5081 e55e62d8aeb9 cut and paste files in same directory penk parents: 5021 diff changeset	772	instance deleteFiles:aColOfFiles confirm:confirm.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	773	^ instance
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	774	! !
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	775
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	776	!FileOperation::Delete methodsFor:'actions'!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	777
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	778	deleteFile:aFileOrDirectory
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	779
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	780	\| file isDirectory \|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	781
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	782	aFileOrDirectory notNil ifTrue:[
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	783	file := aFileOrDirectory asFilename.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	784
4665 cd7e02bf5d85 fixed to allow deleting bad symbolic links Claus Gittinger <cg@exept.de> parents: 4664 diff changeset	785	isDirectory := file isDirectory.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	786
4665 cd7e02bf5d85 fixed to allow deleting bad symbolic links Claus Gittinger <cg@exept.de> parents: 4664 diff changeset	787	Error handle:[:ex\|
cd7e02bf5d85 fixed to allow deleting bad symbolic links Claus Gittinger <cg@exept.de> parents: 4664 diff changeset	788	"was not able to remove it"
5746 a505fc181e11 warning string (backslash in pc-filename) Claus Gittinger <cg@exept.de> parents: 5687 diff changeset	789	Dialog warn:(ex description, '\' withCRs, ex signal notifierString).
4411 1de753dffcc2 * empty log message * Claus Gittinger <cg@exept.de> parents: 4408 diff changeset	790	"/ Smalltalk beep.
5746 a505fc181e11 warning string (backslash in pc-filename) Claus Gittinger <cg@exept.de> parents: 5687 diff changeset	791	self errorString:(ex description, ' - ', ex signal notifierString).
4665 cd7e02bf5d85 fixed to allow deleting bad symbolic links Claus Gittinger <cg@exept.de> parents: 4664 diff changeset	792	result := false.
cd7e02bf5d85 fixed to allow deleting bad symbolic links Claus Gittinger <cg@exept.de> parents: 4664 diff changeset	793	^ self.
cd7e02bf5d85 fixed to allow deleting bad symbolic links Claus Gittinger <cg@exept.de> parents: 4664 diff changeset	794	] do:[
cd7e02bf5d85 fixed to allow deleting bad symbolic links Claus Gittinger <cg@exept.de> parents: 4664 diff changeset	795	isDirectory ifTrue:[file recursiveRemove] ifFalse:[file remove].
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	796
4665 cd7e02bf5d85 fixed to allow deleting bad symbolic links Claus Gittinger <cg@exept.de> parents: 4664 diff changeset	797	].
cd7e02bf5d85 fixed to allow deleting bad symbolic links Claus Gittinger <cg@exept.de> parents: 4664 diff changeset	798	"/ flush parent directory or directory
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	799	].
4006 8c706ba8b3b5 change flushCachedDirectory: senders to flushCachedDirectoryFor: penk parents: 3977 diff changeset	800	DirectoryContents flushCachedDirectoryFor:(file directory).
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	801	result := true.
5746 a505fc181e11 warning string (backslash in pc-filename) Claus Gittinger <cg@exept.de> parents: 5687 diff changeset	802
a505fc181e11 warning string (backslash in pc-filename) Claus Gittinger <cg@exept.de> parents: 5687 diff changeset	803	"Modified: / 17-03-2004 / 12:42:02 / cg"
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	804	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	805
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	806	deleteFiles:colOfFiles
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	807	"delete current selected files/directories
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	808	"
5081 e55e62d8aeb9 cut and paste files in same directory penk parents: 5021 diff changeset	809	^ self deleteFiles:colOfFiles confirm:true.
e55e62d8aeb9 cut and paste files in same directory penk parents: 5021 diff changeset	810	!
4584 7664dfcac0e4 resource strings Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	811
5081 e55e62d8aeb9 cut and paste files in same directory penk parents: 5021 diff changeset	812	deleteFiles:colOfFiles confirm:confirm
e55e62d8aeb9 cut and paste files in same directory penk parents: 5021 diff changeset	813	"delete current selected files/directories
e55e62d8aeb9 cut and paste files in same directory penk parents: 5021 diff changeset	814	"
5805 90a121efe94f confirmation dialog Claus Gittinger <cg@exept.de> parents: 5790 diff changeset	815	\|resources answer nFilesToDelete ask labels values fileTypeString msg lbls vals\|
5081 e55e62d8aeb9 cut and paste files in same directory penk parents: 5021 diff changeset	816
e55e62d8aeb9 cut and paste files in same directory penk parents: 5021 diff changeset	817	ask := confirm.
4584 7664dfcac0e4 resource strings Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	818	resources := AbstractFileBrowser classResources.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	819
4701 b30d103a8bc9 better confirmation dialogs Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	820	nFilesToDelete := colOfFiles size.
4408 8c0c80b68ae7 ask again, if dir is not empty Claus Gittinger <cg@exept.de> parents: 4395 diff changeset	821	colOfFiles do:[:filenameOrString \|
5673 3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	822	\|filename askForNonEmptyDirectory skip\|
4408 8c0c80b68ae7 ask again, if dir is not empty Claus Gittinger <cg@exept.de> parents: 4395 diff changeset	823
8c0c80b68ae7 ask again, if dir is not empty Claus Gittinger <cg@exept.de> parents: 4395 diff changeset	824	filename := filenameOrString asFilename.
4665 cd7e02bf5d85 fixed to allow deleting bad symbolic links Claus Gittinger <cg@exept.de> parents: 4664 diff changeset	825
5673 3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	826	skip := false.
4665 cd7e02bf5d85 fixed to allow deleting bad symbolic links Claus Gittinger <cg@exept.de> parents: 4664 diff changeset	827	fileTypeString := ''.
cd7e02bf5d85 fixed to allow deleting bad symbolic links Claus Gittinger <cg@exept.de> parents: 4664 diff changeset	828	filename isSymbolicLink ifTrue:[
cd7e02bf5d85 fixed to allow deleting bad symbolic links Claus Gittinger <cg@exept.de> parents: 4664 diff changeset	829	fileTypeString := 'symbolic link '.
cd7e02bf5d85 fixed to allow deleting bad symbolic links Claus Gittinger <cg@exept.de> parents: 4664 diff changeset	830	] ifFalse:[
5673 3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	831	filename exists ifFalse:[
3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	832	(Dialog
5846 d959a98a0047 * empty log message * Claus Gittinger <cg@exept.de> parents: 5827 diff changeset	833	confirm:('%1 does not exist.' bindWith:filename asString allBold)
d959a98a0047 * empty log message * Claus Gittinger <cg@exept.de> parents: 5827 diff changeset	834	yesLabel:(resources string:'Proceed')
5673 3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	835	noLabel:(resources string:'Cancel'))
3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	836	ifFalse:[
3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	837	^ self.
3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	838	].
3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	839	skip := true.
4665 cd7e02bf5d85 fixed to allow deleting bad symbolic links Claus Gittinger <cg@exept.de> parents: 4664 diff changeset	840	]
4423 ebf6d1e13aaa on delete non existing files give a warn message penk parents: 4411 diff changeset	841	].
5673 3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	842	skip ifFalse:[
3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	843	ask ifTrue:[
3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	844	nFilesToDelete = 1 ifTrue:[
3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	845	labels := #('No' 'Yes').
3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	846	values := #(#no #yes).
3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	847	] ifFalse:[
3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	848	labels := #('Cancel' 'No' 'Yes' 'Yes to All' ).
3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	849	values := #(#cancel #no #yes #yesToAll).
3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	850	].
5805 90a121efe94f confirmation dialog Claus Gittinger <cg@exept.de> parents: 5790 diff changeset	851	msg := nFilesToDelete = 1
90a121efe94f confirmation dialog Claus Gittinger <cg@exept.de> parents: 5790 diff changeset	852	ifTrue:'Really delete\\%1%2 ?'
90a121efe94f confirmation dialog Claus Gittinger <cg@exept.de> parents: 5790 diff changeset	853	ifFalse:'Really delete\\%1%2 \\(%3 files alltogether)'.
6088 486567591821 * empty log message * Claus Gittinger <cg@exept.de> parents: 6055 diff changeset	854	Dialog aboutToOpenBoxNotificationSignal handle:[:ex \| ex proceed]
486567591821 * empty log message * Claus Gittinger <cg@exept.de> parents: 6055 diff changeset	855	do:[
486567591821 * empty log message * Claus Gittinger <cg@exept.de> parents: 6055 diff changeset	856	answer := Dialog
486567591821 * empty log message * Claus Gittinger <cg@exept.de> parents: 6055 diff changeset	857	confirmWithCancel:(resources
486567591821 * empty log message * Claus Gittinger <cg@exept.de> parents: 6055 diff changeset	858	stringWithCRs:msg
486567591821 * empty log message * Claus Gittinger <cg@exept.de> parents: 6055 diff changeset	859	with:fileTypeString
486567591821 * empty log message * Claus Gittinger <cg@exept.de> parents: 6055 diff changeset	860	with:(filename asString allBold)
486567591821 * empty log message * Claus Gittinger <cg@exept.de> parents: 6055 diff changeset	861	with:nFilesToDelete)
486567591821 * empty log message * Claus Gittinger <cg@exept.de> parents: 6055 diff changeset	862	labels:(resources array:labels)
486567591821 * empty log message * Claus Gittinger <cg@exept.de> parents: 6055 diff changeset	863	values:values
486567591821 * empty log message * Claus Gittinger <cg@exept.de> parents: 6055 diff changeset	864	default:(values indexOf:#yes).
486567591821 * empty log message * Claus Gittinger <cg@exept.de> parents: 6055 diff changeset	865	]
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	866	] ifFalse:[
5673 3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	867	answer := #yesToAll.
3977 52e9db551c1a * empty log message * Claus Gittinger <cg@exept.de> parents: 3975 diff changeset	868	].
5673 3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	869
3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	870	answer == #cancel ifTrue:[
3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	871	^ self.
3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	872	].
3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	873
3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	874	answer == #yesToAll ifTrue:[
3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	875	ask := false.
3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	876	answer := #yes.
3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	877	].
4408 8c0c80b68ae7 ask again, if dir is not empty Claus Gittinger <cg@exept.de> parents: 4395 diff changeset	878
5673 3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	879	answer == #yes ifTrue:[
3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	880	askForNonEmptyDirectory := true.
3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	881	filename isSymbolicLink ifFalse:[
3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	882	filename isNonEmptyDirectory ifTrue:[
5805 90a121efe94f confirmation dialog Claus Gittinger <cg@exept.de> parents: 5790 diff changeset	883	colOfFiles size == 1 ifTrue:[
90a121efe94f confirmation dialog Claus Gittinger <cg@exept.de> parents: 5790 diff changeset	884	lbls := #('Cancel' 'Remove').
90a121efe94f confirmation dialog Claus Gittinger <cg@exept.de> parents: 5790 diff changeset	885	vals := #(false true).
90a121efe94f confirmation dialog Claus Gittinger <cg@exept.de> parents: 5790 diff changeset	886	] ifFalse:[
90a121efe94f confirmation dialog Claus Gittinger <cg@exept.de> parents: 5790 diff changeset	887	lbls := #('Cancel All' 'Keep' 'Remove').
90a121efe94f confirmation dialog Claus Gittinger <cg@exept.de> parents: 5790 diff changeset	888	vals := #(nil false true).
90a121efe94f confirmation dialog Claus Gittinger <cg@exept.de> parents: 5790 diff changeset	889	].
5673 3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	890	askForNonEmptyDirectory := Dialog
5805 90a121efe94f confirmation dialog Claus Gittinger <cg@exept.de> parents: 5790 diff changeset	891	confirmWithCancel:(resources
90a121efe94f confirmation dialog Claus Gittinger <cg@exept.de> parents: 5790 diff changeset	892	stringWithCRs:'Directory ''%1'' is not empty\remove anyway ?'
90a121efe94f confirmation dialog Claus Gittinger <cg@exept.de> parents: 5790 diff changeset	893	with:filename pathName allBold)
90a121efe94f confirmation dialog Claus Gittinger <cg@exept.de> parents: 5790 diff changeset	894	labels:( resources array:lbls )
90a121efe94f confirmation dialog Claus Gittinger <cg@exept.de> parents: 5790 diff changeset	895	values:vals
90a121efe94f confirmation dialog Claus Gittinger <cg@exept.de> parents: 5790 diff changeset	896	default:vals size.
5673 3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	897	askForNonEmptyDirectory == nil ifTrue:[
3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	898	^ self
3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	899	].
5342 4ea3ee096611 deletion of symbolic links pointing to a directory Claus Gittinger <cg@exept.de> parents: 5081 diff changeset	900	].
4637 46517dedc503 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4627 diff changeset	901	].
5673 3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	902	askForNonEmptyDirectory ifTrue:[
3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	903	self deleteFile:filename.
3ed1092a3c73 * empty log message * Claus Gittinger <cg@exept.de> parents: 5656 diff changeset	904	]
4408 8c0c80b68ae7 ask again, if dir is not empty Claus Gittinger <cg@exept.de> parents: 4395 diff changeset	905	].
8c0c80b68ae7 ask again, if dir is not empty Claus Gittinger <cg@exept.de> parents: 4395 diff changeset	906	].
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	907	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	908	! !
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	909
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	910	!FileOperation::Move class methodsFor:'actions'!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	911
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	912	moveFile:aSourceFile to:aDestFile
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	913	"delete current selected files/directories
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	914	"
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	915
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	916	\|instance\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	917
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	918	instance := self new.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	919	instance moveFile:aSourceFile to:aDestFile.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	920	^ instance
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	921	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	922
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	923	moveFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	924	"delete current selected files/directories
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	925	"
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	926
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	927	\|instance\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	928
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	929	instance := self new.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	930	instance moveFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	931	^ instance
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	932	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	933
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	934	moveFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning moveFileIfSame:move
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	935	"delete current selected files/directories
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	936	"
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	937
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	938	\|instance\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	939
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	940	instance := self new.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	941	instance moveFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning moveFileIfSame:move.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	942	^ instance
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	943	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	944
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	945	moveFiles:aColOfSourceFiles to:aDirectory
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	946	"delete current selected files/directories
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	947	"
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	948
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	949	\|instance\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	950
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	951	instance := self new.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	952	instance moveFiles:aColOfSourceFiles to:aDirectory.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	953	^ instance
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	954	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	955
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	956	moveFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	957	"delete current selected files/directories
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	958	"
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	959
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	960	\|instance\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	961
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	962	instance := self new.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	963	instance moveFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	964	^ instance
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	965	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	966
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	967	moveFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning moveFileIfSame:move
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	968	"delete current selected files/directories
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	969	"
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	970
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	971	\|instance\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	972
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	973	instance := self new.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	974	instance moveFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning moveFileIfSame:move.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	975	^ instance
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	976	! !
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	977
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	978	!FileOperation::Move methodsFor:'accessing'!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	979
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	980	colOfMovedFiles
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	981	"return the value of the instance variable 'colOfMovedFiles' (automatically generated)"
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	982
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	983	colOfMovedFiles isNil ifTrue:[
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	984	colOfMovedFiles := OrderedCollection new.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	985	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	986	^ colOfMovedFiles
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	987	! !
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	988
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	989	!FileOperation::Move methodsFor:'actions'!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	990
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	991	moveFile:aSourceFile to:aDestFile
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	992
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	993	^ self moveFile:aSourceFile to:aDestFile withOverWriteWarning:true.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	994	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	995
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	996	moveFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	997
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	998	^ self moveFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning moveFileIfSame:true
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	999	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1000
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1001	moveFile:aSourceFile to:aDestFile withOverWriteWarning:overWriteWarning moveFileIfSame:move
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1002
5862 41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1003	\|newFile fileString targetDirectory targetIsDirectory suffix doMove\|
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1004
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1005	targetIsDirectory := aDestFile isDirectory.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1006	targetIsDirectory ifTrue:[
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1007	targetDirectory := aDestFile.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1008	newFile := aDestFile construct:(aSourceFile baseName).
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1009	] ifFalse:[
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1010	targetDirectory := aDestFile directory.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1011	newFile := aDestFile.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1012	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1013	"/ do not copy if destination directory doest exist.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1014	(targetDirectory exists not) ifTrue:[
4522 917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	1015	Dialog warn:'Cannot move to non-existing directory ', targetDirectory asString.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1016	result := false.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1017	^ self
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1018	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1019	(newFile exists) ifTrue:[
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1020	((newFile asString = aSourceFile asString) and:[move]) ifTrue:[
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1021	[newFile exists] whileTrue:[
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1022	suffix := newFile suffix.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1023	fileString := newFile baseName withoutSuffix, self class copyMoveIfExistSuffixString, '.', suffix.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1024	newFile := targetDirectory construct:fileString.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1025	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1026	] ifFalse:[
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1027	overWriteWarning ifTrue:[
5862 41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1028	doMove := self fileExistDialogForNewFile:newFile oldFile:aSourceFile withCancel:false withRemoveIfSame:true.
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1029	doMove == #removeSource ifTrue:[
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1030	self halt.
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1031	result := false.
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1032	^ self.
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1033	].
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1034	doMove == #removeDestination ifTrue:[
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1035	self halt.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1036	result := false.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1037	^ self.
5862 41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1038	].
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1039	doMove == true ifFalse:[
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1040	result := false.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1041	^ self.
5862 41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1042	].
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1043
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1044	] ifFalse:[
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1045	result := false.
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1046	^ self.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1047	]
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1048	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1049	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1050	Error handle:[:ex\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1051	"was not able to copy it"
4522 917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	1052	WarningBox warn:'Error in copy file Operation: ', ex errorString.
917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	1053	self errorString:('Error in copy file Operation- ', ex description asString).
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1054	result := false.
4006 8c706ba8b3b5 change flushCachedDirectory: senders to flushCachedDirectoryFor: penk parents: 3977 diff changeset	1055	^ self
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1056	] do:[
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1057	aSourceFile moveTo:newFile.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1058	].
4006 8c706ba8b3b5 change flushCachedDirectory: senders to flushCachedDirectoryFor: penk parents: 3977 diff changeset	1059	DirectoryContents flushCachedDirectoryFor:(aSourceFile directory).
8c706ba8b3b5 change flushCachedDirectory: senders to flushCachedDirectoryFor: penk parents: 3977 diff changeset	1060	result := true.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1061	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1062
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1063	moveFiles:aColOfSourceFiles to:aDirectory
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1064
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1065	^ self moveFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:true
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1066	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1067
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1068	moveFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1069
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1070	^ self moveFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning moveFileIfSame:true
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1071	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1072
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1073	moveFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning moveFileIfSame:move
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1074
5862 41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1075	\|newFile suffix fileString doMove doRemoveSource doRemoveDestination\|
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1076
5854 8c6042ba7495 ask if non-existing directory should be created Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1077	aDirectory exists ifFalse:[
8c6042ba7495 ask if non-existing directory should be created Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1078	(Dialog confirm:(FileBrowser classResources
8c6042ba7495 ask if non-existing directory should be created Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1079	stringWithCRs:'Non-existing directory "%1" .\Create ?'
8c6042ba7495 ask if non-existing directory should be created Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1080	with:aDirectory asString allBold)) ifFalse:[
8c6042ba7495 ask if non-existing directory should be created Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1081	result := false.
8c6042ba7495 ask if non-existing directory should be created Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1082	^ self
8c6042ba7495 ask if non-existing directory should be created Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1083	].
8c6042ba7495 ask if non-existing directory should be created Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1084	aDirectory makeDirectory.
8c6042ba7495 ask if non-existing directory should be created Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1085	aDirectory exists ifFalse:[
8c6042ba7495 ask if non-existing directory should be created Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1086	Dialog warn:(FileBrowser classResources
8c6042ba7495 ask if non-existing directory should be created Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1087	stringWithCRs:'Cannot create directory "%1" !!\Create ?.'
8c6042ba7495 ask if non-existing directory should be created Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1088	with:aDirectory asString allBold).
8c6042ba7495 ask if non-existing directory should be created Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1089	result := false.
8c6042ba7495 ask if non-existing directory should be created Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1090	^ self
8c6042ba7495 ask if non-existing directory should be created Claus Gittinger <cg@exept.de> parents: 5846 diff changeset	1091	]
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1092	].
5788 c42526d05d57 * empty log message * Claus Gittinger <cg@exept.de> parents: 5746 diff changeset	1093	(aDirectory isDirectory) ifFalse:[
4522 917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	1094	Dialog warn:('Destination %1 is not a directory.' bindWith:aDirectory asString allBold).
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1095	result := false.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1096	^ self
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1097	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1098	aColOfSourceFiles do:[: filename \|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1099	newFile := aDirectory construct:filename baseName.
5790 a20cb6fcb74b * empty log message * Claus Gittinger <cg@exept.de> parents: 5788 diff changeset	1100
a20cb6fcb74b * empty log message * Claus Gittinger <cg@exept.de> parents: 5788 diff changeset	1101	doMove := true.
5862 41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1102	doRemoveSource := false.
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1103	doRemoveDestination := false.
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1104
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1105	(newFile exists) ifTrue:[
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1106	((newFile asString = filename asString) and:[move]) ifTrue:[
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1107	[newFile exists] whileTrue:[
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1108	suffix := newFile suffix.
6011 a1ec5a37039e * empty log message * Claus Gittinger <cg@exept.de> parents: 5961 diff changeset	1109	fileString := newFile withoutSuffix baseName , self class copyMoveIfExistSuffixString, '.', suffix.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1110	newFile := aDirectory construct:fileString.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1111	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1112	] ifFalse:[
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1113	overWriteWarning ifTrue:[
5862 41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1114	doMove := self fileExistDialogForNewFile:newFile oldFile:filename withCancel:(aColOfSourceFiles size > 1) withRemoveIfSame:true.
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1115	doMove isNil ifTrue:[ "/ cancel
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1116	result := false.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1117	^ self.
5862 41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1118	].
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1119	(doMove == #removeSource) ifTrue:[
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1120	doRemoveSource := true.
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1121	doMove := false
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1122	] ifFalse:[
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1123	(doMove == #removeDestination) ifTrue:[
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1124	doRemoveDestination := true.
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1125	doMove := false
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1126	]
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1127	]
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1128	]
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1129	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1130	].
4522 917245591672 default in newDir Claus Gittinger <cg@exept.de> parents: 4443 diff changeset	1131
5862 41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1132	(doMove or:[doRemoveSource or:[doRemoveDestination]]) ifTrue:[
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1133	Error handle:[:ex\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1134	"was not able to copy it"
5862 41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1135	\|descriptionString\|
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1136
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1137	result := false.
5862 41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1138	descriptionString := ex description asString.
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1139	self errorString:(' Error in Move-File Operation:', descriptionString).
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1140	( Dialog
5862 41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1141	confirm:(' Error in Move-File Operation: ', descriptionString)
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1142	title:'Move'
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1143	yesLabel:'Continue'
5862 41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1144	noLabel:'Abort'
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1145	) ifFalse:[
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1146	^ self.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1147	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1148	] do:[
5862 41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1149	doRemoveSource ifTrue:[
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1150	filename remove
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1151	] ifFalse:[
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1152	doRemoveDestination ifTrue:[
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1153	newFile remove
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1154	] ifFalse:[
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1155	filename moveTo:newFile.
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1156	]
41b855c4028e * empty log message * Claus Gittinger <cg@exept.de> parents: 5854 diff changeset	1157	]
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1158	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1159	self colOfMovedFiles add:filename
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1160	]
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1161	].
4006 8c706ba8b3b5 change flushCachedDirectory: senders to flushCachedDirectoryFor: penk parents: 3977 diff changeset	1162	DirectoryContents flushCachedDirectoryFor:aDirectory.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1163	result := true.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1164	! !
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1165
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1166	!FileOperation::Rename class methodsFor:'actions'!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1167
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1168	renameFile:oldFile to:newName
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1169	"move from to
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1170	"
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1171
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1172	\|instance\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1173
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1174	instance := self new.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1175	instance renameFile:oldFile to:newName.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1176	^ instance
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1177	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1178
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1179	renameFiles:aColOfFiles
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1180	"move from to
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1181	"
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1182
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1183	\|instance\|
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1184
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1185	instance := self new.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1186	instance renameFiles:aColOfFiles.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1187	^ instance
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1188	! !
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1189
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1190	!FileOperation::Rename methodsFor:'accessing'!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1191
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1192	renamedFiles
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1193	"return the value of the instance variable 'lastRenamedFile' (automatically generated)"
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1194
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1195	renamedFiles isNil ifTrue:[
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1196	renamedFiles := OrderedCollection new.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1197	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1198	^ renamedFiles
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1199	! !
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1200
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1201	!FileOperation::Rename methodsFor:'actions'!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1202
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1203	renameFile:oldFile to:newName
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1204	"rename a file (or directory)"
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1205
5656 8402ac9f6398 internationalization Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	1206	\|newFile msg resources\|
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1207
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1208	(oldFile isNil or:[newName isNil]) ifTrue:[
5656 8402ac9f6398 internationalization Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	1209	result := false.
8402ac9f6398 internationalization Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	1210	^ self.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1211	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1212	(oldFile asString isBlank or:[newName isBlank]) ifTrue:[
5656 8402ac9f6398 internationalization Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	1213	result := false.
8402ac9f6398 internationalization Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	1214	^ self.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1215	].
5656 8402ac9f6398 internationalization Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	1216	newName asFilename isAbsolute ifTrue:[
8402ac9f6398 internationalization Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	1217	newFile := newName asFilename.
8402ac9f6398 internationalization Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	1218	] ifFalse:[
8402ac9f6398 internationalization Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	1219	(oldFile baseName = newName) ifTrue:[
8402ac9f6398 internationalization Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	1220	result := false
8402ac9f6398 internationalization Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	1221	].
8402ac9f6398 internationalization Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	1222	newFile := oldFile directory construct:newName.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1223	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1224
5656 8402ac9f6398 internationalization Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	1225	oldFile pathName = newFile pathName ifTrue:[
4674 64a49fadc47e do op if newName is same as old in a rename operation Claus Gittinger <cg@exept.de> parents: 4665 diff changeset	1226	^ self.
64a49fadc47e do op if newName is same as old in a rename operation Claus Gittinger <cg@exept.de> parents: 4665 diff changeset	1227	].
64a49fadc47e do op if newName is same as old in a rename operation Claus Gittinger <cg@exept.de> parents: 4665 diff changeset	1228
5656 8402ac9f6398 internationalization Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	1229	resources := Dialog classResources.
8402ac9f6398 internationalization Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	1230
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1231	OperatingSystem errorSignal handle:[:ex\|
5656 8402ac9f6398 internationalization Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	1232	msg := resources
8402ac9f6398 internationalization Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	1233	stringWithCRs:'Cannot rename file %1 to %2 !!\\(%3)'
8402ac9f6398 internationalization Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	1234	with:oldFile baseName
8402ac9f6398 internationalization Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	1235	with:newName
8402ac9f6398 internationalization Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	1236	with:(OperatingSystem lastErrorString).
3863 a761857e62ef * empty log message * penk parents: 3850 diff changeset	1237	Dialog warn:msg withCRs.
4882 3d047bde8f8c * empty log message * penk parents: 4788 diff changeset	1238	result := false.
3d047bde8f8c * empty log message * penk parents: 4788 diff changeset	1239	^ self.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1240	] do:[
5656 8402ac9f6398 internationalization Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	1241	newFile exists ifTrue:[
8402ac9f6398 internationalization Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	1242	(newFile sameContentsAs:oldFile) ifTrue:[
8402ac9f6398 internationalization Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	1243	msg := '%1 exists [with same contents] - rename (i.e. overwrite) anyway ?'
8402ac9f6398 internationalization Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	1244	] ifFalse:[
8402ac9f6398 internationalization Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	1245	msg := '%1 exists - rename (i.e. overwrite) anyway ?'
8402ac9f6398 internationalization Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	1246	].
8402ac9f6398 internationalization Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	1247	(Dialog confirmWithCancel:(resources string:msg with:newName allBold) default:false) ifFalse:[
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1248	result := false.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1249	^ self.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1250	]
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1251	].
5656 8402ac9f6398 internationalization Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	1252	oldFile renameTo:newFile.
8402ac9f6398 internationalization Claus Gittinger <cg@exept.de> parents: 5342 diff changeset	1253	self renamedFiles add:newFile.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1254	].
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1255	result := true.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1256	!
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1257
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1258	renameFiles:aColOfFiles
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1259	"rename the selected file(s)"
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1260
5827 657cdb93ba7e rename all Claus Gittinger <cg@exept.de> parents: 5820 diff changeset	1261	\|resources queryBox b lastNewName lastOldName initialText oldName newName renameAll doRename\|
4584 7664dfcac0e4 resource strings Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	1262
7664dfcac0e4 resource strings Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	1263	resources := AbstractFileBrowser classResources.
5827 657cdb93ba7e rename all Claus Gittinger <cg@exept.de> parents: 5820 diff changeset	1264	renameAll := false.
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1265
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1266	queryBox := FilenameEnterBox new.
4584 7664dfcac0e4 resource strings Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	1267	queryBox okText:(resources string:'Rename').
5827 657cdb93ba7e rename all Claus Gittinger <cg@exept.de> parents: 5820 diff changeset	1268
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1269	aColOfFiles size > 1 ifTrue:[
4584 7664dfcac0e4 resource strings Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	1270	b := queryBox addAbortButtonLabelled:(resources string:'Cancel All').
5827 657cdb93ba7e rename all Claus Gittinger <cg@exept.de> parents: 5820 diff changeset	1271	b action:[^ self].
657cdb93ba7e rename all Claus Gittinger <cg@exept.de> parents: 5820 diff changeset	1272	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	1273	].
5827 657cdb93ba7e rename all Claus Gittinger <cg@exept.de> parents: 5820 diff changeset	1274	aColOfFiles do:[:oldFile \|
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1275	oldName := oldFile baseName asString.
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1276	lastNewName notNil ifTrue:[
4273 df4ed96689cd separated default for arbitrary renames and deault for files. Claus Gittinger <cg@exept.de> parents: 4016 diff changeset	1277	initialText := FileBrowser goodRenameDefaultForFile:oldName lastOld:lastOldName lastNew:lastNewName
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1278	].
5827 657cdb93ba7e rename all Claus Gittinger <cg@exept.de> parents: 5820 diff changeset	1279	doRename := false.
657cdb93ba7e rename all Claus Gittinger <cg@exept.de> parents: 5820 diff changeset	1280	renameAll ifTrue:[
657cdb93ba7e rename all Claus Gittinger <cg@exept.de> parents: 5820 diff changeset	1281	doRename := true.
657cdb93ba7e rename all Claus Gittinger <cg@exept.de> parents: 5820 diff changeset	1282	newName := initialText.
657cdb93ba7e rename all Claus Gittinger <cg@exept.de> parents: 5820 diff changeset	1283	] ifFalse:[
657cdb93ba7e rename all Claus Gittinger <cg@exept.de> parents: 5820 diff changeset	1284	queryBox title:(resources string:'Rename %1 to:' with:(oldName allBold)).
657cdb93ba7e rename all Claus Gittinger <cg@exept.de> parents: 5820 diff changeset	1285	queryBox initialText:(initialText ? oldName).
657cdb93ba7e rename all Claus Gittinger <cg@exept.de> parents: 5820 diff changeset	1286	queryBox action:[:newEnteredName \| newName := newEnteredName. doRename := true.].
657cdb93ba7e rename all Claus Gittinger <cg@exept.de> parents: 5820 diff changeset	1287	queryBox show "showAtPointer".
657cdb93ba7e rename all Claus Gittinger <cg@exept.de> parents: 5820 diff changeset	1288	].
657cdb93ba7e rename all Claus Gittinger <cg@exept.de> parents: 5820 diff changeset	1289	doRename ifTrue:[
657cdb93ba7e rename all Claus Gittinger <cg@exept.de> parents: 5820 diff changeset	1290	(self renameFile:oldFile to:newName asString) ifTrue:[
657cdb93ba7e rename all Claus Gittinger <cg@exept.de> parents: 5820 diff changeset	1291	result := true
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1292	].
5827 657cdb93ba7e rename all Claus Gittinger <cg@exept.de> parents: 5820 diff changeset	1293	lastOldName := oldName.
657cdb93ba7e rename all Claus Gittinger <cg@exept.de> parents: 5820 diff changeset	1294	lastNewName := newName.
657cdb93ba7e rename all Claus Gittinger <cg@exept.de> parents: 5820 diff changeset	1295	].
3842 8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1296	]
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1297	! !
8fb3630b63de checkin from browser penk parents: 3841 diff changeset	1298
3841 5dbada9cdc3f initial checkin penk parents: diff changeset	1299	!FileOperation class methodsFor:'documentation'!
5dbada9cdc3f initial checkin penk parents: diff changeset	1300
5dbada9cdc3f initial checkin penk parents: diff changeset	1301	version
6151 baba7a7d54b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6150 diff changeset	1302	^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.61 2004-12-13 10:49:28 cg Exp $'
3841 5dbada9cdc3f initial checkin penk parents: diff changeset	1303	! !

author	Claus Gittinger <cg@exept.de>
	Mon, 13 Dec 2004 11:49:43 +0100
changeset 6151	baba7a7d54b6
parent 6150	5028485a29c6
child 6152	c3ad7e7d9253
permissions	-rw-r--r--