"

 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:'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)

          max: (Point 1280 1024)

          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

                  )

                 (FilenameInputFieldSpec

                    name: 'DirectoryEntryField'

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

                    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

                  )

                 (InputFieldSpec

                    name: 'FileNameEntryField'

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

                    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

                  )

                 (ComboBoxSpec

                    name: 'ComboBox1'

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

                    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

                  )

                 (InputFieldSpec

                    name: 'NotContentsEntryField'

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

                    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

                  )

                 (InputFieldSpec

                    name: 'SameContentsAsEntryField'

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

                    enableChannel: searchForSameContents

                    tabable: true

                    model: sameContentsAsHolder

                    immediateAccept: true

                    acceptOnPointerLeave: false

                  )

                 (CheckToggleSpec

                    name: 'EnableSameContentsCheckToggle'

                    layout: (LayoutOrigin -334 1 104 0)

                    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

                  )

                 (PopUpListSpec

                    label: 'PopUp List'

                    name: 'FileSizeOperatorPopUpList'

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

                    tabable: true

                    model: fileSizeOperatorHolder

                    enableChannel: enableFileSizeFilterAndNotSearchForSameContents

                    menu: 

                   (Array

                      ' >' ' < '

                      ' !!= ' ' = '

                      ' ~ '

                    )

                  )

                 (InputFieldSpec

                    name: 'FileSizeEntryField'

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

                    enableChannel: enableFileSizeFilterAndNotSearchForSameContents

                    tabable: true

                    model: fileSizeHolder

                    type: fileSize

                    immediateAccept: false

                    acceptOnLeave: true

                    acceptOnLostFocus: true

                    acceptOnPointerLeave: true

                  )

                 (CheckToggleSpec

                    name: 'EnableSizeCheckToggle'

                    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

                  )

                 (CheckBoxSpec

                    label: 'Recursive'

                    name: 'RecursiveSearchCheckBox'

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

                    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)

                    tabable: true

                    model: ignoreCaseInName

                    translateLabel: true

                  )

                 (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

                  )

                 (CheckBoxSpec

                    label: 'Ignore Case'

                    name: 'IgnoreCaseInNotContentsCheckBox'

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

                    enableChannel: notSearchForSameContents

                    tabable: true

                    model: ignoreCaseInNotContents

                    translateLabel: true

                  )

                 (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

                startDragSelector: doStartDrag:in:

                dragArgument: findFileList

                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

            label: 'Select in Browser'

            itemValue: selectInBrowser

            translateLabel: true

            isVisible: isEmbeddedApplication

          )

         (MenuItem

            label: 'Autoselect in Browser'

            translateLabel: true

            indication: autoSelectInBrowserHolder

          )

         (MenuItem

            label: '-'

          )

         (MenuItem

            enabled: hasOneFileSelected

            label: 'FileIn'

            itemValue: fileInInBrowser

            translateLabel: true

          )

         (MenuItem

            label: '-'

          )

         (MenuItem

            enabled: hasSelectionInResultList

            label: 'Copy Selected Filenames to Clipboard'

            itemValue: copySelectedFileNamesToClipboard

            translateLabel: true

          )

         (MenuItem

            label: '-'

          )

         (MenuItem

            enabled: hasListEntries

            label: 'Delete all Files'

            itemValue: deleteAllFiles

            translateLabel: true

          )

         (MenuItem

            enabled: hasSelection

            label: 'Delete Selected Files'

            itemValue: deleteSelectedFiles

            translateLabel: true

          )

         (MenuItem

            label: '-'

          )

         (MenuItem

            enabled: hasSelection

            label: 'Remove Selected from Resultlist'

            itemValue: removeSelectedFilesFromResultList

            translateLabel: true

          )

         (MenuItem

            enabled: hasListEntries

            label: 'Clear Resultlist'

            itemValue: clearResultList

            translateLabel: true

          )

         (MenuItem

            label: '-'

          )

         (MenuItem

            label: 'Show Matched Files (After SameContents-Search)'