equal
deleted
inserted
replaced
2674 src := m source. |
2674 src := m source. |
2675 src isNil ifTrue:[ |
2675 src isNil ifTrue:[ |
2676 ('Browser [info]: no source for ' , m printString) infoPrintCR. |
2676 ('Browser [info]: no source for ' , m printString) infoPrintCR. |
2677 false |
2677 false |
2678 ] ifFalse:[ |
2678 ] ifFalse:[ |
2679 s match:src ignoreCase:ignoreCase |
2679 s match:src caseSensitive:ignoreCase not |
2680 ] |
2680 ] |
2681 ] |
2681 ] |
2682 ] ifFalse:[ |
2682 ] ifFalse:[ |
2683 searchBlock := [:c :m :sel | |
2683 searchBlock := [:c :m :sel | |
2684 |src| |
2684 |src| |
4327 |
4327 |
4328 aStringOrEmpty isEmptyOrNil ifTrue:[ |
4328 aStringOrEmpty isEmptyOrNil ifTrue:[ |
4329 matchCheck := [:aResourceName | true ] |
4329 matchCheck := [:aResourceName | true ] |
4330 ] ifFalse:[ |
4330 ] ifFalse:[ |
4331 doMatch ifTrue:[ |
4331 doMatch ifTrue:[ |
4332 matchCheck := [:aResourceName | aStringOrEmpty match:aResourceName ignoreCase:ignoreCase] |
4332 matchCheck := [:aResourceName | aStringOrEmpty match:aResourceName caseSensitive:ignoreCase not] |
4333 ] ifFalse:[ |
4333 ] ifFalse:[ |
4334 ignoreCase ifTrue:[ |
4334 ignoreCase ifTrue:[ |
4335 lcSearchString := aStringOrEmpty asLowercase. |
4335 lcSearchString := aStringOrEmpty asLowercase. |
4336 matchCheck := [:aResourceName | aResourceName asLowercase = lcSearchString] |
4336 matchCheck := [:aResourceName | aResourceName asLowercase = lcSearchString] |
4337 ] ifFalse:[ |
4337 ] ifFalse:[ |
4621 and:[(lcString includesString:quickMatch) |
4621 and:[(lcString includesString:quickMatch) |
4622 and:[(lcString match:aLiteral)]]] |
4622 and:[(lcString match:aLiteral)]]] |
4623 ifNone:nil) notNil |
4623 ifNone:nil) notNil |
4624 ]. |
4624 ]. |
4625 inLiterals |
4625 inLiterals |
4626 and:[ method messagesSent contains:[:anySelector | aSelectorString match:anySelector ignoreCase:ignoreCase] ] |
4626 and:[ method messagesSent |
|
4627 contains:[:anySelector | aSelectorString match:anySelector caseSensitive:ignoreCase not] ] |
4627 ]. |
4628 ]. |
4628 ] ifFalse:[ |
4629 ] ifFalse:[ |
4629 searchBlock := [:class :methodArg :s | |
4630 searchBlock := [:class :methodArg :s | |
4630 |method src inLiterals| |
4631 |method src inLiterals| |
4631 |
4632 |
4649 and:[(ignoreCase and:[lcString match:aLiteral asLowercase]) |
4650 and:[(ignoreCase and:[lcString match:aLiteral asLowercase]) |
4650 or:[ignoreCase not and:[lcString match:aLiteral]]]] |
4651 or:[ignoreCase not and:[lcString match:aLiteral]]]] |
4651 ifNone:nil) notNil |
4652 ifNone:nil) notNil |
4652 ]. |
4653 ]. |
4653 inLiterals |
4654 inLiterals |
4654 and:[ method messagesSent contains:[:anySelector | aSelectorString match:anySelector ignoreCase:ignoreCase] ] |
4655 and:[ method messagesSent |
|
4656 contains:[:anySelector | aSelectorString match:anySelector caseSensitive:ignoreCase not] ] |
4655 ]. |
4657 ]. |
4656 ]. |
4658 ]. |
4657 ] ifFalse:[ |
4659 ] ifFalse:[ |
4658 (doMatch and:[aSelectorString = '*']) ifTrue:[ |
4660 (doMatch and:[aSelectorString = '*']) ifTrue:[ |
4659 searchBlock := [:class :method :s | true]. |
4661 searchBlock := [:class :method :s | true]. |
5024 src := m source. |
5026 src := m source. |
5025 src isNil ifTrue:[ |
5027 src isNil ifTrue:[ |
5026 ('Browser [info]: no source for ' , m printString) infoPrintCR. |
5028 ('Browser [info]: no source for ' , m printString) infoPrintCR. |
5027 false |
5029 false |
5028 ] ifFalse:[ |
5030 ] ifFalse:[ |
5029 s match:src ignoreCase:ignoreCase |
5031 s match:src caseSensitive:ignoreCase not |
5030 ] |
5032 ] |
5031 ] |
5033 ] |
5032 ] ifFalse:[ |
5034 ] ifFalse:[ |
5033 searchBlock := |
5035 searchBlock := |
5034 [:c :m :sel | |
5036 [:c :m :sel | |
5037 src := m source. |
5039 src := m source. |
5038 src isNil ifTrue:[ |
5040 src isNil ifTrue:[ |
5039 ('Browser [info]: no source for ' , m printString) infoPrintCR. |
5041 ('Browser [info]: no source for ' , m printString) infoPrintCR. |
5040 false |
5042 false |
5041 ] ifFalse:[ |
5043 ] ifFalse:[ |
5042 (src findString:aString ignoreCase:ignoreCase) ~~ 0 |
5044 (src findString:aString caseSensitive:ignoreCase not) ~~ 0 |
5043 ] |
5045 ] |
5044 ] |
5046 ] |
5045 ]. |
5047 ]. |
5046 ^ searchBlock. |
5048 ^ searchBlock. |
5047 |
5049 |
5062 |lits| |
5064 |lits| |
5063 lits := m literals ? #(). |
5065 lits := m literals ? #(). |
5064 lits contains:[:lit | |
5066 lits contains:[:lit | |
5065 lit isString |
5067 lit isString |
5066 and:[lit isSymbol not |
5068 and:[lit isSymbol not |
5067 and:[s match:lit ignoreCase:ignoreCase]] |
5069 and:[s match:lit caseSensitive:ignoreCase not]] |
5068 ] |
5070 ] |
5069 ] |
5071 ] |
5070 ] ifFalse:[ |
5072 ] ifFalse:[ |
5071 ignoreCase ifTrue:[ |
5073 ignoreCase ifTrue:[ |
5072 s := aString asLowercase. |
5074 s := aString asLowercase. |
6439 ! ! |
6441 ! ! |
6440 |
6442 |
6441 !SystemBrowser class methodsFor:'documentation'! |
6443 !SystemBrowser class methodsFor:'documentation'! |
6442 |
6444 |
6443 version |
6445 version |
6444 ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.333 2013-08-25 16:51:32 cg Exp $' |
6446 ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.334 2013-08-31 19:24:28 cg Exp $' |
6445 ! |
6447 ! |
6446 |
6448 |
6447 version_CVS |
6449 version_CVS |
6448 ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.333 2013-08-25 16:51:32 cg Exp $' |
6450 ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.334 2013-08-31 19:24:28 cg Exp $' |
6449 ! |
6451 ! |
6450 |
6452 |
6451 version_SVN |
6453 version_SVN |
6452 ^ '$Id: SystemBrowser.st,v 1.333 2013-08-25 16:51:32 cg Exp $' |
6454 ^ '$Id: SystemBrowser.st,v 1.334 2013-08-31 19:24:28 cg Exp $' |
6453 ! ! |
6455 ! ! |
6454 |
6456 |
6455 |
6457 |
6456 SystemBrowser initialize! |
6458 SystemBrowser initialize! |