"{ 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$'
! !