--- a/ProjectDefinition.st	Thu Sep 21 16:44:40 2006 +0200
+++ b/ProjectDefinition.st	Thu Sep 21 17:36:22 2006 +0200
@@ -2317,6 +2317,23 @@
 
 !ProjectDefinition class methodsFor:'private'!
 
+addReferencesToClassesFromGlobalsIn:aSetOfClasses to:usedClassReasons
+    aSetOfClasses
+        do:[:aClass |
+            aClass methodsDo:[:method | 
+                method usedGlobals 
+                    do:[:global | |usedClass|        
+                        usedClass := Smalltalk at: global asSymbol. 
+                        (usedClass notNil and:[usedClass isClass and:[usedClass isNameSpace not]]) 
+                            ifTrue:[
+                                (usedClassReasons at: usedClass ifAbsentPut:[Set new])
+                                    add: (usedClass name, ' - Referenced by ', aClass name,'>>',method name)
+                            ]
+                    ]
+            ]
+        ].
+!
+
 classNamesAndAttributesDo: aBlock
     self namesAndAttributesIn:(self classNamesAndAttributes) do: aBlock
 
@@ -3144,7 +3161,7 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.77 2006-09-20 16:47:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.78 2006-09-21 15:36:22 stefan Exp $'
 ! !
 
 ProjectDefinition initialize!