"{ Package: 'stx:libtool' }"

SimpleDialog subclass:#FileDialog

	instanceVariableNames:'aspects treeBrowser enableBack enableDirectoryUp enableForward

		enableHome directory pattern filterHolder initialText

		cancelLabelHolder okLabelHolder startFilename result filterField

		filenameField viewFiles'

	classVariableNames:'LastFileSelectionDirectory'

	poolDictionaries:''

	category:'Interface-Tools-File'

!

!FileDialog class methodsFor:'documentation'!

documentation

"

    documentation to be added.

    [author:]

        Martin Walser (martin@vercingetorix)

    [instance variables:]

    [class variables:]

    [see also:]

"

!

examples

"

  Starting the application:

                                                                [exBegin]

    FileDialog open

                                                                [exEnd]

  more examples to be added:

                                                                [exBegin]

    ... add code fragment for 

    ... executable example here ...

                                                                [exEnd]

"

!

history

    "Created: / 19.9.2002 / 13:05:28 / martin"

! !

!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.

    "

     Dialog

        requestDirectoryName:'which directory ?' 

        default:'/etc'

        ifFail:'none'

    "

!

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

    "same as requestFileName, but only show directories"

    |enteredFileName instance defaultNm defaultDir enteredFileNameString defaultFile|

    defaultNm := aFileName.

    defaultDir := aDirectoryPath.

    defaultDir isNil ifTrue:[

        defaultNm notNil ifTrue:[

            defaultDir := defaultNm asFilename directory.

        ] ifFalse:[

            defaultDir := FileSelectionBox lastFileSelectionDirectory.

            defaultDir isNil ifTrue:[

                defaultDir := Filename currentDirectory asAbsoluteFilename.        

            ].

        ]

    ].

    defaultDir := defaultDir asFilename.

    [defaultDir exists not] whileTrue:[

        defaultDir := defaultDir directory.

    ].

    defaultNm isNil ifTrue:[

        defaultFile := defaultDir.

    ] ifFalse:[

        defaultFile := defaultNm asFilename.

    ].

    instance := self new.

"/    defaultDir notNil ifTrue:[instance directory:(defaultDir asFilename)].

    defaultDir notNil ifTrue:[instance directory:defaultFile].

    instance startFilename:defaultFile.

    instance initialText:title.

    instance pattern:((pattern isNil or:[pattern isEmpty]) ifTrue:['*'] ifFalse:[pattern]).

    instance okLabelHolder value:okText.

    instance cancelLabelHolder value:abortText.

    instance viewFiles:false.

    instance allButOpenInterface:#windowSpec.

    boxCreatedCallback notNil ifTrue:[boxCreatedCallback value:instance].

    instance openWindowModal.

    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:'/etc'

        ifFail:nil

    "

!

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

    "

    | defaultDir defaultNm instance enteredFileName enteredFileNameString defaultFile|

    defaultNm := defaultName.

    defaultDir := aDirectoryPath.

    defaultDir isNil ifTrue:[

        defaultDir := FileSelectionBox lastFileSelectionDirectory.

        defaultDir isNil ifTrue:[

            defaultDir := Filename currentDirectory asAbsoluteFilename.        

        ].

    ].

    defaultDir := defaultDir asFilename.

    [defaultDir exists not] whileTrue:[

        defaultDir := defaultDir directory.

    ].

    (defaultName notNil and:[defaultName asFilename withoutSuffix baseName ~= '*']) ifTrue:[

        defaultFile := defaultDir construct:defaultName.

    ] ifFalse:[

        defaultFile := defaultDir.

    ].

    instance := self new.

    defaultDir notNil ifTrue:[instance directory:(defaultDir asFilename)].

    instance startFilename:defaultFile.

    instance pattern:((pattern isNil or:[pattern isEmpty]) ifTrue:['*'] ifFalse:[pattern]).

    instance initialText:titleString.

    instance okLabelHolder value:okText.

    instance cancelLabelHolder value:abortText.

    instance viewFiles:true.

    instance allButOpenInterface:#windowSpec.

    boxCreatedCallback notNil ifTrue:[boxCreatedCallback value:instance].

    instance openWindowModal.

    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:(enteredFileName directoryName).

    ].

    ^ enteredFileNameString

!

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:'/etc'

        whenBoxCreatedEvaluate:nil.

     Dialog 

        requestFileName:'enter a fileName:'

        default:''

        version:nil

        ifFail:['none']

        pattern:'*.conf'

        fromDirectory:'/etc'

        whenBoxCreatedEvaluate:nil

    "

    "

     FileDialog

        requestFileName:'enter a fileName:'

        default:''

        version:#old 

        ifFail:['none']   

        pattern:'*.conf'

        fromDirectory:'/etc'

        whenBoxCreatedEvaluate:nil

    "

    "

     FileDialog

        requestFileName:'enter a fileName:'

        default:''

        version:#mustBeNew 

        ifFail:['none']   

        pattern:'*.conf'

        fromDirectory:'/etc'

        whenBoxCreatedEvaluate:nil

    "

! !

!FileDialog class methodsFor:'accessing'!

lastFileSelectionDirectory

    "return the name of the directory used in the previous

     fileSelection dialog. This will be used as default for the next dialog,

     if no explicit path is specified (see requestFileName:* methods)"

    |f|

    LastFileSelectionDirectory notNil ifTrue:[

        ((f := LastFileSelectionDirectory asFilename) exists 

        and:[f isDirectory]) ifFalse:[

            LastFileSelectionDirectory := nil.

        ]

    ].

    ^ LastFileSelectionDirectory

!

