"

 COPYRIGHT (c) 2000 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: Tools }"

DialogBox subclass:#SearchDialog

	instanceVariableNames:'openHow classes methods selectedClasses selectedCategories

		selectedMethods currentClass currentNamespace

		currentClassCategory browser whereRadioGroup verticalPanel

		searchAreas caseHolder matchHolder isMethodHolder codeField

		selectorHolder defaultOpenHow withTextEntry allowFind allowBuffer

	classVariableNames:'LastCodeSearched LastCodeSearchWasMethod LastGlobalSearched

		LastSearchWasMatch LastSearchWasIgnoringCase LastStringSearchArea

		LastCodeSearchArea'

	poolDictionaries:''

	category:'Interface-Browsers-New'

!

!SearchDialog class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2000 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.

"

! !

!SearchDialog class methodsFor:'queries'!

lastCodeSearchArea

    ^ LastCodeSearchArea

!

lastStringSearchArea

    ^ LastStringSearchArea

! !

!SearchDialog methodsFor:'private'!

showHelpOnCodePatterns

    HTMLDocumentView openFullOnHelpFile:'Browser/RBSearchPatterns.html'

! !

!SearchDialog methodsFor:'public'!

addTextEntryWithCaseIgnore:withCaseIgnore withMatch:withMatch 

    isSelector == #code ifTrue:[

        self addTextEntryFieldForCode.

    ] ifFalse:[

        self addInputFieldForSelectorOrNameOrString.

        withCaseIgnore ifTrue:[

                on:(caseHolder := (LastSearchWasIgnoringCase ? true) asValue).

        ].

        withMatch ifTrue:[

                on:(matchHolder := (LastSearchWasMatch ? true) asValue).

"/                (isSelector and:[ sel notNil. ]) ifTrue:[ 

"/                    sel includesMatchCharacters ifTrue:[ 

"/                        matchHolder value:false.

"/                    ].

"/                ].

        ].

    ]

!

askThenDo:aBlock 

    |where code sel matchHolderValue caseHolderValue|

    self open.

    self accepted ifFalse:[ 

        ^ self.

    ].

    openHow isNil ifTrue:[ 

        openHow := defaultOpenHow.

    ].

    where := whereRadioGroup value.

    withTextEntry ifTrue:[ 

        isSelector == #code ifTrue:[

            code := codeField contentsAsString.

            LastCodeSearched := code.

            LastCodeSearchArea := where.

        ] ifFalse:[

            sel := selectorHolder value.

            sel isEmpty ifTrue:[ 

                browser warn:(isSelector 

                            ifTrue:[ 'No selector entered for search'. ]

                            ifFalse:[ 'Nothing entered for search'. ]).

                ^ self.

            ].

            sel := sel string.

            browser rememberSearchPattern:sel.

            isSelector == #globalName ifTrue:[ 

                LastGlobalSearched := sel.

            ] ifFalse:[

                isSelector == #string ifTrue:[

                    LastStringSearchArea := where.

                ] ifFalse:[

                    (sel startsWith:$#) ifTrue:[

                        (sel startsWith:'#''') ifTrue:[

                            sel := sel copyFrom:3.

                            (sel endsWith:$') ifTrue:[

                                sel := sel copyWithoutLast:1.

                            ].

                        ] ifFalse:[

                            sel := sel copyFrom:2.

                        ].

                    ].

                ]

            ]

        ].

    ].

    where isNil ifTrue:[ 

        browser warn:'No class(es) for search'.

        ^ self.

    ].

    self getClassesAndMethodsFor:where.

    (#(#classesWithPrivateClasses #classHierarchiesWithPrivateClasses #ownersWithPrivateClasses #ownersHierarchiesWithPrivateClasses) 

        includes:where) 

            ifTrue:[ 

                |toSearch|

                toSearch := IdentitySet withAll:classes.

                classes := IdentitySet withAll:toSearch.

                [ toSearch notEmpty. ] whileTrue:[

                    |cls|

                    cls := toSearch removeFirst.

                    classes addAll:cls allPrivateClasses.

                ].

            ].

    classes size == 0 ifTrue:[

        classes := nil.

        methods size == 0 ifTrue:[ 

            browser warn:'No class(es) given for search.'.

            ^ self.

        ].

    ] ifFalse:[

        classes := classes asOrderedCollection.

        methods size ~~ 0 ifTrue:[ 

            browser warn:'oops'.

            methods := nil.

        ].

    ].

    matchHolderValue := matchHolder value.

    matchHolderValue notNil ifTrue:[

        LastSearchWasMatch := matchHolderValue

    ].

    caseHolderValue := caseHolder value.

    caseHolderValue notNil ifTrue:[

        LastSearchWasIgnoringCase := caseHolderValue

    ].

