--- a/ProjectDefinition.st Wed May 30 12:39:23 2007 +0200
+++ b/ProjectDefinition.st Wed May 30 12:46:17 2007 +0200
@@ -2944,17 +2944,22 @@
addReferencesToClassesFromGlobalsInMethods:someMethods to:usedClassReasons
someMethods do:[: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 ', method mclass name,'>>',method selector)
+ do:[:global |
+ |globalsName usedClass|
+
+ globalsName := global asSymbol.
+ usedClass := Smalltalk at:globalsName.
+ (usedClass notNil and:[usedClass isClass and:[usedClass isNameSpace not]]) ifTrue:[
+ usedClass name == globalsName ifTrue:[ "/ skip aliases
+ (usedClassReasons at:usedClass ifAbsentPut:[Set new])
+ add:(usedClass name, ' - referenced by ', method mclass name,'>>',method selector)
]
+ ]
]
]
"Created: / 10-10-2006 / 23:00:07 / cg"
+ "Modified: / 30-05-2007 / 12:48:30 / cg"
!
classNamesAndAttributesDo: aBlock
@@ -3787,7 +3792,7 @@
!ProjectDefinition class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.159 2007-05-29 16:06:03 fm Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.160 2007-05-30 10:46:17 cg Exp $'
! !
ProjectDefinition initialize!