"

 COPYRIGHT (c) 2002 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libtool' }"

SimpleDialog subclass:#FileDialog

	instanceVariableNames:'aspects treeBrowser directory pattern filterHolder initialText

		multipleSelect doubleClickAction cancelLabelHolder okLabelHolder

		startFilename result filterField filenameField viewFiles

		filenameLabelHolder isLoadDialog newDirectoryVisibilityHolder

		appendButtonVisibleHolder appendWasPressed

		buttonPanelVisibleHolder appendLabelHolder'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Tools-File'

!

!FileDialog class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2002 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    documentation to be added.

    [author:]

        Martin Walser (martin@vercingetorix)

    [instance variables:]

    [class variables:]

    [see also:]

"

!

examples

"

                                                                [exBegin]

    FileDialog open

                                                                [exEnd]

                                                                [exBegin]

    FileDialog 

        requestFileName:'enter a fileName:'

        default:''

        version:nil

        ifFail:['none']

        pattern:'*.conf'

        fromDirectory:'/etc'

        whenBoxCreatedEvaluate:nil.

                                                                [exEnd]

                                                                [exBegin]

    |fd|

    fd := FileDialog new.

    fd multipleSelect:true.

    fd open

                                                                [exEnd]

"

!

todo

"

    - make the filedialog windows like f

      filename entry field shows only the filename not the whole directory 

      the tree allways starts in currrent directory

      the parent tree is shown in a compobox where the perents are selectable

    - do not expand the ~ or relative pathnames to absolute pathnames        

"

! !

!FileDialog class methodsFor:'instance creation'!

requestDirectoryName:title default:aFileName ifFail:failBlock

    "same as requestFileName, but only show directories"

    ^ self  

        requestDirectoryName:title 

        default:aFileName 

        ok:nil 

        abort:nil 

        version:nil 

        pattern:nil 

        fromDirectory:nil 

        ifFail:failBlock 

        whenBoxCreatedEvaluate:nil

        asLoadDialog:nil.

    "

     FileDialog

        requestDirectoryName:'which directory ?' 

        default:Filename currentDirectory pathName

        ifFail:'none'

    "

!

requestDirectoryName:title default:aFileName ok:okText abort:abortText ifFail:failBlock

    "same as requestFileName, but only show directories"

    ^ self  

        requestDirectoryName:title 

        default:aFileName 

        ok:okText 

        abort:abortText 

        version:nil 

        pattern:nil 

        fromDirectory:nil 

        ifFail:failBlock 

        whenBoxCreatedEvaluate:nil

        asLoadDialog:nil.

    "

     FileDialog

        requestDirectoryName:'which directory ?' 

        default:Filename currentDirectory pathName

        ok:'Yes'

        abort:'No'

        ifFail:'none'

    "

!

requestDirectoryName:title default:aFileName ok:okText abort:abortText ifFail:failBlock acceptReturnAsOK:aBoolean

    "same as requestFileName, but only show directories"

    ^ self  

        requestDirectoryName:title 

        default:aFileName 

        ok:okText 

        abort:abortText 

        version:nil 

        pattern:nil 

        fromDirectory:nil 

        ifFail:failBlock 

        whenBoxCreatedEvaluate:[:box|box doubleClickAction:[:index|box doAccept]]

        asLoadDialog:nil.

    "

     FileDialog

        requestDirectoryName:'which directory ?' 

        default:Filename currentDirectory pathName

        ok:'Yes'

        abort:'No'

        ifFail:'none'

    "

!

requestDirectoryName:titleString default:aFileName ok:okText abort:abortText version:versionSymbol pattern:pattern fromDirectory:aDirectoryPath ifFail:failBlock whenBoxCreatedEvaluate:boxCreatedCallback asLoadDialog:aBoolean

    "same as requestFileName, but only show directories"

    |enteredFileName instance enteredFileNameString|

    instance := self    

        startApplicationFor:titleString 

        default:aFileName 

        ok:okText 

        abort:abortText 

        ifFail:failBlock 

        pattern:pattern 

        fromDirectory:aDirectoryPath 

        whenBoxCreatedEvaluate:boxCreatedCallback

        asLoadDialog:aBoolean

        viewFiles:false

        multipleSelect:false.

    enteredFileNameString := instance result.

    enteredFileNameString isNil ifTrue:[

        ^ failBlock value

    ].

    enteredFileName := enteredFileNameString asFilename.

    enteredFileNameString := enteredFileName asString.

    (enteredFileName notNil 

    and:[enteredFileNameString notEmpty]) ifTrue:[

        versionSymbol isNil ifTrue:[ ^ enteredFileNameString].

        versionSymbol == #mustBeNew ifTrue:[

            "/ file may not exist

            enteredFileName exists ifTrue:[^ ''].

        ].

        versionSymbol == #new ifTrue:[

            "/ file may not exist

            enteredFileName exists ifTrue:[

                (Dialog confirm:(self classResources string:'''%1'' exists.\\Continue anyway ?' with:enteredFileNameString) withCRs)

                    ifFalse:[^ ''].

            ].

        ].

        versionSymbol == #mustBeOld ifTrue:[

            enteredFileName exists ifFalse:[^ ''].

        ].

        versionSymbol == #old ifTrue:[

            "/ file may not exist

            enteredFileName exists ifFalse:[

                (self confirm:(self classResources string:'''%1'' does not exist yet.\\Continue anyway ?' with:enteredFileNameString) withCRs)

                ifFalse:[^ ''].

            ].

        ].

        FileSelectionBox lastFileSelectionDirectory:(enteredFileNameString).

    ].

    ^ enteredFileNameString

    "

     FileDialog

        requestDirectoryName:'which directory ?' 

        default:Filename currentDirectory pathName

        ifFail:nil

    "

    "

     FileDialog

        requestDirectoryName:'which directory ?' 

        default:Filename currentDirectory pathName 

        ok:nil

        abort:nil 

        version:nil 

        pattern:nil 

        fromDirectory:nil 

        ifFail:nil 

        whenBoxCreatedEvaluate:nil

        asLoadDialog:true

    "