!

setupToAskForMethodSearchTitle:title forBrowser:brwsrArg isSelector:isSelectorArg searchArea:whereDefault withCaseIgnore:withCaseIgnore withMatch:withMatch withMethodList:withMethodList allowFind:allowFindArg allowBuffer:allowBufferArg allowBrowser:allowBrowserArg withTextEntry:withTextEntryArg 

    allowFind := allowFindArg.

    allowBuffer := allowBufferArg.

    allowBrowser := allowBrowserArg.

    isSelector := isSelectorArg.

    withTextEntry := withTextEntryArg.

    browser := brwsrArg.

    resources := browser resources.

    (self addTextLabel:(resources stringWithCRs:title)) adjust:#left.

    selectedClasses := browser selectedClasses value.

    selectedCategories := browser selectedCategoriesValue.

    selectedMethods := browser selectedMethods value.

    currentClass := browser theSingleSelectedClass.

    currentClassCategory := browser theSingleSelectedCategory.

    currentClass isNil ifTrue:[

        browser hasMethodSelected ifTrue:[

            currentClass := selectedMethods first mclass.

            selectedClasses := selectedClasses select:[:each | each notNil ].

        ].

    ].

    currentClass notNil ifTrue:[

        currentClass := currentClass theNonMetaclass.

    ].

    withTextEntry ifTrue:[

        self addTextEntryWithCaseIgnore:withCaseIgnore withMatch:withMatch.

    ].

    searchAreas := OrderedCollection new.

    self addHorizontalLine.

    self addVerticalSpace.

    (self addTextLabel:(resources string:'Search in:')) adjust:#left.

    whereRadioGroup := RadioButtonGroup new.

    (selectedCategories size > 0 or:[ selectedClasses size > 0 ]) ifTrue:[

        self addCheckBoxForEverywhere.

        "/        classMethodListView notNil ifTrue:[

        "/            b := CheckBox label:(resources string:'Shown Methods').

        "/            panel add:b. whereChannel add:b value:#currentMethodList.

        "/            areas add:#currentMethodList.

        "/            self makeTabable:b.

        "/        ].

        browser isMethodListBrowser ifTrue:[

            methodNameSpaces := (browser selectedMethods value ? #()) 

                        collect:[:eachMethod | eachMethod mclass topNameSpace ].

        ].

        methodNameSpaces size == 1 ifTrue:[

            currentNamespace := methodNameSpaces first.

        ] ifFalse:[

            currentNamespace := browser currentNamespace.

            selectedClasses size == 0 ifTrue:[

                |classesInAllSelectedCategories nameSpacesOfAllClassesInAllSelectedCategories|

                classesInAllSelectedCategories := Smalltalk allClasses select:[:cls | selectedCategories includes:cls category].

                nameSpacesOfAllClassesInAllSelectedCategories := classesInAllSelectedCategories collect:[:eachClass | eachClass topNameSpace].

                nameSpacesOfAllClassesInAllSelectedCategories size == 1 ifTrue:[

                    currentNamespace := nameSpacesOfAllClassesInAllSelectedCategories first.

                ].

            ].

        ].

        (currentNamespace notNil 

            and:[ currentNamespace ~= (browser nameListEntryForALL) ]) 

                ifTrue:[ self addCheckBoxForCurrentNamespace ]

                ifFalse:[

                    (currentClass notNil 

                        and:[ (ns := currentClass nameSpace) notNil and:[ ns ~~ Smalltalk ] ]) 

                            ifTrue:[ self addCheckBoxForClassesNamespace:ns ].

                ].

        selectedCategories size > 0 ifTrue:[

            self addCheckBoxForSelectedClassCategory.

        ].

        (selectedClasses size > 0 or:[ selectedMethods size > 0 ]) ifTrue:[

            self addCheckBoxForSelectedClass.

            self addCheckBoxForSelectedClassAndSuperclasses.

            self addCheckBoxForSelectedClassAndSubclasses.

            self addCheckBoxForSelectedClassAndPrivateClasses.

            self addCheckBoxForSelectedClassAndSubclassesAndPrivateClasses.

            self addCheckBoxForOwnerAndItsPrivateClasses.

            self addCheckBoxForOwnerAndItsSubclassesAndItsPrivateClasses.

        ].

    ] ifFalse:[

        browser currentNamespace ~~ Smalltalk ifTrue:[

            self addCheckBoxForEverywhere.

            currentNamespace := browser currentNamespace.

            currentNamespace ~= (browser nameListEntryForALL) ifTrue:[

                self addCheckBoxForCurrentNamespace.

            ] ifFalse:[

                (currentClass notNil 

            ].

        ].

    ].

    (withMethodList and:[ browser isMethodListBrowser ]) ifTrue:[

        searchAreas size == 0 ifTrue:[

            self addCheckBoxForEverywhere.

        ].

        self addCheckBoxForMethodList.

        browser selectedMethods value size > 1 ifTrue:[

            self addCheckBoxForSelectedMethods.

        ].

    ].

    searchAreas size == 0 ifTrue:[

        whereRadioGroup := #everywhere asValue.

        self addDummyCheckBoxForEverywhere.

    ] ifFalse:[

        whereDefault notNil ifTrue:[

            (searchAreas includes:whereDefault) ifTrue:[

                where := whereDefault asSymbol.

            ] ifFalse:[

                where := searchAreas first.

            ].

        ] ifFalse:[

            where := #everywhere.

        ].

        whereRadioGroup value:where.

    ].

    "/ panel has its own idea of indenting

    self addVerticalSpace.

    self addHorizontalLine.

    self addButtons.

    self label:(resources string:'Search').

! !

!SearchDialog methodsFor:'setup'!

addCheckBox:b forSearchArea:area 

    verticalPanel add:b.

    whereRadioGroup add:b value:area.

    searchAreas add:area.

    self makeTabable:b.

!

addCheckBoxForClassesNamespace:ns 

    |b|

    b := CheckBox 

		label:(resources string:'Classes nameSpace (''%1'')' with:ns name).

    self addCheckBox:b forSearchArea:#currentClassesNameSpace.

    ^ b.

!

addCheckBoxForCurrentNamespace

    |b|

    b := CheckBox label:(resources string:'Current nameSpace (''%1'')'

			with:currentNamespace name).

    self addCheckBox:b forSearchArea:#currentNameSpace.

    ^ b.

!

addCheckBoxForEverywhere

    |b|

    b := CheckBox label:(resources string:'Everywhere').

    self addCheckBox:b forSearchArea:#everywhere.

    ^ b.

!

addCheckBoxForMethodList

    |b|

    b := CheckBox label:(resources string:'Methodlist').

    self addCheckBox:b forSearchArea:#listOfMethods.

    ^ b.

!

addCheckBoxForOwnerAndItsPrivateClasses

    |b lbl|

    (currentClass notNil and:[ currentClass isPrivate. ]) ifTrue:[ 

	lbl := resources string:'Owner (%1) & all its private classes'

		    with:currentClass owningClass name.

    ] ifFalse:[ 

	lbl := resources string:'Owners & all their private classes'.

    ].

    b := CheckBox label:lbl.

    self addCheckBox:b forSearchArea:#ownersWithPrivateClasses.

    (selectedClasses contains:[ :cls | cls isPrivate. ]) ifFalse:[ 

	b disable.

    ].

    ^ b.

!

addCheckBoxForOwnerAndItsSubclassesAndItsPrivateClasses

    |b lbl|

    (currentClass notNil and:[ currentClass isPrivate. ]) ifTrue:[ 

	lbl := resources 

		    string:'Owner (%1) & its subclasses & all its private classes'

		    with:currentClass owningClass name.

    ] ifFalse:[ 

	lbl := resources 

		    string:'Owners & their subclasses & all their private classes'.

    ].

    b := CheckBox label:lbl.

    self addCheckBox:b forSearchArea:#ownersHierarchiesWithPrivateClasses.

    (selectedClasses contains:[ :cls | cls isPrivate. ]) ifFalse:[ 

	b disable.