"

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

AbstractFileFinderApplicationComponent subclass:#FindFileApplication

	instanceVariableNames:'searchDirectories searchDirectoryHolder notSearchForSameContents

		namePatternHolder excludedNamePatternHolder ignoreCaseInName

		ignoreCaseInExcludedName contentsPatternHolder

		ignoreCaseInContents notContentsPatternHolder

		ignoreCaseInNotContents sameContentsAsHolder useLocate useGrep

		rememberInCache searchOnlyInCache searchForSameContents

		contentsInfoCache contentsInfoCacheAccessLock

		fileSizeOperatorHolder fileSizeHolder enableFileSizeFilter

		fileSizeUnitHolder'

	classVariableNames:'ContentsInfoCache ContentsInfoCacheAccessLock LastRememberInCache

		LastSearchIgnoredCaseInContents LastSearchIgnoredCaseInFilename

		SearchStringHistory LastSearchIgnoredCaseInExcludedFilename'

	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 ("~" means: +/- 10%)'

)

    "Modified: / 11-01-2012 / 23:32:42 / cg"

! !

!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.9993133440146 66.9993133440146)

              showPercentage: false

              isActivityIndicator: true

            )

           (ViewSpec

              name: 'Box1'

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

              component: 

             (SpecCollection

                collection: (

                 (LabelSpec

                    label: 'Directory:'

                    name: 'DirectoryLabel'

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

                    activeHelpKey: searchDirectory

                    translateLabel: true

                    adjust: right

                  )

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

                    activeHelpKey: namePattern

                    translateLabel: true

                    adjust: right

                  )

                 (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 79 0 154 0 96 0)

                    activeHelpKey: contentsPattern

                    translateLabel: true

                    adjust: right

                  )

                 (ComboBoxSpec

                    name: 'ComboBox1'

                    layout: (LayoutFrame 156 0 76 0 -315 1 96 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 103 0 154 0 120 0)

                    activeHelpKey: notContentsPattern

                    translateLabel: true

                    adjust: right

                  )

                 (InputFieldSpec

                    name: 'NotContentsEntryField'

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

                    activeHelpKey: notContentsPattern

                    enableChannel: notSearchForSameContents

                    tabable: true

                    model: notContentsPatternHolder

                    immediateAccept: true

                    acceptOnPointerLeave: false

                  )

                 (LabelSpec

                    label: 'Same Contents As:'

                    name: 'SameContentsAsLabel'

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

                    activeHelpKey: sameContents

                    translateLabel: true

                    adjust: right

                  )

                 (InputFieldSpec

                    name: 'SameContentsAsEntryField'

                    layout: (LayoutFrame 156 0 124 0 -339 1 144 0)

                    activeHelpKey: sameContents

                    enableChannel: searchForSameContents

                    tabable: true

                    model: sameContentsAsHolder

                    immediateAccept: true

                    acceptOnPointerLeave: false

                  )

                 (CheckToggleSpec

                    name: 'EnableSameContentsCheckToggle'

                    layout: (LayoutOrigin -334 1 128 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 151 0 154 0 168 0)

                    activeHelpKey: fileSize

                    translateLabel: true

                    adjust: right

                  )

                 (PopUpListSpec

                    label: 'PopUp List'

                    name: 'FileSizeOperatorPopUpList'

                    layout: (LayoutFrame 157 0 148 0 212 0 168 0)

                    activeHelpKey: fileSize

                    tabable: true

                    model: fileSizeOperatorHolder

                    enableChannel: enableFileSizeFilterAndNotSearchForSameContents

                    menu: 

                   (Array

                      ' >' ' < '

                      ' !!= ' ' = '

                      ' ~ '

                    )

                  )

                 (InputFieldSpec

                    name: 'FileSizeEntryField'

                    layout: (LayoutFrame 219 0 148 0 -430 1 168 0)

                    activeHelpKey: fileSize

                    enableChannel: enableFileSizeFilterAndNotSearchForSameContents

                    tabable: true

                    model: fileSizeHolder

                    type: fileSize

                    immediateAccept: false

                    acceptOnLeave: true

                    acceptOnLostFocus: true

                    acceptOnPointerLeave: true

                  )

                 (CheckToggleSpec

                    name: 'EnableSizeCheckToggle'

                    layout: (LayoutOrigin -334 1 151 0)

                    activeHelpKey: fileSize

                    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)

                    activeHelpKey: useLocate

                    visibilityChannel: canUseLocate

                    tabable: true

                    model: useLocate

                    translateLabel: true

                  )

                 (CheckBoxSpec

                    label: 'Recursive'

                    name: 'RecursiveSearchCheckBox'

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

                    activeHelpKey: recursiveSearch

                    tabable: true

                    model: searchRecursively

                    translateLabel: true

                  )

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

                    activeHelpKey: ignoreCase

                    tabable: true

                    model: ignoreCaseInName

                    translateLabel: true

                  )

                 (CheckBoxSpec

                    label: 'Use ''grep'' Cmd'

                    name: 'UseGrepCheckBox'

                    layout: (LayoutFrame -309 1 77 0 -167 1 100 0)

                    visibilityChannel: canUseGrep

                    enableChannel: notSearchForSameContents

                    tabable: true

                    model: useGrep

                    translateLabel: true

                  )

                 (CheckBoxSpec

                    label: 'Ignore Case'

                    name: 'IgnoreCaseInContentsCheckBox'

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

                    activeHelpKey: ignoreCase

                    enableChannel: notSearchForSameContents

                    tabable: true

                    model: ignoreCaseInContents

                    translateLabel: true

                  )

                 (CheckBoxSpec

                    label: 'Ignore Case'

                    name: 'IgnoreCaseInNotContentsCheckBox'

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

                    activeHelpKey: ignoreCase

                    enableChannel: notSearchForSameContents

                    tabable: true

                    model: ignoreCaseInNotContents

                    translateLabel: true

                  )

                 (CheckBoxSpec

                    label: 'Cache Info'

                    name: 'RememberInCacheCheckBox'

                    layout: (LayoutFrame -309 1 125 0 -167 1 148 0)

                    visibilityChannel: canUseGrep

                    enableChannel: searchForSameContents

                    tabable: true

                    model: rememberInCache

                    translateLabel: true

                  )

                 (ActionButtonSpec

                    label: 'Clear Cache'

                    name: 'ClearCacheButton'

                    layout: (LayoutFrame -169 1 125 0 -44 1 147 0)

                    translateLabel: true

                    model: clearCache

                  )

                 (LabelSpec

                    label: 'But Not Named:'

                    name: 'Label1'

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

                    activeHelpKey: namePattern

                    translateLabel: true

                    adjust: right

                  )

                 (InputFieldSpec

                    name: 'EntryField1'

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

                    activeHelpKey: namePattern

                    tabable: true

                    model: excludedNamePatternHolder

                    immediateAccept: true

                    acceptOnLeave: false

                    acceptOnPointerLeave: false

                  )

                 (CheckBoxSpec

                    label: 'Ignore Case'

                    name: 'CheckBox1'

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

                    activeHelpKey: ignoreCase

                    tabable: true

                    model: ignoreCaseInExcludedName

                    translateLabel: true

                  )

                 )

              )

            )

           (SequenceViewSpec

              name: 'List1'

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

              )

            )

           )

        )

      )