"{ Encoding: utf8 }"

"

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

AbstractFileApplicationNoteBookComponent subclass:#AbstractFileFinderApplicationComponent

	instanceVariableNames:'findFileView searchResultTable resultList enableStop enableSearch

		stopSignal accessLock searchTask expanded searchRecursively

		selectionHolder hasListEntries targetApplication matchedFilesList

		shownListHolder autoSelectInBrowserHolder filesSearchedCount

		bytesSearchedCount'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Tools-File'

!

!AbstractFileFinderApplicationComponent 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.

"

!

documentation

" 

    abstract superclass of file-search appliations which are embedded in the file browserV2

"

! !

!AbstractFileFinderApplicationComponent class methodsFor:'queries'!

isAbstract

    "Return if this class is an abstract class.

     True is returned here for myself only; false for subclasses.

     Abstract subclasses must redefine this again."

    ^ self == AbstractFileFinderApplicationComponent.

! !

!AbstractFileFinderApplicationComponent methodsFor:'accessing'!

accessLock

    ^ accessLock

!

stopSignal

    stopSignal isNil ifTrue:[

        stopSignal := Signal new.

    ].

    ^ stopSignal

!

targetApplication:anApplication

    targetApplication := anApplication.

    "Modified (format): / 11-01-2012 / 22:41:01 / cg"

! !

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

        ] ifFalse:[

            masterApplication notify:aString.

        ].

    ].

    "Modified: / 03-08-2011 / 17:56:21 / cg"

!

clearShownList

    self shownList removeAll.

!

copySelectedFileNamesToClipboard

    |sel list stream|

    sel := self selectionHolder value.

    list := self shownList.

    (sel notEmptyOrNil) ifTrue:[

        stream := CharacterWriteStream new.

        sel do:[: key |

            stream nextPutAll:(list at:key).

            stream cr.

        ].

        self window setClipboardText:stream contents.

    ].

!

openInNewBrowser

    |sel|

    sel := self selectionHolder value.

    (sel notEmptyOrNil) ifTrue:[

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

    ].

!

selectInBrowser

    |sel entry fn application|

    sel := self selectionHolder value.

    (sel notEmptyOrNil) ifTrue:[

        entry := self shownList at:sel first.

        (fn := entry asFilename) exists ifFalse:[ ^ self].

        application := targetApplication ? self masterApplication.

        application notNil ifTrue:[

            application gotoFile:fn.

        ].

    ].

    "Modified (format): / 15-06-2019 / 08:44:29 / Claus Gittinger"

!

startSearchTask:aBlock name:taskName

    |thisSearchTask|

    searchTask := thisSearchTask :=

        [

            |message timeMillis timeString nFound|

            [    

                (self stopSignal) catch:[

                    self enableStop value:true.

                    self resultList removeAll.

                    self matchedFilesList removeAll.

                    self notify:'Searching...'.

                    filesSearchedCount := bytesSearchedCount := 0.

                    "/ self changeInformationTo:'Find File ' , '- searching ' toTab:true.

                    timeMillis := Time millisecondsToRun:[

                        aBlock value.

                    ].

                    timeMillis > 100 ifTrue:[

                        timeString := ((timeMillis / 1000) asFixedPoint:2) printString , ' s'

                    ] ifFalse:[

                        timeString := timeMillis printString , ' ms'

                    ].

                    nFound := resultList size.

                    message := resources 

                                    string:((nFound == filesSearchedCount) 

                                            ifTrue:['Found %1 file%2 in %3.'] 

                                            ifFalse:[

                                                "/ 'Found %1 file%2 in %3 (%4 files visited).'

                                                "/ 'Found %1 file%2 in %3 (%4 files visited; scanrate: %5/s).'

                                                'Found %1 file%2 in %3 (%4 files visited; %6 files/s).'

                                            ]) 

                                    with:nFound 

                                    with:(nFound == 1 ifTrue:'' ifFalse:'s') 

                                    with:timeString

                                    with:filesSearchedCount

                                    with:(UnitConverter fileSizeSIStringFor:(bytesSearchedCount * 1000 / (timeMillis max:1)))

                                    with:((filesSearchedCount * 1000 / (timeMillis max:1)) asFixedPoint:1).

                    self enableStop value:false.

                    self enableSearch value:true.

                    self changeInformationTo:'Find File ' , '- done.' toTab:true.

                ].

            ] ensure:[

                thisSearchTask == searchTask ifTrue:[

                    searchTask := nil.

                    self enableStop value:false.

                    self notify:message.

                ].

            ]

        ] newProcess.

    searchTask priorityRange:(Processor userBackgroundPriority to:Processor userSchedulingPriority-1).

    searchTask name:taskName.

    searchTask resume.

    ^ searchTask

    "Created: / 12-01-2012 / 01:52:17 / cg"

    "Modified: / 11-09-2018 / 15:21:15 / Claus Gittinger"

