equal
deleted
inserted
replaced
5155 ! |
5155 ! |
5156 |
5156 |
5157 searchBlockForString:aString ignoreCase:ignoreCase match:doMatch |
5157 searchBlockForString:aString ignoreCase:ignoreCase match:doMatch |
5158 "return a block to search for a string." |
5158 "return a block to search for a string." |
5159 |
5159 |
5160 |searchBlock s| |
5160 |searchBlock s lcString| |
5161 |
5161 |
5162 (doMatch and:[ aString includesMatchCharacters ]) ifTrue:[ |
5162 (doMatch and:[ aString includesMatchCharacters ]) ifTrue:[ |
5163 s := '*' , aString , '*'. |
5163 s := '*' , aString , '*'. |
5164 "a matchString" |
5164 "a matchString" |
5165 searchBlock := [:c :m :sel | |
5165 searchBlock := [:c :m :sel | |
5171 ] ifFalse:[ |
5171 ] ifFalse:[ |
5172 s match:src caseSensitive:ignoreCase not |
5172 s match:src caseSensitive:ignoreCase not |
5173 ] |
5173 ] |
5174 ] |
5174 ] |
5175 ] ifFalse:[ |
5175 ] ifFalse:[ |
5176 searchBlock := |
5176 ignoreCase ifTrue:[ |
5177 [:c :m :sel | |
5177 lcString := aString asLowercase. |
5178 |src| |
5178 searchBlock := |
5179 |
5179 [:c :m :sel | |
5180 src := m source. |
5180 |src| |
5181 src isNil ifTrue:[ |
5181 |
5182 ('Browser [info]: no source for ' , m printString) infoPrintCR. |
5182 src := m source. |
5183 false |
5183 src isNil ifTrue:[ |
5184 ] ifFalse:[ |
5184 ('Browser [info]: no source for ' , m printString) infoPrintCR. |
5185 (src findString:aString caseSensitive:ignoreCase not) ~~ 0 |
5185 false |
5186 ] |
5186 ] ifFalse:[ |
5187 ] |
5187 (src asLowercase findString:lcString caseSensitive:true) ~~ 0 |
|
5188 ] |
|
5189 ] |
|
5190 ] ifFalse:[ |
|
5191 searchBlock := |
|
5192 [:c :m :sel | |
|
5193 |src| |
|
5194 |
|
5195 src := m source. |
|
5196 src isNil ifTrue:[ |
|
5197 ('Browser [info]: no source for ' , m printString) infoPrintCR. |
|
5198 false |
|
5199 ] ifFalse:[ |
|
5200 (src findString:aString caseSensitive:ignoreCase not) ~~ 0 |
|
5201 ] |
|
5202 ] |
|
5203 ]. |
5188 ]. |
5204 ]. |
5189 ^ searchBlock. |
5205 ^ searchBlock. |
5190 |
5206 |
5191 " |
5207 " |
5192 SystemBrowser findString:'should' in:(Array with:Object) ignoreCase:false |
5208 SystemBrowser findString:'should' in:(Array with:Object) ignoreCase:false |
6586 ! ! |
6602 ! ! |
6587 |
6603 |
6588 !SystemBrowser class methodsFor:'documentation'! |
6604 !SystemBrowser class methodsFor:'documentation'! |
6589 |
6605 |
6590 version |
6606 version |
6591 ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.341 2014-03-05 10:38:17 vrany Exp $' |
6607 ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.342 2014-05-12 17:58:40 cg Exp $' |
6592 ! |
6608 ! |
6593 |
6609 |
6594 version_CVS |
6610 version_CVS |
6595 ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.341 2014-03-05 10:38:17 vrany Exp $' |
6611 ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.342 2014-05-12 17:58:40 cg Exp $' |
6596 ! |
6612 ! |
6597 |
6613 |
6598 version_SVN |
6614 version_SVN |
6599 ^ '$Id: SystemBrowser.st,v 1.341 2014-03-05 10:38:17 vrany Exp $' |
6615 ^ '$Id: SystemBrowser.st,v 1.342 2014-05-12 17:58:40 cg Exp $' |
6600 ! ! |
6616 ! ! |
6601 |
6617 |
6602 |
6618 |
6603 SystemBrowser initialize! |
6619 SystemBrowser initialize! |