--- 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)).
].