"

 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' }"

AbstractFileApplicationNoteBookComponent subclass:#FindFileApplication

	instanceVariableNames:'searchDirectories searchDirectoryHolder notSearchForSameContents

		namePatternHolder ignoreCaseInName contentsPatternHolder

		ignoreCaseInContents notContentsPatternHolder

		ignoreCaseInNotContents findFileView searchResultTable resultList

		enableStop enableSearch stopSignal accessLock searchTask expanded

		searchRecursively selectionHolder hasListEntries

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Tools-File'

!

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

"

! !

!FindFileApplication class methodsFor:'instance creation'!

open

    ^ self openOnFileName:(Filename currentDirectory asAbsoluteFilename)

!

openOnFileName:aFileName

    | instance builder|

    builder := super open.

    instance := builder application.

    instance item:(DirectoryContentsBrowser itemClass fileName:aFileName).

    ^ builder

!

openOnFileName:aFileName for:aTargetApplication

    | instance builder|

    builder := super open.

    instance := builder application.

    instance item:(DirectoryContentsBrowser itemClass fileName:aFileName).

    instance targetApplication:aTargetApplication.

    ^ builder

! !

!FindFileApplication class methodsFor:'defaults'!

tabStringFor:aApplicationType

    ^ 'Find file in:'

! !

!FindFileApplication 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:FindFileApplication andSelector:#windowSpec

     FindFileApplication new openInterface:#windowSpec

     FindFileApplication open

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpec

        window: 

       (WindowSpec

          label: 'File Search'

          name: 'File Search'

          min: (Point 377 131)

          max: (Point 1280 1024)

        )

        component: 

       (SpecCollection

          collection: (

           (MenuPanelSpec

              name: 'ToolBar1'

              layout: (LayoutFrame 0 0.0 0 0 0 1.0 32 0)

              level: 0

              menu: searchMenu

              textDefault: true

            )

           (ViewSpec

              name: 'Box1'

              layout: (LayoutFrame 0 0.0 32 0 0 1.0 132 0)

              component: 

             (SpecCollection

                collection: (

                 (LabelSpec

                    label: 'Directory:'

                    name: 'DirectoryLabel'

                    layout: (LayoutFrame 2 0 7 0 154 0 24 0)

                    translateLabel: true

                    adjust: right

                  )

                 (FilenameInputFieldSpec

                    name: 'DirectoryEntryField'

                    layout: (LayoutFrame 156 0 4 0 -246 1 24 0)

                    model: searchDirectoryHolder

                    immediateAccept: true

                    acceptOnPointerLeave: false

                  )

                 (CheckBoxSpec

                    label: 'Use ''locate'' Cmd'

                    name: 'UseLocateCheckBox'

                    visibilityChannel: canUseLocate

                    tabable: true

                    model: useLocate

                    translateLabel: true

                  )

                 (CheckBoxSpec

                    label: 'Recursive'

                    name: 'RecursiveSearchCheckBox'

                    tabable: true

                    model: searchRecursively

                    translateLabel: true

                  )

                 (LabelSpec

                    label: 'Search files named:'

                    name: 'FileNameLabel'

                    layout: (LayoutFrame 2 0 30 0 154 0 47 0)

                    translateLabel: true

                    adjust: right

                  )

                 (InputFieldSpec

                    name: 'FileNameEntryField'

                    layout: (LayoutFrame 156 0 28 0 -246 1 48 0)

                    tabable: true

                    model: namePatternHolder

                    formatString: ''

                    immediateAccept: true

                    acceptOnLeave: false

                    acceptOnPointerLeave: false

                  )

                 (CheckBoxSpec

                    label: 'Directories'

                    name: 'SearchDirectoriesCheckBox'

                    tabable: true

                    model: searchDirectories

                    translateLabel: true

                  )

                 (CheckBoxSpec

                    label: 'Ignore case'

                    name: 'IgnoreCaseInNameCheckBox'

                    tabable: true

                    model: ignoreCaseInName

                    translateLabel: true

                  )

                 (LabelSpec

                    label: 'Containing:'

                    name: 'ContentsLabel'

                    layout: (LayoutFrame 2 0 55 0 154 0 72 0)

                    translateLabel: true

                    adjust: right

                  )

                 (InputFieldSpec

                    name: 'ContentsEntryField'

                    enableChannel: notSearchForSameContents

                    tabable: true

                    model: contentsPatternHolder

                    immediateAccept: true

                    acceptOnPointerLeave: false

                  )

                 (CheckBoxSpec

                    label: 'Ignore case'

                    name: 'IgnoreCaseInContentsCheckBox'

                    enableChannel: notSearchForSameContents

                    tabable: true

                    model: ignoreCaseInContents

                    translateLabel: true

                  )

                 (LabelSpec

                    label: 'Not Containing:'

                    name: 'NotContentsLabel'

                    layout: (LayoutFrame 2 0 79 0 154 0 96 0)

                    translateLabel: true

                    adjust: right

                  )

                 (InputFieldSpec

                    name: 'NotContentsEntryField'

                    enableChannel: notSearchForSameContents

                    tabable: true

                    model: notContentsPatternHolder

                    immediateAccept: true

                    acceptOnPointerLeave: false

                  )

                 (CheckBoxSpec

                    label: 'Ignore case'

                    name: 'IgnoreCaseInNotContentsCheckBox'

                    enableChannel: notSearchForSameContents

                    tabable: true

                    model: ignoreCaseInNotContents

                    translateLabel: true

                  )

                 )

              )

            )

           (SequenceViewSpec

              name: 'List1'

              layout: (LayoutFrame 0 0.0 132 0 0 1.0 0 1)

              model: selectionHolder

              menu: menu

              hasHorizontalScrollBar: true

              hasVerticalScrollBar: true

              isMultiSelect: true

              doubleClickSelector: fileDoubleClick:

              useIndex: true

              sequenceList: resultList

            )

           (ProgressIndicatorSpec

              name: 'ProgressIndicator1'

              layout: (LayoutFrame 125 0 11 0 231 0 21 0)

              visibilityChannel: enableStop

              backgroundColor: (Color 0.0 66.9993 66.9993)

              showPercentage: false

              isActivityIndicator: true

            )

           )

        )

      )

