equal
deleted
inserted
replaced
3344 sends:aSelectorSymbol |
3344 sends:aSelectorSymbol |
3345 "return true, if this method contains a message-send |
3345 "return true, if this method contains a message-send |
3346 with aSelectorSymbol as selector." |
3346 with aSelectorSymbol as selector." |
3347 |
3347 |
3348 (self referencesLiteral:aSelectorSymbol) ifTrue:[ |
3348 (self referencesLiteral:aSelectorSymbol) ifTrue:[ |
|
3349 ^ true. |
3349 ^ self messagesSent includesIdentical:aSelectorSymbol |
3350 ^ self messagesSent includesIdentical:aSelectorSymbol |
3350 ]. |
3351 ]. |
3351 ^ false |
3352 ^ false |
3352 ! |
3353 ! |
3353 |
3354 |
3357 This is a hack, because calling sends: twice parses twice (should cache parse trees)" |
3358 This is a hack, because calling sends: twice parses twice (should cache parse trees)" |
3358 |
3359 |
3359 |msgs| |
3360 |msgs| |
3360 |
3361 |
3361 ((self referencesLiteral:selectorSymbol1) or:[self referencesLiteral:selectorSymbol2]) ifTrue:[ |
3362 ((self referencesLiteral:selectorSymbol1) or:[self referencesLiteral:selectorSymbol2]) ifTrue:[ |
|
3363 ^ true. |
3362 msgs := self messagesSent. |
3364 msgs := self messagesSent. |
3363 ^ (msgs includesIdentical:selectorSymbol1) or:[msgs includesIdentical:selectorSymbol2] |
3365 ^ (msgs includesIdentical:selectorSymbol1) or:[msgs includesIdentical:selectorSymbol2] |
3364 ]. |
3366 ]. |
3365 ^ false |
3367 ^ false |
3366 |
3368 |
3372 to any of aCollectionOfSelectorSymbols." |
3374 to any of aCollectionOfSelectorSymbols." |
3373 |
3375 |
3374 |msgs| |
3376 |msgs| |
3375 |
3377 |
3376 (aCollectionOfSelectorSymbols contains:[:sym | self referencesLiteral:sym]) ifTrue:[ |
3378 (aCollectionOfSelectorSymbols contains:[:sym | self referencesLiteral:sym]) ifTrue:[ |
|
3379 ^ true. |
3377 msgs := self messagesSent. |
3380 msgs := self messagesSent. |
3378 ^ aCollectionOfSelectorSymbols contains:[:sym | msgs includesIdentical:sym] |
3381 ^ aCollectionOfSelectorSymbols contains:[:sym | msgs includesIdentical:sym] |
3379 ]. |
3382 ]. |
3380 ^ false |
3383 ^ false |
3381 |
3384 |
3849 ! ! |
3852 ! ! |
3850 |
3853 |
3851 !Method class methodsFor:'documentation'! |
3854 !Method class methodsFor:'documentation'! |
3852 |
3855 |
3853 version |
3856 version |
3854 ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.424 2013-08-30 22:24:50 cg Exp $' |
3857 ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.425 2013-09-24 21:36:13 cg Exp $' |
3855 ! |
3858 ! |
3856 |
3859 |
3857 version_CVS |
3860 version_CVS |
3858 ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.424 2013-08-30 22:24:50 cg Exp $' |
3861 ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.425 2013-09-24 21:36:13 cg Exp $' |
3859 ! |
3862 ! |
3860 |
3863 |
3861 version_HG |
3864 version_HG |
3862 |
3865 |
3863 ^ '$Changeset: <not expanded> $' |
3866 ^ '$Changeset: <not expanded> $' |