"

 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

		rememberInCache searchOnlyInCache searchForSameContents

		matchedFilesList shownListHolder contentsInfoCache

		contentsInfoCacheAccessLock autoSelectInBrowserHolder

		fileSizeOperatorHolder fileSizeHolder enableFileSizeFilter

		fileSizeUnitHolder'

	classVariableNames:'ContentsInfoCache ContentsInfoCacheAccessLock LastRememberInCache

		LastSearchIgnoredCaseInContents LastSearchIgnoredCaseInFilename

		SearchStringHistory'

	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

    "the formatString shown in a tab (language translated)"

    ^ 'Find in %1'

    "Modified: / 01-03-2007 / 21:47:54 / cg"

! !

!FindFileApplication class methodsFor:'help specs'!

flyByHelpSpec

    "This resource specification was automatically generated

     by the UIHelpTool of ST/X."

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

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

    "

     UIHelpTool openOnClass:FindFileApplication    

    "

    <resource: #help>

    ^ super flyByHelpSpec addPairsFrom:#(

#contentsPattern

'Search for files containing this. Can be matchPatterns, separated by ";"'

#namePattern

'Filename(s) to search for. Can be matchPatterns, separated by ";"'

#notContentsPattern

'Search for files NOT containing this. Can be matchPatterns, separated by ";"'

#searchDirectory

'Folder, where the search starts'

#searchRecursive

'Recursively search in sub-folders'

#ignoreCase

'Ignore upper/lowercase differences (be case-insensitive)'

#sameContents

'Search for files with same contents as the other file'

#fileSize

'Search for files with a specific size constraint'

)

! !

!FindFileApplication class methodsFor:'history'!

addToSearchStringHistory:aString

    self searchStringHistory 

        remove:aString ifAbsent:[];

        addFirst:aString.

    self searchStringHistory size > 25 ifTrue:[

        self searchStringHistory removeLast

    ].

!

searchStringHistory

    SearchStringHistory isNil ifTrue:[

        SearchStringHistory := OrderedCollection new 

    ].

    ^ SearchStringHistory

