#UI_ENHANCEMENT by exept
class: Explainer class
comment/format in: #documentation
--- a/Explainer.st Thu Aug 06 08:37:18 2020 +0200
+++ b/Explainer.st Thu Aug 06 08:37:56 2020 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1993 by Claus Gittinger
All Rights Reserved
@@ -49,7 +51,7 @@
This one is involved, when the 'explain' menu function is used in a
codeView (popup or via CMD-E), or if the mouse button is clicked
- on some code construct in the new browser (then a short explanaition
+ on some code construct in the new browser (then a short explanation
is shown in the lower info area).
Most of the texts returned here are heuristically motivated,
@@ -307,7 +309,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 := '%1 %2' bindWith:clsName with:(implMethod methodDefinitionTemplateForSelector:selector).
info := self asLink:info to:(action1 := self actionToBrowseClass:implClass selector:selector info:nil).
@@ -2881,7 +2883,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)).
].