--- a/Explainer.st	Wed May 24 10:52:22 2006 +0200
+++ b/Explainer.st	Wed Jun 07 17:38:49 2006 +0200
@@ -74,7 +74,7 @@
     recClassSet := self guessPossibleImplementorClassesFor:(node receiver) in:code forClass:cls.
     recClassSet size == 1 ifTrue:[
         srchClass := recClassSet first.
-        implementingClasses := recClassSet collect:[:cls | cls whichClassImplements:selector]. 
+        implementingClasses := recClassSet collect:[:cls | cls whichClassIncludesSelector:selector]. 
         (implementingClasses includes:nil) ifTrue:[
             ^ 'possibly not understood: ' , selector allBold
         ].
@@ -100,7 +100,7 @@
                     classesOfInstVars := classesOfInstVars asSet.
                     canBeNil := classesOfInstVars includes:UndefinedObject.
                     classesOfInstVars remove:UndefinedObject ifAbsent:[].
-                    implementingClasses := classesOfInstVars collect:[:cls | cls whichClassImplements:selector]. 
+                    implementingClasses := classesOfInstVars collect:[:cls | cls whichClassIncludesSelector:selector]. 
                 ] ifFalse:[
                     nm isUppercaseFirst ifTrue:[
                         nm knownAsSymbol ifTrue:[
@@ -119,7 +119,7 @@
         ].
 
         srchClass notNil ifTrue:[
-            implClass := srchClass whichClassImplements:selector.
+            implClass := srchClass whichClassIncludesSelector:selector.
             implClass isNil ifTrue:[
                 ^ '%1 is NOT understood here.' bindWith:boldSelectorString
             ].
@@ -175,7 +175,7 @@
     boldSelectorString := selectorString allBold.
 
     (srchClass := cls superclass) notNil ifTrue:[
-        implClass := srchClass whichClassImplements:selector.
+        implClass := srchClass whichClassIncludesSelector:selector.
         implClass notNil ifTrue:[
             ^ '%1 hides implementation in %2.' 
               bindWith:boldSelectorString
@@ -372,7 +372,7 @@
         recClassSet isNil ifTrue:[ ^ nil ].
         recClassSet isEmpty ifTrue:[ ^ nil ].
 
-        implSet := recClassSet collect:[:recClass | recClass whichClassImplements:node selector].
+        implSet := recClassSet collect:[:recClass | recClass whichClassIncludesSelector:node selector].
         "/ toDo: for each implementor, parse its method for possible return types.
         ^ rsltClassSet.
     ].
@@ -767,9 +767,9 @@
         shortText ifFalse:[
             s2 := '\\' , s2 
                   , '\- inherited from ' withCRs
-                  , (aClass whichClassImplements:sym) name allBold.
+                  , (aClass whichClassIncludesSelector:sym) name allBold.
         ].
-        firstImplementingClass := (aClass whichClassImplements:sym)
+        firstImplementingClass := (aClass whichClassIncludesSelector:sym)
     ] ifFalse:[
         s2 := ''.
     ].
@@ -1161,5 +1161,5 @@
 !Explainer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.70 2006-04-04 14:49:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.71 2006-06-07 15:38:49 stefan Exp $'
 ! !