equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 2000 by eXept Software AG |
4 COPYRIGHT (c) 2000 by eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
1346 method:mthd includesRefsToInstanceVariable:variablesToHighLight |
1348 method:mthd includesRefsToInstanceVariable:variablesToHighLight |
1347 ^ self method:mthd includesRefsToVariable:variablesToHighLight askParserWith:#usedInstVars |
1349 ^ self method:mthd includesRefsToVariable:variablesToHighLight askParserWith:#usedInstVars |
1348 ! |
1350 ! |
1349 |
1351 |
1350 method:mthd includesRefsToVariable:variablesToHighLight askParserWith:querySelector |
1352 method:mthd includesRefsToVariable:variablesToHighLight askParserWith:querySelector |
1351 |cls src parser usedVars anyVarNameAccessable| |
1353 |cls src parser usedVars anyVarNameAccessible| |
1352 |
1354 |
1353 cls := mthd mclass. |
1355 cls := mthd mclass. |
1354 cls isNil ifTrue:[^ false]. |
1356 cls isNil ifTrue:[^ false]. |
1355 |
1357 |
1356 anyVarNameAccessable := cls allInstVarNames includesAny:variablesToHighLight. |
1358 anyVarNameAccessible := cls allInstVarNames includesAny:variablesToHighLight. |
1357 anyVarNameAccessable ifFalse:[ |
1359 anyVarNameAccessible ifFalse:[ |
1358 anyVarNameAccessable := cls theNonMetaclass allClassVarNames includesAny:variablesToHighLight. |
1360 anyVarNameAccessible := cls theNonMetaclass allClassVarNames includesAny:variablesToHighLight. |
1359 ]. |
1361 ]. |
1360 anyVarNameAccessable ifFalse:[ |
1362 anyVarNameAccessible ifFalse:[ |
1361 "/ no need to parse |
1363 "/ no need to parse |
1362 ^ false |
1364 ^ false |
1363 ]. |
1365 ]. |
1364 |
1366 |
1365 "/ JV Following code is just very bad. It assumes that method is a Smalltalk method. |
1367 "/ JV Following code is just very bad. It assumes that method is a Smalltalk method. |