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

author	Claus Gittinger <cg@exept.de>
	Mon, 10 May 2004 17:29:50 +0200
changeset 5827	657cdb93ba7e
parent 5820	76f71c9ac1cd
child 5846	d959a98a0047
permissions	-rw-r--r--