"{ Package: 'stx:libtool' }"

AbstractFileApplicationNoteBookComponent subclass:#FindFileApplication

	instanceVariableNames:'contentsPatternHolder ignoreCaseInName notSearchForSameContents

		namePatternHolder ignoreCaseInContents searchDirectoryHolder

		findFileView searchResultTable resultList enableStop enableSearch

		stopSignal accessLock searchTask expanded searchRecursively

		selectionHolder hasListEntries targetApplication'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Tools-File'

!

!FindFileApplication class methodsFor:'instance creation'!

open

    ^ self openOnFileName:(Filename currentDirectory asAbsoluteFilename)

!

openOnFileName:aFileName

    | instance builder|

    builder := super open.

    instance := builder application.

    instance item:(DirectoryContentsBrowser itemClass fileName:aFileName).

    ^ builder

!

openOnFileName:aFileName for:aTargetApplication

    | instance builder|

    builder := super open.

    instance := builder application.

    instance item:(DirectoryContentsBrowser itemClass fileName:aFileName).

    instance targetApplication:aTargetApplication.

    ^ 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 16 42 681 374)

        )

        #component: 

       #(#SpecCollection

          #collection: #(

           #(#MenuPanelSpec

              #name: 'ToolBar1'

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

              #menu: #searchMenu

              #textDefault: true

            )

           #(#ViewSpec

              #name: 'Box1'

              #layout: #(#LayoutFrame 0 0.0 32 0 0 1.0 126 0)

              #component: 

             #(#SpecCollection

                #collection: #(

                 #(#LabelSpec

                    #label: 'Search files named:'

                    #name: 'Label1'

                    #layout: #(#LayoutFrame 3 0 7 0 148 0 24 0)

                    #translateLabel: true

                    #adjust: #left

                  )

                 #(#InputFieldSpec

                    #name: 'EntryField1'

                    #layout: #(#LayoutFrame 140 0 4 0 -115 1 24 0)

                    #tabable: true

                    #model: #namePatternHolder

                    #immediateAccept: true

                    #acceptOnLeave: false

                    #acceptOnPointerLeave: false

                  )

                 #(#CheckBoxSpec

                    #label: 'Ignore case'

                    #name: 'CheckBox1'

                    #layout: #(#LayoutFrame -97 1 5 0 1 1 28 0)

                    #tabable: true

                    #model: #ignoreCaseInName

                    #translateLabel: true

                  )

                 #(#LabelSpec

                    #label: 'Containing the string:'

                    #name: 'Label2'

                    #layout: #(#LayoutFrame 4 0 31 0 136 0 48 0)

                    #translateLabel: true

                    #adjust: #left

                  )

                 #(#InputFieldSpec

                    #name: 'EntryField2'

                    #layout: #(#LayoutFrame 140 0 29 0 -115 1 49 0)

                    #enableChannel: #notSearchForSameContents

                    #tabable: true

                    #model: #contentsPatternHolder

                    #immediateAccept: true

                    #acceptOnPointerLeave: false

                  )

                 #(#CheckBoxSpec

                    #label: 'Ignore case'

                    #name: 'CheckBox2'

                    #layout: #(#LayoutFrame -97 1 30 0 4 1 50 0)

                    #enableChannel: #notSearchForSameContents

                    #tabable: true

                    #model: #ignoreCaseInContents

                    #translateLabel: true

                  )

                 #(#LabelSpec

                    #label: 'Directory:'

                    #name: 'Directory'

                    #layout: #(#LayoutFrame 4 0 57 0 136 0 74 0)

                    #translateLabel: true

                    #adjust: #left

                  )

                 #(#FilenameInputFieldSpec

                    #name: 'FilenameEntryField1'

                    #layout: #(#LayoutFrame 140 0 54 0 -115 1 74 0)

                    #model: #searchDirectoryHolder

                    #immediateAccept: true

                    #acceptOnPointerLeave: false

                  )

                 #(#CheckBoxSpec

                    #label: 'Recursively'

                    #name: 'CheckBox3'

                    #layout: #(#LayoutFrame -97 1 54 0 1 1 77 0)

                    #tabable: true

                    #model: #searchRecursively

                    #translateLabel: true

                  )

                 )

              )

            )

           #(#SequenceViewSpec

              #name: 'List1'

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

    ] ifFalse:[

        aBoolean ifTrue:[

            masterApplication tabStringChangeTo:aString for:self

        ]

    ].

