"{ Package: 'jv:smallsense' }"

"{ NameSpace: SmallSense }"

AbstractDIalog subclass:#AbstractSearchDialog

	instanceVariableNames:'matchingObjects matchingObjectsView matchingObjectsTree

		matchingObjectsSelectionHolder matchingObjectsLabelHolder

		matchingObjectsUpdateJob matchPatternHolder matchPatternView

		environmentHolder filterHolder filter recentlySearchedPatterns

		recentlySearchedObjects'

	classVariableNames:''

	poolDictionaries:''

	category:'SmallSense-Core-Interface-Search'

!

AbstractSearchDialog class instanceVariableNames:'recentlySearchedPatterns recentlySearchedObjects'

"

 The following class instance variables are inherited by this class:

	ApplicationModel - ClassResources

"

!

!AbstractSearchDialog class methodsFor:'accessing'!

recentlySearchedObjects

        recentlySearchedObjects := OrderedSet new.

    ].

    ^ recentlySearchedObjects

    "Created: / 28-04-2014 / 23:13:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

recentlySearchedPatterns

        recentlySearchedPatterns := OrderedSet new.

    ].

    ^ recentlySearchedPatterns

    "Created: / 28-04-2014 / 23:13:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!AbstractSearchDialog class methodsFor:'interface specs-content'!

contentPaneSpec

    "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:SmallSense::AbstractSearchDialog andSelector:#contentPaneSpec

     SmallSense::AbstractSearchDialog new openInterface:#contentPaneSpec

    "

    <resource: #canvas>

    #(FullSpec

       name: contentPaneSpec

      (WindowSpec

         label: 'Search...'

         name: 'Search...'

         min: (Point 10 10)

         bounds: (Rectangle 0 0 708 404)

         menu: mainMenuSpec

       )

      (SpecCollection

         collection: (

          (VerticalPanelViewSpec

             name: 'Content'

             layout: (LayoutFrame 0 0 0 0 0 1 0 1)

             horizontalLayout: fit

             verticalLayout: topSpaceFit

            (SpecCollection

               collection: (

                (ViewSpec

                   name: 'Box1'

                  (SpecCollection

                     collection: (

                      (LabelSpec

                         label: 'Enter name prefix or pattern (*):'

                         name: 'PatternLabel'

                         layout: (LayoutFrame 0 0 0 0 -100 1 0 1)

                         translateLabel: true

                         adjust: left

                       )

                      (UISubSpecification

                         name: 'SubSpecification1'

                         layout: (LayoutFrame -100 1 0 0 0 1 0 1)

                         minorKey: optionsShowHideRightAlignedPaneSpec

                       )

                      )

                   )

                   extent: (Point 708 30)

                 )

                (InputFieldSpec

                   name: 'Pattern'

                   model: matchPatternHolder

                   immediateAccept: true

                   acceptOnReturn: true

                   acceptOnTab: true

                   acceptOnPointerLeave: true

                   entryCompletionBlock: matchPatternCompletionBlock

                   extent: (Point 706 25)

                   postBuildCallback: postBuildMatchPatternView:

                   usePreferredHeight: true

                 )

                (LabelSpec

                   label: 'Matching items:'

                   name: 'MatchingLabel'

                   translateLabel: true

                   labelChannel: matchingObjectsLabelHolder

                   adjust: left

                   extent: (Point 708 25)

                 )

                (HierarchicalListViewSpec

                   name: 'HierarchicalListView1'

                   model: matchingObjectsSelectionHolder

                   hasHorizontalScrollBar: true

                   hasVerticalScrollBar: true

                   listModel: matchingObjectsTree

                   multipleSelectOk: true

                   useIndex: false

                   highlightMode: line

                   doubleClickSelector: doAcceptByDoubleClick

                   selectConditionSelector: canSelectIndex:

                   showLines: false

                   showIndicators: false

                   showLeftIndicators: false

                   useDefaultIcons: false

                   showRoot: false

                   extent: (Point 708 307)

                   postBuildCallback: postBuildMatchingObjectsView:

                 )

                )

             )

           )

          )

       )

     )

    "Modified: / 03-05-2014 / 00:56:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!AbstractSearchDialog 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 again."

    ^ self == SmallSense::AbstractSearchDialog.

! !

!AbstractSearchDialog methodsFor:'accessing'!

environment

    ^ self environmentHolder value

    "Created: / 22-04-2014 / 10:45:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

