"{ Package: 'jv:smallsense' }"

"{ NameSpace: SmallSense }"

AbstractSearchDialog subclass:#ClassSearchDialog

	instanceVariableNames:'matchFullyQualifiedClassNameHolder

		matchFullyQualifiedClassNameEnabledHolder

		showOnlyInterfacesHolder'

	classVariableNames:''

	poolDictionaries:''

	category:'SmallSense-Core-Interface-Search'

!

!ClassSearchDialog methodsFor:'aspects'!

matchFullyQualifiedClassNameEnabledHolder

    <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 ;-)"

    matchFullyQualifiedClassNameEnabledHolder isNil ifTrue:[

        matchFullyQualifiedClassNameEnabledHolder := true asValue.

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

"/       matchFullyQualifiedClassNameEnabledHolder addDependent:self.

"/       matchFullyQualifiedClassNameEnabledHolder onChangeSend:#matchFullyQualifiedClassNameEnabledHolderChanged to:self.

    ].

    ^ matchFullyQualifiedClassNameEnabledHolder.

!

matchFullyQualifiedClassNameHolder

    <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 ;-)"

    matchFullyQualifiedClassNameHolder isNil ifTrue:[

        matchFullyQualifiedClassNameHolder := false asValue.

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

       matchFullyQualifiedClassNameHolder addDependent:self.

"/       matchFullyQualifiedClassNameHolder onChangeSend:#matchFullyQualifiedClassNameHolderChanged to:self.

    ].

    ^ matchFullyQualifiedClassNameHolder.

    "Modified: / 18-03-2013 / 11:19:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

showOnlyInterfacesHolder

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

    showOnlyInterfacesHolder isNil ifTrue:[

        showOnlyInterfacesHolder := false asValue.

        showOnlyInterfacesHolder addDependent:self.

    ].

    ^ showOnlyInterfacesHolder

    "Modified: / 24-04-2014 / 23:42:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

showOnlyInterfacesHolder:something 

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

    | oldValue  newValue |

    showOnlyInterfacesHolder notNil ifTrue:[

        oldValue := showOnlyInterfacesHolder value.

        showOnlyInterfacesHolder removeDependent:self.

    ].

    showOnlyInterfacesHolder := something.

    showOnlyInterfacesHolder notNil ifTrue:[

        showOnlyInterfacesHolder addDependent:self.

    ].

    newValue := showOnlyInterfacesHolder value.

    oldValue ~~ newValue ifTrue:[

        self 

            update:#value

            with:newValue

            from:showOnlyInterfacesHolder.

    ].

! !

!ClassSearchDialog methodsFor:'change & update'!

update:something with:aParameter from:changedObject

    changedObject == matchFullyQualifiedClassNameHolder ifTrue:[

        matchingObjectsUpdateJob restart.

        ^ self.

    ].

    changedObject == showOnlyInterfacesHolder ifTrue:[

        matchingObjectsUpdateJob restart.

        ^ self.

    ].  

    ^ super update:something with:aParameter from:changedObject

    "Created: / 27-04-2014 / 23:45:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ClassSearchDialog methodsFor:'queries'!

canSelect: selection

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

! !

!ClassSearchDialog methodsFor:'searching'!

matchingObjectPOsFor: objects

    | matchFullyQualifiedClassName |

    matchFullyQualifiedClassName := self matchFullyQualifiedClassNameHolder value.

    matchFullyQualifiedClassName ifTrue:[

        objects sort:[:a :b | a displayString < b displayString ].

    ] ifFalse:[

        objects sort:[:a :b | a nameWithoutPrefix < b nameWithoutPrefix ].

    ].

    ^ objects collect:[:each | 

        (ClassPO new)

            klass:each;

            showPrefix:matchFullyQualifiedClassName

    ].

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

!

matchingObjectsForPattern:pattern inEnvironment:environment 

    | matching matchFullyQualifiedClassName |

    matching := OrderedCollection new.

    matchFullyQualifiedClassName := self matchFullyQualifiedClassNameHolder 

            value.

    self matchPatternHolder value notEmptyOrNil ifTrue:[

        matchFullyQualifiedClassName ifFalse:[

            environment 

                allClassesDo:[:cls | 

                        matching add:cls.

                    ].

                ].

        ] ifTrue:[

            environment 

                allClassesDo:[:cls | 

                        matching add:cls

                    ]

                ].

        ]

    ].

    ^ matching

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

! !