"

 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 sameContentsAsHolder findFileView

		searchResultTable resultList enableStop enableSearch stopSignal

		accessLock searchTask expanded searchRecursively selectionHolder

		hasListEntries targetApplication useLocate useGrep

	classVariableNames:'ContentsInfoCache'

	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 openInDirectory:(Filename currentDirectory)

    "

     self open

    "

!

openInDirectory:aFilename

    ^ self openOnFileName:(aFilename asFilename asAbsoluteFilename)

    "

     self openInDirectory:'/etc'

    "

!

openOnFileName:aFileName

    ^ self openOnFileName:aFileName for:nil

!

openOnFileName:aFileName for:aTargetApplicationOrNil

    | instance builder|

    builder := super open.

    instance := builder application.

    instance item:(DirectoryContentsBrowser itemClass fileName:aFileName).

    aTargetApplicationOrNil notNil ifTrue:[

        instance targetApplication:aTargetApplicationOrNil.

    ].

    ^ 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)

          bounds: (Rectangle 0 0 729 512)

        )

        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 156 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 -315 1 24 0)

                    model: searchDirectoryHolder

                    immediateAccept: true

                    acceptOnPointerLeave: false

                  )

                 (CheckBoxSpec

                    label: 'Use ''locate'' Cmd'

                    name: 'UseLocateCheckBox'

                    layout: (LayoutFrame -300 1 5 0 -158 1 28 0)

                    visibilityChannel: canUseLocate

                    tabable: true

                    model: useLocate

                    translateLabel: true

                  )

                 (CheckBoxSpec

                    label: 'Recursive'

                    name: 'RecursiveSearchCheckBox'

                    layout: (LayoutFrame -160 1 5 0 -4 1 28 0)

                    tabable: true

                    model: searchRecursively

                    translateLabel: true

                  )

                 (LabelSpec

                    label: 'Search Files Named:'

                    name: 'FileNameLabel'

                    layout: (LayoutFrame 2 0 31 0 154 0 48 0)

                    translateLabel: true

                    adjust: right

                  )

                 (InputFieldSpec

                    name: 'FileNameEntryField'

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

                    tabable: true

                    model: namePatternHolder

                    formatString: ''

                    immediateAccept: true

                    acceptOnLeave: false

                    acceptOnPointerLeave: false

                  )

                 (CheckBoxSpec

                    label: 'Directories'

                    name: 'SearchDirectoriesCheckBox'

                    layout: (LayoutFrame -300 1 29 0 -158 1 52 0)

                    tabable: true

                    model: searchDirectories

                    translateLabel: true

                  )

                 (CheckBoxSpec

                    label: 'Ignore Case'

                    name: 'IgnoreCaseInNameCheckBox'

                    layout: (LayoutFrame -160 1 29 0 -4 1 52 0)

                    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'

                    layout: (LayoutFrame 156 0 52 0 -315 1 72 0)

                    enableChannel: notSearchForSameContents

                    tabable: true

                    model: contentsPatternHolder

                    immediateAccept: true

                    acceptOnPointerLeave: false

                  )

                 (CheckBoxSpec

                    label: 'Use ''grep'' Cmd'

                    name: 'UseGrepCheckBox'

                    layout: (LayoutFrame -300 1 53 0 -158 1 76 0)

                    visibilityChannel: canUseGrep

                    tabable: true

                    model: useGrep

                    translateLabel: true

                  )

                 (CheckBoxSpec

                    label: 'Ignore Case'

                    name: 'IgnoreCaseInContentsCheckBox'

                    layout: (LayoutFrame -160 1 53 0 -4 1 76 0)

                    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'

                    layout: (LayoutFrame 156 0 76 0 -315 1 96 0)

                    enableChannel: notSearchForSameContents

                    tabable: true

                    model: notContentsPatternHolder

                    immediateAccept: true

                    acceptOnPointerLeave: false

                  )

                 (CheckBoxSpec

                    label: 'Ignore Case'

                    name: 'IgnoreCaseInNotContentsCheckBox'

                    layout: (LayoutFrame -160 1 77 0 -4 1 100 0)

                    enableChannel: notSearchForSameContents

                    tabable: true

                    model: ignoreCaseInNotContents

                    translateLabel: true

                  )

                 (LabelSpec

                    label: 'Same Contents As:'

                    name: 'SameContentsAsLabel'

                    layout: (LayoutFrame 2 0 103 0 154 0 120 0)

                    translateLabel: true

                    adjust: right

                  )

                 (InputFieldSpec

                    name: 'SameContentsAsEntryField'

                    tabable: true

                    model: sameContentsAsHolder

                    formatString: ''

                    immediateAccept: true

                    acceptOnPointerLeave: false

                  )

                 (CheckBoxSpec

                    label: 'Cache Info'

                    name: 'RememberInCacheCheckBox'

                    layout: (LayoutFrame -300 1 101 0 -158 1 124 0)

                    visibilityChannel: canUseGrep

                    tabable: true

                    model: rememberInCache

                    translateLabel: true

                  )

                 (CheckBoxSpec

                    label: 'Search In Cache'

                    name: 'SearchOnlyInCacheCheckBox'

                    layout: (LayoutFrame -160 1 101 0 -4 1 124 0)

                    tabable: true

                    model: searchOnlyInCache

                    translateLabel: true

                  )

                 )

              )

            )

           (SequenceViewSpec

              name: 'List1'

              layout: (LayoutFrame 0 0.0 156 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