"

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

"{ NameSpace: Smalltalk }"

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 modificationTimeOperatorHolder

		modificationTimeHolder enableModificationTimeFilter

	classVariableNames:'ContentsInfoCache ContentsInfoCacheAccessLock LastRememberInCache

		LastSearchIgnoredCaseInContents LastSearchIgnoredCaseInFilename

		SearchStringHistory LastSearchIgnoredCaseInExcludedFilename

		LastShowUnreadableFilesAndDirectories'

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

#excludedNamePattern

'Filename(s) to skip. 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%)'

#modificationTime

'Search for files which are newer or older'

)

    "Modified: / 28-03-2012 / 23:03:39 / 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 759 420)

       )

       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

             showPercentage: false

             isActivityIndicator: true

           )

          (ViewSpec

             name: 'Box1'

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

             component: 

            (SpecCollection

               collection: (

                (LabelSpec

                   label: 'Directory:'

                   name: 'DirectoryLabel'

                   activeHelpKey: searchDirectory

                   translateLabel: true

                   adjust: right

                 )

                (FilenameInputFieldSpec

                   name: 'DirectoryEntryField'

                   activeHelpKey: searchDirectory

                   model: searchDirectoryHolder

                   immediateAccept: true

                   acceptOnPointerLeave: false

                 )

                (LabelSpec

                   label: 'Search Files Named:'

                   name: 'FileNameLabel'

                   activeHelpKey: namePattern

                   translateLabel: true

                   adjust: right

                 )

                (InputFieldSpec

                   name: 'FileNameEntryField'

                   activeHelpKey: namePattern

                   tabable: true

                   model: namePatternHolder

                   immediateAccept: true

                   acceptOnLeave: false

                   acceptOnPointerLeave: false

                 )

                (LabelSpec

                   label: 'But not Named:'

                   name: 'Label1'

                   activeHelpKey: excludedNamePattern

                   translateLabel: true

                   adjust: right

                 )

                (InputFieldSpec

                   name: 'EntryField1'

                   activeHelpKey: excludedNamePattern

                   tabable: true

                   model: excludedNamePatternHolder

                   immediateAccept: true

                   acceptOnLeave: false

                   acceptOnPointerLeave: false

                 )

                (LabelSpec

                   label: 'Containing:'

                   name: 'ContentsLabel'

                   activeHelpKey: contentsPattern

                   translateLabel: true

                   adjust: right

                 )

                (ComboBoxSpec

                   name: 'ComboBox1'

                   activeHelpKey: contentsPattern

                   enableChannel: notSearchForSameContents

                   tabable: true

                   model: contentsPatternHolder

                   immediateAccept: true

                   acceptOnPointerLeave: false

                   comboList: searchStringHistory

                 )

                (LabelSpec

                   label: 'Not Containing:'

                   name: 'NotContentsLabel'

                   activeHelpKey: notContentsPattern

                   translateLabel: true

                   adjust: right

                 )

                (InputFieldSpec

                   name: 'NotContentsEntryField'

                   activeHelpKey: notContentsPattern

                   enableChannel: notSearchForSameContents

                   tabable: true

                   model: notContentsPatternHolder

                   immediateAccept: true

                   acceptOnPointerLeave: false

                 )

                (LabelSpec

                   label: 'Same Contents As:'

                   name: 'SameContentsAsLabel'

                   activeHelpKey: sameContents

                   translateLabel: true

                   adjust: right

                 )

                (InputFieldSpec

                   name: 'SameContentsAsEntryField'

                   activeHelpKey: sameContents

                   enableChannel: searchForSameContents

                   tabable: true

                   model: sameContentsAsHolder

                   immediateAccept: true

                   acceptOnPointerLeave: false

                 )

                (CheckToggleSpec

                   name: 'EnableSameContentsCheckToggle'

                   activeHelpKey: sameContents

                   model: searchForSameContents

                   isTriggerOnDown: true

                   showLamp: false

                   lampColor: (Color 100.0 100.0 0.0)

                 )

                (LabelSpec

                   label: 'File Size:'

                   name: 'FileSizeLabel'

                   activeHelpKey: fileSize

                   translateLabel: true

                   adjust: right

                 )

                (PopUpListSpec

                   label: 'PopUp List'

                   name: 'FileSizeOperatorPopUpList'

                   activeHelpKey: fileSize

                   tabable: true

                   model: fileSizeOperatorHolder

                   enableChannel: enableFileSizeFilterAndNotSearchForSameContents

                   menu: 

                  (Array

                     ' >' ' < '

                     ' !!= ' ' = '

                     ' ~ '

                   )

                 )

                (InputFieldSpec

                   name: 'FileSizeEntryField'

                   activeHelpKey: fileSize

                   enableChannel: enableFileSizeFilterAndNotSearchForSameContents

                   tabable: true

                   model: fileSizeHolder

                   type: fileSize

                   immediateAccept: false

                   acceptOnLeave: true

                   acceptOnLostFocus: true

                   acceptOnPointerLeave: true

                 )

                (CheckToggleSpec

                   name: 'EnableSizeCheckToggle'

                   activeHelpKey: fileSize

                   model: enableFileSizeFilter

                   enableChannel: notSearchForSameContents

                   isTriggerOnDown: true

                   showLamp: false

                   lampColor: (Color 100.0 100.0 0.0)

                 )

                (LabelSpec

                   label: 'Modified:'

                   name: 'Label2'

                   activeHelpKey: modificationTime

                   translateLabel: true

                   adjust: right

                 )

                (PopUpListSpec

                   label: 'PopUp List'

                   name: 'PopUpList1'

                   activeHelpKey: modificationTime

                   tabable: true

                   enableChannel: enableModificationTimeFilter

                 )

                (InputFieldSpec

                   activeHelpKey: modificationTime

                   enableChannel: enableModificationTimeFilter

                   tabable: true

                   model: modificationTimeHolder

                   type: timestamp

                   immediateAccept: false

                   acceptOnLeave: true

                   acceptOnLostFocus: true

                   acceptOnPointerLeave: true

                 )

                (CheckToggleSpec

                   name: 'CheckToggle1'

                   activeHelpKey: modificationTime

                   model: enableModificationTimeFilter

                   isTriggerOnDown: true

                   showLamp: false

                   lampColor: (Color 100.0 100.0 0.0)

                 )

                (CheckBoxSpec

                   label: 'Use ''locate'' Cmd'

                   name: 'UseLocateCheckBox'

                   activeHelpKey: useLocate

                   visibilityChannel: canUseLocate

                   tabable: true

                   model: useLocate

                   translateLabel: true

                 )

                (CheckBoxSpec

                   label: 'Recursive'

                   name: 'RecursiveSearchCheckBox'

                   activeHelpKey: recursiveSearch

                   tabable: true

                   model: searchRecursively

                   translateLabel: true

                 )

                (CheckBoxSpec

                   label: 'Directories'

                   name: 'SearchDirectoriesCheckBox'

                   enableChannel: notSearchForSameContents

                   tabable: true

                   model: searchDirectories

                   translateLabel: true

                 )

                (CheckBoxSpec

                   label: 'Ignore Case'

                   name: 'IgnoreCaseInNameCheckBox'

                   activeHelpKey: ignoreCase

                   tabable: true

                   model: ignoreCaseInName

                   translateLabel: true

                 )

                (CheckBoxSpec

                   label: 'Ignore Case'

                   name: 'CheckBox1'

                   activeHelpKey: ignoreCase

                   tabable: true

                   model: ignoreCaseInExcludedName

                   translateLabel: true

                 )

                (CheckBoxSpec

                   label: 'Use ''grep'' Cmd'

                   name: 'UseGrepCheckBox'

                   visibilityChannel: canUseGrep

                   enableChannel: notSearchForSameContents

                   tabable: true

                   model: useGrep

                   translateLabel: true

                 )

                (CheckBoxSpec

                   label: 'Ignore Case'

                   name: 'IgnoreCaseInContentsCheckBox'

                   activeHelpKey: ignoreCase

                   enableChannel: notSearchForSameContents