# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1462667156 -7200
# Node ID 8e460e8c7322f310cff24b1572f3bf7434f010f2
# Parent  efac06865f8dd00dd1dc6148feaee2dda41a015c
#UI_ENHANCEMENT by cg
class: Explainer
changed: #addTypeOfMessageNode:forAssignmentTo:to:

diff -r efac06865f8d -r 8e460e8c7322 Explainer.st
--- 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.