"{ Package: 'stx:goodies/smallsense' }"

"{ NameSpace: SmallSense }"

AbstractSearchDialog subclass:#MethodSearchDialog

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'SmallSense-Core-Interface-Search'

!

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

optionsPaneSpec

    "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::ClassSearchDialog andSelector:#optionsPaneSpec

     SmallSense::ClassSearchDialog new openInterface:#optionsPaneSpec

    "

    <resource: #canvas>

    ^ 

    #(FullSpec

       name: optionsPaneSpec

       window: 

      (WindowSpec

         label: 'Search Options...'

         name: 'Search Options...'

         min: (Point 10 10)

         bounds: (Rectangle 0 0 634 25)

       )

       component: 

      (SpecCollection

         collection: (

          (VerticalPanelViewSpec

             name: 'Options'

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

             horizontalLayout: fit

             verticalLayout: fit

             horizontalSpace: 3

             verticalSpace: 3

             component: 

            (SpecCollection

               collection: (

                (CheckBoxSpec

                   label: 'Match fully qualified class names'

                   name: 'CheckBox1'

                   model: matchFullyQualifiedClassNameHolder

                   extent: (Point 634 25)

                 )

                )

             )

           )

          )

       )

     )

! !

!MethodSearchDialog methodsFor:'accessing-defaults'!

defaultTitle

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

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

! !

!MethodSearchDialog methodsFor:'change & update'!

updateMatchingObjectsIgnorePattern

    "/ There's a lot of method, do not display them all but

    "/ rather display only recent selections.                   

    matchingObjects := self recentlySearchedObjects asArray reversed.

    self updateMatchingObjects: matchingObjects.

    "Created: / 10-05-2014 / 11:50:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!MethodSearchDialog methodsFor:'hooks'!

"/    self updateMatching.

"/    recentlySearchedPatterns notEmptyOrNil ifTrue:[

"/        matchPatternView contents: self recentlySearchedPatterns last.

"/        matchPatternView selectAll.

"/    ].

    self recentlySearchedObjects notEmptyOrNil ifTrue:[

        self updateMatchingObjects: self recentlySearchedObjects asArray reverse.

        self updateMatchingLabelToRecentSearches.

    ].

! !

!MethodSearchDialog methodsFor:'queries'!

canSelect: selection

    ^ selection askFor: #isSmallSenseMethodPO.

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

    "Modified: / 06-05-2014 / 00:27:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!MethodSearchDialog methodsFor:'searching'!

matchingObjectPOsFor: objects

    ^ (objects collect:[:each | PO forClass: each mclass selector: each selector ])

        sort:[ :a :b | a label == b label ifTrue:[ a classes anElement name < b classes anElement name] ifFalse:[ a label < b label ] ];

        yourself

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

    "Modified: / 20-06-2014 / 14:21:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

matchingObjectsForPattern:pattern inEnvironment:environment relax: level 

    | matching |

    matching := OrderedCollection new.

    self matchPatternHolder value notEmptyOrNil ifTrue:[

        environment 

            allMethodsDo:[:mthd |

                | name |

                name := mthd selector.

                mthd isJavaMethod ifTrue:[ name := name upTo: $( ].

                ((filter isNil or:[filter value: mthd]) and:[(pattern match:name relax: level)]) ifTrue:[

                    matching add:mthd.

                ].

            ].

    ].

    ^ matching

    "Created: / 20-06-2014 / 21:17:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !