equal
deleted
inserted
replaced
1421 |
1421 |
1422 shortName |
1422 shortName |
1423 ^ self nameWithoutPrefix |
1423 ^ self nameWithoutPrefix |
1424 ! ! |
1424 ! ! |
1425 |
1425 |
1426 |
|
1427 !Behavior methodsFor:'RefactoringBrowser'! |
1426 !Behavior methodsFor:'RefactoringBrowser'! |
1428 |
1427 |
1429 realClass |
1428 realClass |
1430 "for compatibility with RBAbstractClass" |
1429 "for compatibility with RBAbstractClass" |
1431 |
1430 |
5257 "return a collection of selectors of methods which refer to the argument. |
5256 "return a collection of selectors of methods which refer to the argument. |
5258 Search the literal arrays of my methods to do this." |
5257 Search the literal arrays of my methods to do this." |
5259 |
5258 |
5260 |setOfSelectors| |
5259 |setOfSelectors| |
5261 |
5260 |
5262 setOfSelectors := IdentitySet new. |
|
5263 self methodDictionary keysAndValuesDo:[:sel :mthd | |
5261 self methodDictionary keysAndValuesDo:[:sel :mthd | |
5264 (mthd referencesLiteral:someLiteralConstant) ifTrue:[ |
5262 (mthd referencesLiteral:someLiteralConstant) ifTrue:[ |
5265 setOfSelectors add:sel |
5263 setOfSelectors isNil ifTrue:[ |
5266 ]. |
5264 setOfSelectors := IdentitySet new. |
5267 ]. |
5265 ]. |
5268 |
5266 setOfSelectors add:sel |
5269 ^ setOfSelectors |
5267 ]. |
|
5268 ]. |
|
5269 ^ setOfSelectors ? #() |
5270 |
5270 |
5271 " |
5271 " |
5272 String whichSelectorsReferTo:#at: |
5272 String whichSelectorsReferTo:#at: |
5273 String whichSelectorsReferTo:CharacterArray |
5273 String whichSelectorsReferTo:CharacterArray |
5274 " |
5274 " |