!

requestDirectoryName:title default:aFileName ok:okText ifFail:failBlock

    "same as requestFileName, but only show directories"

    ^ self  

        requestDirectoryName:title 

        default:aFileName 

        ok:okText 

        abort:nil 

        version:nil 

        pattern:nil 

        fromDirectory:nil 

        ifFail:failBlock 

        whenBoxCreatedEvaluate:nil

        asLoadDialog:nil.

    "

     FileDialog

        requestDirectoryName:'which directory ?' 

        default:Filename currentDirectory pathName

        ok:'Yes'

        ifFail:'none'

    "

!

requestFileName:titleString default:defaultName ok:okText abort:abortText pattern:pattern fromDirectory:aDirectoryPathOrNil whenBoxCreatedEvaluate:boxCreatedCallback

    ^ self  

        requestFileName:titleString 

        default:defaultName 

        ok:okText 

        abort:abortText 

        version:nil 

        ifFail:nil 

        pattern:pattern 

        fromDirectory:aDirectoryPathOrNil 

        whenBoxCreatedEvaluate:boxCreatedCallback

!

requestFileName:titleString default:defaultName ok:okText abort:abortText version:versionSymbol ifFail:failBlock pattern:pattern fromDirectory:aDirectoryPath whenBoxCreatedEvaluate:boxCreatedCallback

    "launch a Dialog, which allows user to enter a filename.

     The files presented initially are those in aDirectoryPathOrNil, or the

     last fileBox directory (default: current directory) (if a nil path is given).

     The box will show okText in its okButton, abortText in the abortButton.

     The matchPattern is set to pattern initially.

     Return the string, or nil if cancel was pressed

     The version argument allows validation of the files existance;

     it may be any of:

        #mustBeNew      - fail (return empty string) if the file exists

        #new            - confirm if the file exists

        #mustBeOld      - fail if the file does not exist

        #old            - confirm if the file does not exist

        #any (other)    - no validation

    "

    ^ self  

        requestFileName:titleString 

        default:defaultName 

        ok:okText 

        abort:abortText 

        version:versionSymbol 

        ifFail:failBlock 

        pattern:pattern 

        fromDirectory:aDirectoryPath 

        whenBoxCreatedEvaluate:boxCreatedCallback 

        asLoadDialog:nil

!

requestFileName:titleString default:defaultName ok:okText abort:abortText version:versionSymbol ifFail:failBlock pattern:pattern fromDirectory:aDirectoryPath whenBoxCreatedEvaluate:boxCreatedCallback asLoadDialog:aBoolean

    "launch a Dialog, which allows user to enter a filename.

     The files presented initially are those in aDirectoryPathOrNil, or the

     last fileBox directory (default: current directory) (if a nil path is given).

     The box will show okText in its okButton, abortText in the abortButton.

     The matchPattern is set to pattern initially.

     Return the string, or nil if cancel was pressed

     The version argument allows validation of the files existance;

     it may be any of:

        #mustBeNew      - fail (return empty string) if the file exists

        #new            - confirm if the file exists

        #mustBeOld      - fail if the file does not exist

        #old            - confirm if the file does not exist

        #any (other)    - no validation

    "

    | instance enteredFileName enteredFileNameString|

    instance := self    

        startApplicationFor:titleString 

        default:defaultName 

        ok:okText 

        abort:abortText 

        ifFail:failBlock 

        pattern:pattern 

        fromDirectory:aDirectoryPath 

        whenBoxCreatedEvaluate:boxCreatedCallback

        asLoadDialog:aBoolean

        viewFiles:true

        multipleSelect:false.

    enteredFileNameString := instance result.

    (enteredFileNameString isNil or:[enteredFileNameString isEmpty]) ifTrue:[

        ^ failBlock value

    ].

    enteredFileName := enteredFileNameString asFilename.

    enteredFileNameString := enteredFileName asString.

    (enteredFileName notNil 

    and:[enteredFileNameString notEmpty]) ifTrue:[

        FileSelectionBox lastFileSelectionDirectory:(enteredFileName directoryName).

        versionSymbol isNil ifTrue:[ ^ enteredFileNameString].

        versionSymbol == #mustBeNew ifTrue:[

            "/ file may not exist

            enteredFileName exists ifTrue:[^ ''].

        ].

        versionSymbol == #new ifTrue:[

            "/ file may not exist

            enteredFileName exists ifTrue:[

                (Dialog confirm:(self classResources string:'''%1'' exists.\\Continue anyway ?' with:enteredFileNameString) withCRs)

                    ifFalse:[^ ''].

            ].

        ].

        versionSymbol == #mustBeOld ifTrue:[

            enteredFileName exists ifFalse:[^ ''].

        ].

        versionSymbol == #old ifTrue:[

            "/ file may not exist

            enteredFileName exists ifFalse:[

                (self confirm:(self classResources string:'''%1'' does not exist yet.\\Continue anyway ?' with:enteredFileNameString) withCRs)

                ifFalse:[^ ''].

            ].

        ].

    ].

    ^ enteredFileNameString