lastFileSelectionDirectory:aDirectoryString

    "set the name of the directory used in the previous

     fileSelection dialog. This will be used as default for the next dialog,

     if no explicit path is specified (see requestFileName:* methods)"

    LastFileSelectionDirectory := aDirectoryString

! !

!FileDialog class methodsFor:'interface specs'!

windowSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:FileDialog andSelector:#windowSpec

     FileDialog new openInterface:#windowSpec

     FileDialog open

    "

    <resource: #canvas>

    ^ 

     #(#FullSpec

        #name: #windowSpec

        #window: 

       #(#WindowSpec

          #label: 'FileDialog'

          #name: 'FileDialog'

          #min: #(#Point 10 10)

          #max: #(#Point 1024 768)

          #bounds: #(#Rectangle 16 42 416 442)

        )

        #component: 

       #(#SpecCollection

          #collection: #(

           #(#MenuPanelSpec

              #name: 'ToolBar1'

              #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 30 0)

              #tabable: true

              #menu: #toolBarMenu

              #textDefault: true

            )

           #(#SubCanvasSpec

              #name: 'DirectoryTreeBrowser'

              #layout: #(#LayoutFrame 0 0.0 30 0 0 1.0 -107 1)

              #tabable: true

              #hasHorizontalScrollBar: false

              #hasVerticalScrollBar: false

              #majorKey: #DirectoryTreeBrowser

              #createNewApplication: true

              #createNewBuilder: true

              #postBuildCallback: #postBuildTreeBrowser:

            )

           #(#LabelSpec

              #label: 'Filename:'

              #name: 'FilenameLabel'

              #layout: #(#LayoutFrame 3 0 -97 1 73 0 -77 1)

              #translateLabel: true

              #adjust: #left

            )

           #(#FilenameInputFieldSpec

              #name: 'FilenameEntryField'

              #layout: #(#LayoutFrame 70 0 -96 1 -10 1 -76 1)

              #tabable: true

              #model: #filenameHolder

              #acceptOnPointerLeave: false

              #postBuildCallback: #postBuildFileNameField:

            )

           #(#LabelSpec

              #label: 'Filter:'

              #name: 'FilterLabel'

              #layout: #(#LayoutFrame 3 0 -70 1 67 0 -50 1)

              #translateLabel: true

              #adjust: #left

            )

           #(#InputFieldSpec

              #name: 'FilterEntryField'

              #layout: #(#LayoutFrame 70 0 -69 1 -10 1 -49 1)

              #model: #filterHolder

              #immediateAccept: true

              #acceptOnReturn: true

              #acceptOnTab: true

              #acceptOnLostFocus: true

              #acceptOnPointerLeave: false

              #postBuildCallback: #postBuildFilterField:

            )

           #(#HorizontalPanelViewSpec

              #name: 'ButtonPanel'

              #layout: #(#LayoutFrame 0 0.0 -40 1 0 1 0 1)

              #horizontalLayout: #spreadSpace

              #verticalLayout: #center

              #horizontalSpace: 3

              #verticalSpace: 3

              #reverseOrderIfOKAtLeft: true

              #component: 

             #(#SpecCollection

                #collection: #(

                 #(#ActionButtonSpec

                    #label: 'Cancel'

                    #name: 'cancelButton'

                    #translateLabel: true

                    #labelChannel: #cancelLabelHolder

                    #tabable: true

                    #model: #doCancel

                    #extent: #(#Point 150 21)

                  )

                 #(#ActionButtonSpec

                    #label: 'OK'

                    #name: 'okButton'

                    #translateLabel: true

                    #labelChannel: #okLabelHolder

                    #tabable: true

                    #model: #doAccept

                    #isDefault: true

                    #extent: #(#Point 150 22)

                  )

                 )

              )

            )

           )

        )

      )

! !

!FileDialog class methodsFor:'menu specs'!

toolBarMenu

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the MenuEditor may not be able to read the specification."

    "

     MenuEditor new openOnClass:FileDialog andSelector:#toolBarMenu

     (Menu new fromLiteralArrayEncoding:(FileDialog toolBarMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(#Menu

        #(

         #(#MenuItem

            #label: 'DirectoryUp'

            #translateLabel: true

            #isButton: true

            #value: #doGoDirectoryUp

            #activeHelpKey: #directoryUp

            #enabled: #enableDirectoryUp

            #labelImage: #(#ResourceRetriever #AbstractFileBrowser #upArrow20x20Icon)

          )

         #(#MenuItem

            #label: '-'

          )

         #(#MenuItem

            #label: 'Back'

            #translateLabel: true

            #isButton: true

            #value: #doBack

            #activeHelpKey: #directoryBack

            #enabled: #enableBack

            #submenuChannel: #menuDirHistoryBack

            #labelImage: #(#ResourceRetriever #AbstractFileBrowser #leftArrow20x20PlusMenuIcon)

          )

         #(#MenuItem

            #label: '-'

          )

         #(#MenuItem

            #label: 'Forward'

            #translateLabel: true

            #isButton: true

            #value: #doForward

            #activeHelpKey: #directoryForward

            #submenuChannel: #menuDirHistoryForward

            #enabled: #enableForward

            #labelImage: #(#ResourceRetriever #AbstractFileBrowser #rightArrowPlusMenu20x20Icon)

          )

         #(#MenuItem

            #label: '-'

          )

         #(#MenuItem

            #label: 'Home'

            #translateLabel: true

            #isButton: true

            #value: #doGotoHomeDirectory

            #activeHelpKey: #fileHome

            #enabled: #enableHome

            #labelImage: #(#ResourceRetriever #AbstractFileBrowser #goHomeIcon)

          )

         )

        nil

        nil

      )

! !

!FileDialog methodsFor:'accessing'!

directory

    "return the value of the instance variable 'directory' (automatically generated)"