2942 ! |
2942 ! |
2943 |
2943 |
2944 addReferencesToClassesFromGlobalsInMethods:someMethods to:usedClassReasons |
2944 addReferencesToClassesFromGlobalsInMethods:someMethods to:usedClassReasons |
2945 someMethods do:[:method | |
2945 someMethods do:[:method | |
2946 method usedGlobals |
2946 method usedGlobals |
2947 do:[:global | |usedClass| |
2947 do:[:global | |
2948 usedClass := Smalltalk at: global asSymbol. |
2948 |globalsName usedClass| |
2949 (usedClass notNil and:[usedClass isClass and:[usedClass isNameSpace not]]) |
2949 |
2950 ifTrue:[ |
2950 globalsName := global asSymbol. |
2951 (usedClassReasons at: usedClass ifAbsentPut:[Set new]) |
2951 usedClass := Smalltalk at:globalsName. |
2952 add: (usedClass name, ' - referenced by ', method mclass name,'>>',method selector) |
2952 (usedClass notNil and:[usedClass isClass and:[usedClass isNameSpace not]]) ifTrue:[ |
|
2953 usedClass name == globalsName ifTrue:[ "/ skip aliases |
|
2954 (usedClassReasons at:usedClass ifAbsentPut:[Set new]) |
|
2955 add:(usedClass name, ' - referenced by ', method mclass name,'>>',method selector) |
2953 ] |
2956 ] |
|
2957 ] |
2954 ] |
2958 ] |
2955 ] |
2959 ] |
2956 |
2960 |
2957 "Created: / 10-10-2006 / 23:00:07 / cg" |
2961 "Created: / 10-10-2006 / 23:00:07 / cg" |
|
2962 "Modified: / 30-05-2007 / 12:48:30 / cg" |
2958 ! |
2963 ! |
2959 |
2964 |
2960 classNamesAndAttributesDo: aBlock |
2965 classNamesAndAttributesDo: aBlock |
2961 self namesAndAttributesIn:(self classNamesAndAttributes) do: aBlock |
2966 self namesAndAttributesIn:(self classNamesAndAttributes) do: aBlock |
2962 |
2967 |