environment: aJavaClassEnvironment

    ^self environmentHolder value: aJavaClassEnvironment

    "Created: / 22-04-2014 / 10:46:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

filter

    ^self filterHolder value.

    "Created: / 11-03-2013 / 17:37:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

matchingObjectsSelection: selection

    | selectionAsCollection |

    selectionAsCollection := selection asCollection.

    self matchingObjectsSelectionHolder value: selectionAsCollection.

    "Created: / 02-05-2014 / 12:26:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

pattern

    ^self matchPatternHolder value.

    "Created: / 11-03-2013 / 14:39:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

pattern: aString

    ^self matchPatternHolder value: aString

    "Created: / 11-03-2013 / 15:21:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

recentlySearchedObjects

    ^ recentlySearchedObjects

!

recentlySearchedObjects:aCollection

    recentlySearchedObjects := aCollection.

!

recentlySearchedPatterns

    ^ recentlySearchedPatterns

!

recentlySearchedPatterns:aCollection

    recentlySearchedPatterns := aCollection.

!

title

    ^ self titleHolder value.

    "Created: / 05-05-2014 / 23:35:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

title: aString

    self titleHolder value: aString

    "Created: / 05-05-2014 / 23:36:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!AbstractSearchDialog methodsFor:'accessing-defaults'!

defaultTitle

    ^ (resources string: 'Search...')

    "Created: / 05-05-2014 / 23:39:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!AbstractSearchDialog methodsFor:'aspects'!

environmentHolder

    "return/create the 'registryHolder' value holder (automatically generated)"

    environmentHolder isNil ifTrue:[

        environmentHolder := Smalltalk asValue.

        environmentHolder addDependent:self.

    ].

    ^ environmentHolder

    "Created: / 22-04-2014 / 10:45:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 28-04-2014 / 00:04:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

environmentHolder:something

    "set the 'registryHolder' value holder (automatically generated)"

    |oldValue newValue|

    environmentHolder notNil ifTrue:[

        oldValue := environmentHolder value.

        environmentHolder removeDependent:self.

    ].

    environmentHolder := something.

    environmentHolder notNil ifTrue:[

        environmentHolder addDependent:self.

    ].

    newValue := environmentHolder value.

    oldValue ~~ newValue ifTrue:[

        self update:#value with:newValue from:environmentHolder.

    ].

    "Created: / 22-04-2014 / 10:45:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

filterHolder

    "return/create the 'filterHolder' value holder (automatically generated)"

    filterHolder isNil ifTrue:[

        filterHolder := ValueHolder new.

        filterHolder addDependent:self.

    ].

    ^ filterHolder

!

filterHolder:something

    "set the 'filterHolder' value holder (automatically generated)"

    |oldValue newValue|

    filterHolder notNil ifTrue:[

        oldValue := filterHolder value.

        filterHolder removeDependent:self.

    ].

    filterHolder := something.

    filterHolder notNil ifTrue:[

        filterHolder addDependent:self.

    ].

    newValue := filterHolder value.

    oldValue ~~ newValue ifTrue:[

        self update:#value with:newValue from:filterHolder.

    ].

!

matchPatternCompletionBlock

        | completion |

            field topView withCursor:(Cursor questionMark) do:[

            ].

        ].

        completion notNil ifTrue:[

            field contents: completion first.

                self matchingObjectsSelection: completion second anElement

            ].

        ] ifFalse:[

            matchingObjectsView flash.

        ]

    ]

    "Created: / 28-04-2014 / 22:30:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 02-05-2014 / 12:27:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

matchPatternHolder

    <resource: #uiAspect>

    matchPatternHolder isNil ifTrue:[

        matchPatternHolder := ValueHolder new.

        matchPatternHolder addDependent:self.

    ].

    ^ matchPatternHolder.

    "Modified: / 08-03-2013 / 13:00:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified (format): / 08-03-2013 / 14:05:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

matchingObjectsLabelHolder

    <resource: #uiAspect>

    "automatically generated by UIPainter ..."

    "*** the code below creates a default model when invoked."

    "*** (which may not be the one you wanted)"

    "*** Please change as required and accept it in the browser."

    "*** (and replace this comment by something more useful ;-)"

    matchingObjectsLabelHolder isNil ifTrue:[

        matchingObjectsLabelHolder := ValueHolder with:(resources string:'Matching items:').

"/ if your app needs to be notified of changes, uncomment one of the lines below:

"/       matchingLabelHolder addDependent:self.

"/       matchingLabelHolder onChangeSend:#matchingLabelHolderChanged to:self.

    ].

    ^ matchingObjectsLabelHolder.

    "Created: / 28-04-2014 / 22:29:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