! !

!FindFileApplication class methodsFor:'menu specs'!

menu

    "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:FindFileApplication andSelector:#menu

     (Menu new fromLiteralArrayEncoding:(FindFileApplication menu)) startUp

    "

    <resource: #menu>

    ^ 

     #(#Menu

        #(

         #(#MenuItem

            #label: 'Select in Browser'

            #translateLabel: true

            #isVisible: #isEmbeddedApplication

            #value: #selectInBrowser

            #enabled: #hasOneFileSelected

          )

         #(#MenuItem

            #label: 'Copy Selected Files'

            #translateLabel: true

            #value: #copySelectedFiles

            #enabled: #hasSelectionInResultList

          )

         #(#MenuItem

            #label: 'Open in New File Browser'

            #translateLabel: true

            #value: #openInNewBrowser

            #enabled: #hasOneFileSelected

          )

         #(#MenuItem

            #label: 'Remove selected Files'

            #translateLabel: true

            #value: #removeFromList

            #enabled: #hasSelection

          )

         #(#MenuItem

            #label: 'Remove all Files'

            #translateLabel: true

            #value: #removeAllFromList

            #enabled: #hasListEntries

          )

         )

        nil

        nil

      )

!

searchMenu

    "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:FindFileApplication andSelector:#searchMenu

     (Menu new fromLiteralArrayEncoding:(FindFileApplication searchMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(#Menu

        #(

         #(#MenuItem

            #label: 'Search'

            #translateLabel: true

            #isButton: true

            #value: #doSearch

            #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #search20x20Icon)

          )

         #(#MenuItem

            #label: 'Stop'

            #translateLabel: true

            #isButton: true

            #value: #stop

            #enabled: #enableStop

            #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #stop22x22Icon)

          )

         #(#MenuItem

            #label: 'Clean Up'

            #translateLabel: true

            #isButton: true

            #value: #removeAllFromList

            #enabled: #hasListEntries

            #labelImage: #(#ResourceRetriever #Icon #deleteIcon)

          )

         #(#MenuItem

            #label: 'Close'

            #translateLabel: true

            #isButton: true

            #startGroup: #right

            #value: #doClose

            #labelImage: #(#ResourceRetriever #AbstractFileBrowser #closeIcon)

          )

         )

        nil

        nil

      )

! !

!FindFileApplication class methodsFor:'tableColumns specs'!

searchResultTable

    "This resource specification was automatically generated

     by the DataSetBuilder of ST/X."

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

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

    "

     DataSetBuilder new openOnClass:FindFileApplication andSelector:#searchResultTable

    "

    <resource: #tableColumns>

    ^#(

      #(#DataSetColumnSpec

         #label: 'Filename'

         #id: 'FileName'

         #labelButtonType: #Button

         #model: #fileName

         #showRowSeparator: false

         #showColSeparator: false

       )

      )

! !

!FindFileApplication methodsFor:'accessing'!

accessLock

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

    accessLock isNil ifTrue:[

        accessLock := Semaphore forMutualExclusion name:'accessLock'.

    ].

    ^ accessLock

!

stopSignal

    stopSignal isNil ifTrue:[

        stopSignal := Signal new.

    ].

    ^ stopSignal

!

targetApplication:something

    "set the value of the instance variable 'targetApplication' (automatically generated)"

    targetApplication := something.

! !

!FindFileApplication methodsFor:'actions'!

changeInformationTo:aString

    self changeInformationTo:aString toTab:false

!

changeInformationTo:aString toTab:aBoolean

    masterApplication isNil ifTrue:[

        findFileView label:aString

    ] ifFalse:[

        aBoolean ifTrue:[

            masterApplication tabStringChangeTo:aString for:self

        ]

    ].

!

copySelectedFiles

    |sel list stream|

    sel := self selectionHolder value.

    list := self resultList.

    (sel notNil and:[sel notEmpty]) ifTrue:[

        stream := WriteStream on:''.

        sel do:[: key |

            stream nextPutAll:(list at:key).

            stream cr.

        ].

        self window setTextSelection:stream contents.

        stream close.

    ].

!

doSearch

    | namePattern namePatterns contentsPattern notContentsPattern dir|

"/    self changeExtentToSeeSearchResult.

    dir := self searchDirectoryHolder value.

    dir isNil ifTrue:[

        Dialog warn:'Missing directory name'.

        ^ self.

    ].

    dir asFilename exists not ifTrue:[

        Dialog warn:('No such directory: %1' bindWith:dir asString allBold).

        ^ self.

    ].

    searchTask notNil ifTrue:[

        (Dialog 

            confirm:(resources string:'There is already another find-file task running !!') withCRs

            yesLabel:(resources at:'Stop other Task and Proceed')

            noLabel:(resources at:'Cancel'))

        ifFalse:[^ self].

        self stop.

    ].

    namePattern := self namePatternHolder value.

    namePattern size == 0 ifTrue:[

        namePatterns := nil

    ] ifFalse:[

        ignoreCaseInName value ifTrue:[

            namePattern := namePattern asLowercase

        ].

        namePatterns := namePattern asCollectionOfSubstringsSeparatedBy:$;

    ].

    contentsPattern := self contentsPatternHolder value.

    contentsPattern size == 0 ifTrue:[

        contentsPattern := nil