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

! !