matchingObjectsSelectionHolder

    "return/create the 'matchingClassesSelectionHolder' value holder (automatically generated)"

    matchingObjectsSelectionHolder isNil ifTrue:[

        matchingObjectsSelectionHolder := ValueHolder new.

        matchingObjectsSelectionHolder addDependent:self.

    ].

    ^ matchingObjectsSelectionHolder

    "Modified: / 08-03-2013 / 14:05:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

    "set the 'matchingClassesSelectionHolder' value holder (automatically generated)"

    matchingObjectsSelectionHolder := something.

!

matchingObjectsTree

    <resource: #uiAspect>

    matchingObjectsTree isNil ifTrue:[

        matchingObjectsTree := HierarchicalList new.

        matchingObjectsTree showRoot:false.

        matchingObjectsTree root:(HierarchicalItem new).

        matchingObjectsTree application:self.

        self updateNoResults:matchingObjectsTree root.

    ].

    ^ matchingObjectsTree.

    "Created: / 08-03-2013 / 15:40:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 27-04-2014 / 23:41:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!AbstractSearchDialog methodsFor:'aspects-queries'!

hasFilter

    ^self filterHolder value notNil

    "Created: / 08-03-2013 / 15:43:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 11-03-2013 / 17:34:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!AbstractSearchDialog methodsFor:'change & update'!

update:something with:aParameter from:changedObject

    "Invoked when an object that I depend upon sends a change notification."

    "stub code automatically generated - please change as required"

    changedObject == matchPatternHolder ifTrue:[

        matchingObjectsUpdateJob restart.

        ^ self.

    ].

    changedObject == matchingObjectsSelectionHolder ifTrue:[

        self updateAcceptEnabled.

        ^ self.

    ].

    changedObject == accept ifTrue:[

        accept value ifTrue:[

            recentlySearchedPatterns add: self pattern.

            acceptedValue := matchingObjectsSelectionHolder value collect:[:e|e subject].

            recentlySearchedObjects addAll: acceptedValue.

        ].

        ^ self.

    ].

    changedObject == filterHolder ifTrue:[

        filter notNil ifTrue:[filter removeDependent: self].

        filter := filterHolder value.

        filter notNil ifTrue:[filter addDependent: self].

         ^ self.

    ]    .

    changedObject == filter ifTrue:[

        matchingObjectsView invalidate.

    ].

    super update:something with:aParameter from:changedObject

    "Modified: / 28-04-2014 / 23:17:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

updateAcceptEnabled

    self acceptEnabledHolder value: matchingObjectsSelectionHolder value notEmptyOrNil.

    "Created: / 08-03-2013 / 14:06:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 15-03-2013 / 16:23:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

updateMatchingLabelToNormal

    self matchingObjectsLabelHolder value: (resources string: 'Matching items:').

    "Created: / 18-03-2013 / 14:02:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 28-04-2014 / 22:29:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

updateMatchingLabelToRecentSearches

    self matchingObjectsLabelHolder value: (resources string: 'Recently searched:').

    "Created: / 30-04-2014 / 11:47:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

updateMatchingLabelToSearching

    self matchingObjectsLabelHolder value: (resources string: 'Searching...').

    "Created: / 18-03-2013 / 14:01:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 28-04-2014 / 22:29:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

updateMatchingObjects

    | environment pattern |

    matchingObjects := nil.

    environment := self environment.

        pattern := StringPattern fromString: self matchPatternHolder value.

    ].

"/        [

"/            self updateMatchingLabelToSearching.

    matchingObjects := self matchingObjectsForPattern: pattern inEnvironment: environment.

"/        ] ensure:[

"/            self updateMatchingLabelToNormal.

"/        ]

    self updateMatchingObjects: matchingObjects.

    "Created: / 06-05-2014 / 00:11:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

updateMatchingObjects: objects

    | rootPO matchingPOs |

    matchingObjects := objects.

    matchingPOs := self matchingObjectPOsFor: objects.

    rootPO := self matchingObjectsTree root.

    rootPO

        children:matchingPOs;

        expand.

    matchingPOs size == 1 ifTrue:[

        self matchingObjectsSelection: matchingPOs anElement

    ].

    "Created: / 30-04-2014 / 09:53:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 02-05-2014 / 12:27:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"