"{ Package: 'stx:libtool2' }"
FileOperations subclass:#Create
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'Interface-Support'
!
!Create class methodsFor:'actions'!
createDirectory:newName
|instance|
instance := self new.
instance createDirectory:newName.
^ instance
!
createFile:newName
|instance|
instance := self new.
instance createFile:newName.
^ instance
! !
!Create methodsFor:'actions'!
createDirectory:newName
|msg|
newName exists ifTrue:[
DialogBox warn:(newName, ' already exists.').
result := false.
^ self
].
newName makeDirectory ifFalse:[
msg := errorString := ('cannot create directory '', newName,'' !!') , '\\(' , (OperatingSystem lastErrorString) , ')'.
errorString := msg withCRs.
DialogBox warn:errorString.
result := false.
^ self
].
result := true.
!
createFile:file
"create an empty file"
|aStream newName msg|
newName := file baseName.
file exists ifTrue:[
(Dialog
confirm:(newName, ' already exists\\truncate ?') withCRs
yesLabel:('Truncate')
noLabel:('Cancel'))
ifFalse:[^ self].
].
FileStream openErrorSignal handle:[:ex|
msg := ('Cannot create file '', newName,'' !!') , '\\(' , (FileStream lastErrorString) , ')'.
errorString := msg withCRs.
^ DialogBox warn:errorString
] do:[
aStream := file newReadWriteStream.
].
aStream notNil ifTrue:[
aStream close.
] ifFalse:[
msg := ('Cannot create file '', newName, '' !!') , '\\(' , (FileStream lastErrorString) , ')'.
errorString := msg withCRs.
^ DialogBox warn:errorString
].
! !
!Create class methodsFor:'documentation'!
version
^ '$Header$'
! !