!

stop

    searchTask notNil ifTrue:[

        accessLock critical:[

            searchTask interruptWith:[stopSignal raiseRequest].

        ]

    ].

    self enableStop value:false.

    self enableSearch value:true.

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

    "Modified: / 11-01-2012 / 22:42:07 / cg"

!

stopSearchTask

    |task|

    (task := searchTask) notNil ifTrue:[

        searchTask := nil.

        Error handle:[:ex|

            Dialog warn:ex description.

        ]do:[

            task isDead ifFalse:[

                task terminateWithAllSubprocessesInGroup.

                task waitUntilTerminated.

            ]

        ]

    ].

! !

!AbstractFileFinderApplicationComponent methodsFor:'aspects'!

autoSelectInBrowser

    ^ self autoSelectInBrowserHolder value.

!

autoSelectInBrowserHolder

    autoSelectInBrowserHolder isNil ifTrue:[

        autoSelectInBrowserHolder := false asValue.

    ].

    ^ autoSelectInBrowserHolder.

!

contentsPatternHolder

    "to be redefined"

    ^ nil

    "Created: / 15-06-2019 / 08:43:11 / Claus Gittinger"

!

enableSearch

    enableSearch isNil ifTrue:[

        enableSearch := true asValue.

    ].

    ^ enableSearch.

!

enableStop

    enableStop isNil ifTrue:[

        enableStop := true asValue.

    ].

    ^ enableStop.

!

hasListEntries

    hasListEntries isNil ifTrue:[

        hasListEntries := false asValue.

    ].

    ^ hasListEntries.

!

ignoreCaseInContents

    "to be redefined"

    ^ false

    "Created: / 15-06-2019 / 08:43:47 / Claus Gittinger"

!

matchedFilesList

    matchedFilesList isNil ifTrue:[

        matchedFilesList := List new.

        matchedFilesList addDependent:self.

    ].

    ^ matchedFilesList.

!

resultList

    resultList isNil ifTrue:[

        resultList := List new.

        resultList addDependent:self.

    ].

    ^ resultList.

!

searchRecursively

    searchRecursively isNil ifTrue:[

        searchRecursively := true asValue.

    ].

    ^ searchRecursively.

!

searchResultTable

    searchResultTable isNil ifTrue:[

        searchResultTable := self class searchResultTable asValue.

    ].

    ^ searchResultTable.

!

selectionHolder

    selectionHolder isNil ifTrue:[

        selectionHolder := ValueHolder new.

        selectionHolder addDependent:self.

    ].

    ^ selectionHolder

!

shownList

    ^ self shownListHolder valueHolder.

!

shownListHolder

    shownListHolder isNil ifTrue:[

        shownListHolder := IndirectValue for:(self resultList).

        shownListHolder addDependent:self.

    ].

    ^ shownListHolder.

! !

!AbstractFileFinderApplicationComponent methodsFor:'change & update'!

update:something with:aParameter from:changedObject

    changedObject == self shownListHolder ifTrue:[

        self hasListEntries value:(changedObject valueHolder notEmpty).

        ^ self

    ].

    changedObject == self selectionHolder ifTrue:[

        self autoSelectInBrowser ifTrue:[

            self selectInBrowser.

        ].

        ^ self

    ].

    super update:something with:aParameter from:changedObject

