Explainer.st
branchjv
changeset 3921 3702d9a95199
parent 3907 59acefa609f2
parent 3918 401939e91ddb
child 3929 56f379a96d0e
--- a/Explainer.st	Fri Jun 17 16:41:03 2016 +0100
+++ b/Explainer.st	Mon Jul 04 21:16:37 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
               All Rights Reserved
@@ -269,7 +267,7 @@
         implMethod := implClass compiledMethodAt:selector.
         clsName := implClass name.
         clsName := self asLink:clsName to:(self actionToBrowseClass:implClass selector:selector).
-        info := '%1 » %2' bindWith:clsName "allBold" with:selectorString.
+        info := '%1  %2' bindWith:clsName "allBold" with:selectorString.
         info := self asLink:info to:(action1 := self actionToBrowseClass:implClass selector:selector info:nil).
         
         redefiningClasses size > 0 ifTrue:[
@@ -577,7 +575,11 @@
         SourceCodeManagerError handle:[:ex |
         ] do:[
             methodSource := mthd source.
-            methodDecl := mthd methodDefinitionTemplate.
+            mthd selector isNil ifTrue:[
+                methodDecl := '??? (method removed from class)'.
+            ] ifFalse:[        
+                methodDecl := mthd methodDefinitionTemplate.
+            ].        
             methodComment := mthd comment.
         ].
     ].
@@ -2648,7 +2650,7 @@
                         to:(self actionToOpenMethodFinderFor:sel)) 
             with:(self 
                     asLink:inheritedClass name "allBold" 
-                    info:('Browse %1 » %2' bindWith:inheritedClass name with:sel)
+                    info:('Browse %1  %2' bindWith:inheritedClass name with:sel)
                     to:(self actionToBrowseClass:inheritedClass selector:sel)).
     ].