equal
deleted
inserted
replaced
918 |
918 |
919 |implementors msg senders msg2| |
919 |implementors msg senders msg2| |
920 |
920 |
921 implementors := SystemBrowser |
921 implementors := SystemBrowser |
922 findImplementorsOf:aMethod selector |
922 findImplementorsOf:aMethod selector |
923 in:(environment allClasses) |
923 in:(aMethod mclass environment allClasses) |
924 ignoreCase:false. |
924 ignoreCase:false. |
925 |
925 |
926 implementors notEmpty ifTrue:[ |
926 implementors notEmpty ifTrue:[ |
927 msg := 'Only implemented here.'. |
927 msg := 'Only implemented here.'. |
928 implementors remove:aMethod ifAbsent:nil. |
928 implementors remove:aMethod ifAbsent:nil. |
937 ]. |
937 ]. |
938 |
938 |
939 false ifTrue:[ "/ too slow |
939 false ifTrue:[ "/ too slow |
940 senders := SystemBrowser |
940 senders := SystemBrowser |
941 findSendersOf:aMethod selector |
941 findSendersOf:aMethod selector |
942 in:(environment allClasses) |
942 in:(aMethod mclass environment allClasses) |
943 ignoreCase:false. |
943 ignoreCase:false. |
944 senders notEmpty ifTrue:[ |
944 senders notEmpty ifTrue:[ |
945 msg2 := 'Sent from ' , senders size printString, ' methods.'. |
945 msg2 := 'Sent from ' , senders size printString, ' methods.'. |
946 ] ifFalse:[ |
946 ] ifFalse:[ |
947 msg2 := 'No senders.'. |
947 msg2 := 'No senders.'. |