--- a/Explainer.st	Sun May 08 00:12:51 2016 +0200
+++ b/Explainer.st	Sun May 08 02:25:56 2016 +0200
@@ -1835,7 +1835,7 @@
         
         rcvrTypes := self addTypeOfExpressionNode:msgReceiver forAssignmentTo:nil to:Set new.
         rcvrTypes notEmpty ifTrue:[
-self halt.
+self breakPoint:#cg.
             self rememberType:Character in:setOfTypes.
         ].
         ^ setOfTypes.
@@ -1872,17 +1872,17 @@
             "/ assume it is returning it.
             implMethod isNil ifTrue:[
                 "/ will not be understood
-self halt.
+self breakPoint:#cg.
                 ^ setOfTypes.
             ].    
             (implMethod messagesSentToSelf includesAny:instCreatorMessages) ifTrue:[
-self halt.
+self breakPoint:#cg.
                 self rememberType:globalValue in:setOfTypes.
                 ^ setOfTypes.
             ].    
             "/ very fuzzy - if the implementing method is in the "instance creation" category...
             ((implMethod category ? '') startsWith:'instance creation') ifTrue:[
-self halt.
+self breakPoint:#cg.
                 self rememberType:globalValue in:setOfTypes.
                 ^ setOfTypes.
             ].    
@@ -2208,32 +2208,6 @@
     "
 !
 
-methodInheritanceInfoFor:aMethod
-    |methodsSuperclass inheritedClass msg methodsClass sel mthd|
-
-    methodsClass := aMethod mclass.
-    methodsClass isNil ifTrue:[^ nil].
-
-    methodsSuperclass := methodsClass superclass.
-    methodsSuperclass isNil ifTrue:[^ nil].
-
-    sel := aMethod selector.
-    inheritedClass := methodsSuperclass whichClassIncludesSelector:sel.
-    inheritedClass notNil ifTrue:[
-        mthd := inheritedClass compiledMethodAt:sel.
-        msg := (sel contractTo:30) allBold.
-        (mthd sends:#'subclassResponsibility') ifTrue:[
-            msg := msg , ' overrides subclassResponsibility in '.
-        ] ifFalse:[
-            msg := msg , ' overrides implementation in '.
-        ].
-        msg := msg , (inheritedClass name "allBold" actionForAll:(self actionToBrowseClass:inheritedClass selector:sel)).
-        "/ msg := msg , '.'.
-    ].
-
-    ^ msg
-!
-
 methodSendersInfoFor:selector inEnvironment:environment
     "get something about the senders of a message.
      to be shown in the info line at the bottom.