! !

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

          bounds: (Rectangle 0 0 758 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

            )

           (ProgressIndicatorSpec

              name: 'ProgressIndicator1'

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

              visibilityChannel: enableStop

              backgroundColor: (Color 0.0 66.999313344015 66.999313344015)

              showPercentage: false

              isActivityIndicator: true

            )

           (ViewSpec

              name: 'Box1'

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

              component: 

             (SpecCollection

                collection: (

                 (LabelSpec

                    label: 'Directory:'

                    name: 'DirectoryLabel'

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

                    translateLabel: true

                    adjust: right

                    activeHelpKey: searchDirectory

                  )

                 (FilenameInputFieldSpec

                    name: 'DirectoryEntryField'

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

                    activeHelpKey: searchDirectory

                    model: searchDirectoryHolder

                    immediateAccept: true

                    acceptOnPointerLeave: false

                  )

                 (LabelSpec

                    label: 'Search Files Named:'

                    name: 'FileNameLabel'

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

                    translateLabel: true

                    adjust: right

                    activeHelpKey: namePattern

                  )

                 (InputFieldSpec

                    name: 'FileNameEntryField'

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

                    activeHelpKey: namePattern

                    tabable: true

                    model: namePatternHolder

                    immediateAccept: true

                    acceptOnLeave: false

                    acceptOnPointerLeave: false

                  )

                 (LabelSpec

                    label: 'Containing:'

                    name: 'ContentsLabel'

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

                    translateLabel: true

                    adjust: right

                    activeHelpKey: contentsPattern

                  )

                 (ComboBoxSpec

                    name: 'ComboBox1'

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

                    activeHelpKey: contentsPattern

                    enableChannel: notSearchForSameContents

                    tabable: true

                    model: contentsPatternHolder

                    immediateAccept: true

                    acceptOnPointerLeave: false

                    comboList: searchStringHistory

                  )

                 (LabelSpec

                    label: 'Not Containing:'

                    name: 'NotContentsLabel'

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

                    translateLabel: true

                    adjust: right

                    activeHelpKey: notContentsPattern

                  )

                 (InputFieldSpec

                    name: 'NotContentsEntryField'

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

                    activeHelpKey: notContentsPattern

                    enableChannel: notSearchForSameContents

                    tabable: true

                    model: notContentsPatternHolder

                    immediateAccept: true

                    acceptOnPointerLeave: false

                  )

                 (LabelSpec

                    label: 'Same Contents As:'

                    name: 'SameContentsAsLabel'

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

                    translateLabel: true

                    adjust: right

                    activeHelpKey: sameContents

                  )

                 (InputFieldSpec

                    name: 'SameContentsAsEntryField'

                    layout: (LayoutFrame 156 0 100 0 -339 1 120 0)

                    activeHelpKey: sameContents

                    enableChannel: searchForSameContents

                    tabable: true

                    model: sameContentsAsHolder

                    immediateAccept: true

                    acceptOnPointerLeave: false

                  )

                 (CheckToggleSpec

                    name: 'EnableSameContentsCheckToggle'

                    layout: (LayoutOrigin -334 1 104 0)

                    activeHelpKey: sameContents

                    model: searchForSameContents

                    isTriggerOnDown: true

                    showLamp: false

                    lampColor: (Color 100.0 100.0 0.0)

                  )

                 (LabelSpec

                    label: 'File Size:'

                    name: 'FileSizeLabel'

                    layout: (LayoutFrame 2 0 127 0 154 0 144 0)

                    translateLabel: true

                    adjust: right

                    activeHelpKey: fileSize

                  )

                 (PopUpListSpec

                    label: 'PopUp List'

                    name: 'FileSizeOperatorPopUpList'

                    layout: (LayoutFrame 157 0 124 0 212 0 144 0)

                    tabable: true

                    model: fileSizeOperatorHolder

                    activeHelpKey: fileSize

                    enableChannel: enableFileSizeFilterAndNotSearchForSameContents

                    menu: 

                   (Array

                      ' >' ' < '

                      ' !!= ' ' = '

                      ' ~ '

                    )

                  )

                 (InputFieldSpec

                    name: 'FileSizeEntryField'

                    layout: (LayoutFrame 219 0 124 0 -430 1 144 0)

                    activeHelpKey: fileSize

                    enableChannel: enableFileSizeFilterAndNotSearchForSameContents

                    tabable: true

                    model: fileSizeHolder

                    type: fileSize

                    immediateAccept: false

                    acceptOnLeave: true

                    acceptOnLostFocus: true

                    acceptOnPointerLeave: true

                  )

                 (CheckToggleSpec

                    name: 'EnableSizeCheckToggle'

                    activeHelpKey: fileSize

                    layout: (LayoutOrigin -334 1 127 0)

                    model: enableFileSizeFilter

                    enableChannel: notSearchForSameContents

                    isTriggerOnDown: true

                    showLamp: false

                    lampColor: (Color 100.0 100.0 0.0)

                  )

                 (CheckBoxSpec

                    label: 'Use ''locate'' Cmd'

                    name: 'UseLocateCheckBox'

                    layout: (LayoutFrame -309 1 5 0 -167 1 28 0)

                    visibilityChannel: canUseLocate

                    tabable: true

                    model: useLocate

                    translateLabel: true

                    activeHelpKey: useLocate

                  )

                 (CheckBoxSpec

                    label: 'Recursive'

                    name: 'RecursiveSearchCheckBox'

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

                    tabable: true

                    model: searchRecursively

                    translateLabel: true

                    activeHelpKey: recursiveSearch

                  )

                 (CheckBoxSpec

                    label: 'Directories'

                    name: 'SearchDirectoriesCheckBox'

                    layout: (LayoutFrame -309 1 29 0 -167 1 52 0)

                    enableChannel: notSearchForSameContents

                    tabable: true

                    model: searchDirectories

                    translateLabel: true

                  )

                 (CheckBoxSpec

                    label: 'Ignore Case'

                    name: 'IgnoreCaseInNameCheckBox'

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

                    tabable: true

                    model: ignoreCaseInName

                    translateLabel: true

                    activeHelpKey: ignoreCase

                  )

                 (CheckBoxSpec

                    label: 'Use ''grep'' Cmd'

                    name: 'UseGrepCheckBox'

                    layout: (LayoutFrame -309 1 53 0 -167 1 76 0)

                    visibilityChannel: canUseGrep

                    enableChannel: notSearchForSameContents

                    tabable: true

                    model: useGrep

                    translateLabel: true

                  )

                 (CheckBoxSpec

                    label: 'Ignore Case'

                    name: 'IgnoreCaseInContentsCheckBox'

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

                    enableChannel: notSearchForSameContents

                    tabable: true

                    model: ignoreCaseInContents

                    translateLabel: true

                    activeHelpKey: ignoreCase

                  )

                 (CheckBoxSpec

                    label: 'Ignore Case'

                    name: 'IgnoreCaseInNotContentsCheckBox'

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

                    enableChannel: notSearchForSameContents

                    tabable: true

                    model: ignoreCaseInNotContents

                    translateLabel: true

                    activeHelpKey: ignoreCase

                  )

                 (CheckBoxSpec

                    label: 'Cache Info'

                    name: 'RememberInCacheCheckBox'

                    layout: (LayoutFrame -309 1 101 0 -167 1 124 0)

                    visibilityChannel: canUseGrep

                    enableChannel: searchForSameContents

                    tabable: true

                    model: rememberInCache

                    translateLabel: true

                  )

                 (ActionButtonSpec

                    label: 'Clear Cache'

                    name: 'ClearCacheButton'

                    layout: (LayoutFrame -169 1 101 0 -44 1 123 0)

                    translateLabel: true

                    model: clearCache

                  )

                 )

              )

            )

           (SequenceViewSpec

              name: 'List1'

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

              model: selectionHolder

              menu: menu

              hasHorizontalScrollBar: true

              hasVerticalScrollBar: true

              isMultiSelect: true

              doubleClickSelector: fileDoubleClick:

              valueChangeSelector: fileSelected:

              useIndex: true

              sequenceList: shownListHolder

              properties: 

             (PropertyListDictionary

                dragArgument: findFileList

                startDragSelector: doStartDrag:in:

                displayObjectSelector: getDisplayObjects:

                dropObjectSelector: getDropObjects:

              )

            )

           )

        )

      )

! !

!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

            enabled: hasOneFileSelected

            label: 'Open in New File Browser'

            itemValue: openInNewBrowser

            translateLabel: true

          )

         (MenuItem

            enabled: hasOneFileSelected