comment/format in: #setupToAskForMethodSearchTitle:forBrowser:searchWhat:searchArea:withCaseIgnore:withMatch:withMethodList:allowFind:allowBuffer:allowBrowser:withTextEntry:
changed:
#addInputFieldForSelectorOrNameOrString
#addTextEntryWithCaseIgnore:withMatch:
resource search added
--- a/Tools_SearchDialog.st Wed Jul 06 12:18:52 2011 +0200
+++ b/Tools_SearchDialog.st Wed Jul 06 12:19:47 2011 +0200
@@ -24,7 +24,8 @@
matchProcess inputField'
classVariableNames:'LastCodeSearched LastCodeSearchWasMethod LastGlobalSearched
LastStringSearched LastSearchWasMatch LastSearchWasCaseSensitive
- LastStringSearchArea LastCodeSearchArea AREA_LISTOFMETHODS'
+ LastStringSearchArea LastCodeSearchArea AREA_LISTOFMETHODS
+ LastResourceSearched'
poolDictionaries:''
category:'Interface-Browsers-New'
!
@@ -165,24 +166,27 @@
searchWhat == #code ifTrue:[
self addTextEntryFieldForCode.
- ] ifFalse:[
- self addInputFieldForSelectorOrNameOrString.
- withCaseIgnore ifTrue:[
- self
- addCheckBox:(resources string:'Case Sensitive')
- on:(caseHolder := (LastSearchWasCaseSensitive ? false) asValue).
- ].
- withMatch ifTrue:[
- self
- addCheckBox:(resources string:'Match')
- on:(matchHolder := (LastSearchWasMatch ? true) asValue).
+ ^ self.
+ ].
+
+ self addInputFieldForSelectorOrNameOrString.
+ withCaseIgnore ifTrue:[
+ self
+ addCheckBox:(resources string:'Case Sensitive')
+ on:(caseHolder := (LastSearchWasCaseSensitive ? false) asValue).
+ ].
+ withMatch ifTrue:[
+ self
+ addCheckBox:(resources string:'Match')
+ on:(matchHolder := (LastSearchWasMatch ? true) asValue).
"/ (isSelector and:[ sel notNil. ]) ifTrue:[
"/ sel includesMatchCharacters ifTrue:[
"/ matchHolder value:false.
"/ ].
"/ ].
- ]
]
+
+ "Modified (format): / 06-07-2011 / 11:56:31 / cg"
!
askThenDo:aBlock
@@ -293,9 +297,9 @@
!
setupToAskForMethodSearchTitle:title forBrowser:brwsrArg searchWhat:searchWhatArg
-searchArea:whereDefault withCaseIgnore:withCaseIgnore withMatch:withMatch
-withMethodList:withMethodList allowFind:allowFindArg allowBuffer:allowBufferArg
-allowBrowser:allowBrowserArg withTextEntry:withTextEntryArg
+ searchArea:whereDefault withCaseIgnore:withCaseIgnore withMatch:withMatch
+ withMethodList:withMethodList allowFind:allowFindArg allowBuffer:allowBufferArg
+ allowBrowser:allowBrowserArg withTextEntry:withTextEntryArg
|where ns methodNameSpaces methodPackages hPanel leftVerticalPanel rightVerticalPanel l|
@@ -509,6 +513,7 @@
self label:(resources string:'Search').
"Modified: / 10-10-2006 / 15:30:52 / cg"
+ "Modified (format): / 06-07-2011 / 11:53:23 / cg"
! !
!SearchDialog methodsFor:'setup'!
@@ -857,10 +862,15 @@
searchWhat == #string ifTrue:[
sel := browser stringToSearchFor ? LastStringSearched.
] ifFalse:[
- sel := browser selectorToSearchFor.
+ searchWhat == #resource ifTrue:[
+ sel := browser stringToSearchFor ? LastResourceSearched.
+ ] ifFalse:[
+ sel := browser selectorToSearchFor.
+ ]
]
].
].
+
lastSearchPatterns := browser lastSearchPatterns.
sel isEmptyOrNil ifTrue:[
"/ use last searchString
@@ -884,10 +894,14 @@
withWaitCursorDo:[
|best matching|
- searchWhat == #globalName ifFalse:[
- what := Smalltalk selectorCompletion:s.
- ] ifTrue:[
- what := Smalltalk globalNameCompletion:s.
+ searchWhat == #resource ifTrue:[
+ what := DoWhatIMeanSupport resourceCompletion:s inEnvironment:Smalltalk match:true ignoreCase:false.
+ ] ifFalse:[
+ searchWhat == #globalName ifFalse:[
+ what := DoWhatIMeanSupport selectorCompletion:s inEnvironment:Smalltalk.
+ ] ifTrue:[
+ what := DoWhatIMeanSupport globalNameCompletion:s inEnvironment:Smalltalk match:true.
+ ].
].
best := what first.
matching := what second.
@@ -901,7 +915,7 @@
selectorHolder onChangeEvaluate:[ self updateListOfMatchingSelectorsFor:inputField contents ].
- "Modified: / 23-11-2010 / 14:32:50 / cg"
+ "Modified: / 06-07-2011 / 12:07:12 / cg"
!
addTextEntryFieldForCode
@@ -1241,12 +1255,8 @@
!SearchDialog class methodsFor:'documentation'!
-version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.60 2010-11-23 13:33:51 cg Exp $'
-!
-
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.60 2010-11-23 13:33:51 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.61 2011-07-06 10:19:47 cg Exp $'
! !
SearchDialog initialize!