"

     FileDialog 

        requestFileName:'enter a fileName:'

        default:''

        ok:nil 

        abort:nil

        version:nil

        ifFail:['none']

        pattern:'*.conf'

        fromDirectory:Filename currentDirectory pathName

        whenBoxCreatedEvaluate:nil

        asLoadDialog:true

"

!

requestFileName:titleString default:defaultName version:versionSymbol ifFail:failBlock pattern:pattern fromDirectory:aDirectoryPathOrNil whenBoxCreatedEvaluate:boxCreatedCallback

    ^ self  

        requestFileName:titleString 

        default:defaultName 

        ok:nil 

        abort:nil 

        version:versionSymbol 

        ifFail:failBlock 

        pattern:pattern 

        fromDirectory:aDirectoryPathOrNil 

        whenBoxCreatedEvaluate:boxCreatedCallback

    "

     FileDialog 

        requestFileName:'enter a fileName:'

        default:''

        version:nil

        ifFail:['none']

        pattern:'*.conf'

        fromDirectory:Filename currentDirectory pathName

        whenBoxCreatedEvaluate:nil.

     Dialog 

        requestFileName:'enter a fileName:'

        default:''

        version:nil

        ifFail:['none']

        pattern:'*.conf'

        fromDirectory:Filename currentDirectory pathName

        whenBoxCreatedEvaluate:nil

    "

    "

     FileDialog

        requestFileName:'enter a fileName:'

        default:''

        version:#old 

        ifFail:['none']   

        pattern:'*.conf'

        fromDirectory:Filename currentDirectory pathName

        whenBoxCreatedEvaluate:nil

    "

    "

     FileDialog

        requestFileName:'enter a fileName:'

        default:''

        version:#mustBeNew 

        ifFail:['none']   

        pattern:'*.conf'

        fromDirectory:Filename currentDirectory pathName

        whenBoxCreatedEvaluate:nil

    "

!

requestFileNames:titleString default:defaultName ok:okText abort:abortText ifFail:failBlock pattern:pattern fromDirectory:aDirectoryPath whenBoxCreatedEvaluate:boxCreatedCallback

    "launch a Dialog, which allows user to enter a filename.

     The files presented initially are those in aDirectoryPathOrNil, or the

     last fileBox directory (default: current directory) (if a nil path is given).

     The box will show okText in its okButton, abortText in the abortButton.

     The matchPattern is set to pattern initially.

     Return all selected Filenames as filenames in a collection, or nil if cancel was pressed

    "

    ^ self  

        requestFileNames:titleString 

        default:defaultName 

        ok:okText 

        abort:abortText 

        ifFail:failBlock 

        pattern:pattern 

        fromDirectory:aDirectoryPath 

        whenBoxCreatedEvaluate:boxCreatedCallback 

        asLoadDialog:nil.

"

     FileDialog 

        requestFileNames:'enter a fileName:'

        default:''

        ok:nil 

        abort:nil 

        ifFail:['none']

        pattern:'*.conf'

        fromDirectory:Filename currentDirectory pathName

        whenBoxCreatedEvaluate:nil.

"

!

requestFileNames:titleString default:defaultName ok:okText abort:abortText ifFail:failBlock pattern:pattern fromDirectory:aDirectoryPath whenBoxCreatedEvaluate:boxCreatedCallback asLoadDialog:asLoadDialog

    "launch a Dialog, which allows user to enter a filename.

     The files presented initially are those in aDirectoryPathOrNil, or the

     last fileBox directory (default: current directory) (if a nil path is given).

     The box will show okText in its okButton, abortText in the abortButton.

     The matchPattern is set to pattern initially.

     Return all selected Filenames as filenames in a collection, or nil if cancel was pressed

    "

    | instance enteredFileNames lastDirectory|

    instance := self    

        startApplicationFor:titleString 

        default:defaultName 

        ok:okText 

        abort:abortText 

        ifFail:failBlock 

        pattern:pattern 

        fromDirectory:aDirectoryPath 

        whenBoxCreatedEvaluate:boxCreatedCallback

        asLoadDialog:asLoadDialog 

        viewFiles:true

        multipleSelect:true.