! !

!AbstractFileFinderApplicationComponent methodsFor:'drag & drop'!

getDisplayObjects:anArgument

    "retrieve the objects displayed during a drag"

    | sel string size fnName stream|

    sel := self selectionHolder value.

    size := sel size.

    size == 0  ifTrue:[^ ''].

    stream := CharacterWriteStream with:((resultList at:sel first) asFilename baseName asString).

    size == 1 ifTrue:[

        fnName := 'ui_menuitem.xpm'.

    ] ifFalse:[

        fnName := 'ui_submenu_open.xpm'.

        stream nextPutAll:' ... '.

        stream nextPutAll:((resultList at:sel last) asFilename baseName asString).

    ].

    string := stream contents.

    ^ Array with:(LabelAndIcon 

                    icon:(Image fromFile:fnName)

                    string:(string allBold))

    "Modified: / 20-06-2017 / 08:16:39 / cg"

!

getDropObjects:anArgument

    "common code, used in subclasses"

    |sel|

    sel := self selectionHolder value.

    ^ sel 

        collect:[:idx|

            |el|

            el := resultList at:idx.

            DropObject newFile:(el asFilename) 

        ].

! !

!AbstractFileFinderApplicationComponent methodsFor:'event handling'!

fileDoubleClick:entries

    |file fn app openedAppl contentsPattern|

    file := self shownList at:entries first.

    fn := file asFilename.

    fn exists ifFalse:[

        Dialog warn:'File %1 does not (no longer ?) exist.' with:file allBold.

        ^ self

    ].

    app := targetApplication ? self masterApplication.

    fn isDirectory ifTrue:[

        app gotoFile:fn.

        ^ self.

    ].

    app notNil ifTrue:[

        openedAppl := app openApplForFile:file.

        (openedAppl notNil and:[openedAppl isTextEditor]) ifTrue:[

            openedAppl window assignKeyboardFocusToFirstKeyboardConsumer.    "/ should this be done in openApplForFile?

            contentsPattern := self contentsPatternHolder value.

            (contentsPattern notNil and:[ contentsPattern notEmpty and:[contentsPattern ~= '*']]) ifTrue:[

                openedAppl searchForPattern:contentsPattern ignoreCase:(self ignoreCaseInContents value).

            ]        

        ].

    ] ifFalse:[

        self openInNewBrowser.

    ]

    "Modified: / 10-07-2019 / 18:19:24 / Claus Gittinger"

!

fileSelected:entries

    |file fn|

    entries isEmptyOrNil ifTrue:[^ self].

    file := self shownList at:entries first.

    file isText ifTrue:[^ self].

    fn := file asFilename.

    fn exists ifFalse:[

        self notify:('%1 does not (no longer ?) exist or is not accessible.' bindWith:file allBold).

        ^ self

    ].

    fn isDirectory ifTrue:[

        self notify:nil.

        ^ self.

    ].

    self notify:('%1: %2.' bindWith:fn baseName allBold with:(UnitConverter fileSizeStringFor:fn fileSize)).

    "Created: / 04-07-2006 / 11:35:38 / cg"

!

processEvent:anEvent

    "filter keyboard events.

     Return true, if I have eaten the event"

    <resource: #keyboard (#Return )>

    |focusView key rawKey|

    anEvent isKeyPressEvent ifTrue:[

        focusView := anEvent targetView.

        key := anEvent key.

        rawKey := anEvent rawKey.

        (focusView isSameOrComponentOf:self window) ifTrue:[

            (key == #Return) ifTrue:[

                (focusView name ~= 'selectionInListView') ifTrue:[

                    self doSearch.

                ] ifFalse:[

                    self hasOneFileSelected ifTrue:[

                        self fileDoubleClick:(self selectionHolder value)

"/                        self isEmbeddedApplication ifTrue:[

"/                            self selectInBrowser.

"/                        ] ifFalse:[

"/                            self openInNewBrowser.

"/                        ]

                    ]

                ].

                ^ true

            ].

        ]

    ].

    ^ false