Hi,
I have this method in AutotestFinder, I don't like it, someone has better
code ?
AutotestFinder>>allSendersOf: aCompiledMethod
"Returns all senders as a collection of CompiledMethod"
| methodReferences senders |
methodReferences := (SystemNavigation default allSendersOf: aCompiledMethod
selector).
senders := methodReferences collect:
[:aMethodReference |
aMethodReference actualClass
lookupSelector: aMethodReference selector].
^ senders select: [:sender| sender isNil not]. "Why senders contains nil
sometimes ?"
What it does:
AutotestFinder new allSendersOf: (ProfStef lookupSelector: #go)
answers:
an OrderedCollection((ProfStef>>#go "a CompiledMethod(10485760)")
(ProtoObject>>#initialize "a CompiledMethod(326631424)") (ProfStef
class>>#go "a CompiledMethod(49807360)") (ProfStef class>>#initialize "a
CompiledMethod(1060634624)") (ProfStefBrowser class>>#menuCommandOn: "a
CompiledMethod(340262912)")
(ProfStefTestGo>>#testGoOpenSmalltalkSyntaxTutorial "a
CompiledMethod(249823232)"))
Cheers,
Laurent Laffont
http://pharocasts.blogspot.com/
http://magaloma.blogspot.com/
_______________________________________________
Pharo-project mailing list
[email protected]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