!

copySelectedFiles

    |sel list stream|

    sel := self selectionHolder value.

    list := self resultList.

    (sel notNil and:[sel notEmpty]) ifTrue:[

        stream := WriteStream on:''.

        sel do:[: key |

            stream nextPutAll:(list at:key).

            stream cr.

        ].

        self window setTextSelection:stream contents.

        stream close.

    ].

!

doSearch

    | namePattern namePatterns contentsPattern dir|

"/    self changeExtentToSeeSearchResult.

    dir := self searchDirectoryHolder value.

    dir isNil ifTrue:[

        Dialog warn:'please type in a Directory first'.

        ^ self.

    ].

    dir asFilename exists not ifTrue:[

        Dialog warn:dir, 'not exists'.

        ^ self.

    ].

    searchTask notNil ifTrue:[

        (Dialog 

            confirm:(resources string:'there is already a find file running !!') withCRs

            yesLabel:(resources at:'Stop and continue')

            noLabel:(resources at:'Cancel'))

        ifFalse:[^ self].

        self stop.

    ].

    namePattern := self namePatternHolder value.

    namePattern size == 0 ifTrue:[

        namePatterns := nil

    ] ifFalse:[

        ignoreCaseInName value ifTrue:[

            namePattern := namePattern asLowercase

        ].

        namePatterns := namePattern asCollectionOfSubstringsSeparatedBy:$;

    ].

    contentsPattern := self contentsPatternHolder value.

    contentsPattern size == 0 ifTrue:[

        contentsPattern := nil

    ] ifFalse:[

        self ignoreCaseInContents value ifTrue:[

            contentsPattern := contentsPattern asLowercase

        ]

    ].

    searchTask := Process for:[

        [    

            (self stopSignal) catch:[

                self enableStop value:true.

                self resultList removeAll.

                self changeInformationTo:'Find File ' , '- search started ' toTab:true.

                self 

                    doFindFileNamed:namePatterns

                    ignoreCase:self ignoreCaseInName value

                    containingString:contentsPattern

                    ignoreCaseInContents:self ignoreCaseInContents value

                    sameContentsAsFile:nil 

                    sameContentsAs:nil 

                    in:self searchDirectoryHolder value.

                self enableStop value:false.

                self enableSearch value:true.

                self changeInformationTo:'Find File ' , '- search finished' toTab:true.

            ].

        ] valueNowOrOnUnwindDo:[

            searchTask := nil.

            self enableStop value:false.

        ]

    ] priority:(Processor systemBackgroundPriority).

    searchTask name:('FindFile[', self searchDirectoryHolder value asFilename baseName, ']').

    searchTask resume.

!

openInNewBrowser

    |sel|

    sel := self selectionHolder value.

    (sel notNil and:[sel notEmpty]) ifTrue:[

        FileBrowserV2 openOn:(self resultList at:sel first) asFilename

    ].

!

removeAllFromList

    self resultList removeAll.

!

removeFromList

    |sel list|

    sel := self selectionHolder value.

    list := self resultList.

    (sel notNil and:[sel notEmpty]) ifTrue:[

        sel reverseDo:[: key |

            list removeAtIndex:key

        ]

    ].

!

selectInBrowser

    |sel entry application|

    sel := self selectionHolder value.

    (sel notNil and:[sel notEmpty]) ifTrue:[

        entry := self resultList at:sel first.

        application := targetApplication ? self masterApplication.

            application gotoFile:(entry asFilename).

        ].

    ].

!

stop

    searchTask notNil ifTrue:[

        self accessLock critical:[

            searchTask interruptWith:[stopSignal raiseRequest].

        ]

    ].

    self enableStop value:false.

    self enableSearch value:true.

    self changeInformationTo:'Find File ' , '- search stopped' toTab:true.

!

stopSearchTask

    |task|

    (task := searchTask) notNil ifTrue:[

        searchTask := nil.

        Object errorSignal handle:[:ex|

            Dialog warn:ex description.

        ]do:[

            task isDead ifFalse:[

                task terminateWithAllSubprocessesInGroup.

                task waitUntilTerminated.

            ]