--- a/Tools_ClassChecker.st Fri Mar 10 10:54:18 2006 +0100
+++ b/Tools_ClassChecker.st Fri Mar 10 10:54:47 2006 +0100
@@ -486,10 +486,8 @@
!
anySendsOf:aSelector
- Smalltalk allClassesDo:[:eachClass |
- eachClass instAndClassSelectorsAndMethodsDo:[:mSelector :mthd |
- (mthd sends:aSelector) ifTrue:[^ true].
- ].
+ Smalltalk allMethodsDo:[:mthd |
+ (mthd sends:aSelector) ifTrue:[^ true].
].
^ false
!
@@ -645,16 +643,16 @@
|remaining|
remaining := selectorsOfInterest copy.
- Smalltalk allClassesDo:[:eachClass |
- eachClass instAndClassSelectorsAndMethodsDo:[:mSelector :mthd | |lits|
- lits := mthd literals.
- lits notNil ifTrue:[
- (lits includesAny:remaining) ifTrue:[
- remaining removeAllFoundIn:(mthd messagesSent).
- remaining isEmpty ifTrue:[^ remaining].
- ]
- ]
- ].
+ Smalltalk allMethodsDo:[:mthd |
+ |lits|
+
+ lits := mthd literals.
+ lits notNil ifTrue:[
+ (lits includesAny:remaining) ifTrue:[
+ remaining removeAllFoundIn:(mthd messagesSent).
+ remaining isEmpty ifTrue:[^ remaining].
+ ]
+ ]
].
^ remaining
@@ -793,5 +791,5 @@
!ClassChecker class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassChecker.st,v 1.7 2006-03-06 08:53:33 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassChecker.st,v 1.8 2006-03-10 09:54:47 cg Exp $'
! !