equal
deleted
inserted
replaced
910 "Modified: / 27-07-2006 / 10:09:02 / cg" |
910 "Modified: / 27-07-2006 / 10:09:02 / cg" |
911 ! ! |
911 ! ! |
912 |
912 |
913 !Explainer class methodsFor:'utilities'! |
913 !Explainer class methodsFor:'utilities'! |
914 |
914 |
915 methodImplementorsInfoFor:aMethod |
915 methodImplementorsInfoFor:aMethod inEnvironment:environment |
916 "get something about the implementors of aMethod |
916 "get something about the implementors of aMethod |
917 to be shown in the info line at the bottom" |
917 to be shown in the info line at the bottom" |
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:(aMethod mclass environment allClasses) |
923 in:(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:(aMethod mclass environment allClasses) |
942 in:(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.'. |