equal
deleted
inserted
replaced
5972 (src notNil and:[src includes:$']) ifTrue:[ "/ eliminates many |
5972 (src notNil and:[src includes:$']) ifTrue:[ "/ eliminates many |
5973 (checkSource value:src) ifTrue:[ |
5973 (checkSource value:src) ifTrue:[ |
5974 tree := cls parseTreeFor:sel. |
5974 tree := cls parseTreeFor:sel. |
5975 "/ walk |
5975 "/ walk |
5976 found := |
5976 found := |
5977 tree usedLiterals contains:[:lit | |
5977 tree notNil |
5978 lit isString |
5978 and:[tree usedLiterals contains:[:lit | |
5979 and:[ lit isSymbol not |
5979 lit isString |
5980 and:[ checkLiteral value:lit ]]] |
5980 and:[ lit isSymbol not |
|
5981 and:[ checkLiteral value:lit ]]]] |
5981 ]. |
5982 ]. |
5982 ]. |
5983 ]. |
5983 ]. |
5984 ]. |
5984 found |
5985 found |
5985 ] |
5986 ] |
5988 SystemBrowser findStringLiteral:'error' in:(Array with:Object) ignoreCase:true match:true |
5989 SystemBrowser findStringLiteral:'error' in:(Array with:Object) ignoreCase:true match:true |
5989 SystemBrowser findStringLiteral:'error' in:(Array with:Object) ignoreCase:true match:false |
5990 SystemBrowser findStringLiteral:'error' in:(Array with:Object) ignoreCase:true match:false |
5990 SystemBrowser findStringLiteral:'error' in:(Array with:Object) ignoreCase:false match:true |
5991 SystemBrowser findStringLiteral:'error' in:(Array with:Object) ignoreCase:false match:true |
5991 SystemBrowser findStringLiteral:'error' in:(Array with:Object) ignoreCase:false match:false |
5992 SystemBrowser findStringLiteral:'error' in:(Array with:Object) ignoreCase:false match:false |
5992 " |
5993 " |
|
5994 |
|
5995 "Modified: / 20-04-2017 / 11:28:05 / stefan" |
5993 ! |
5996 ! |
5994 |
5997 |
5995 searchBlockForSymbol:aSymbol |
5998 searchBlockForSymbol:aSymbol |
5996 "return a matchblock to search for all methods referencing aSymbol. |
5999 "return a matchblock to search for all methods referencing aSymbol. |
5997 false if no such symbol exists" |
6000 false if no such symbol exists" |