#UI_ENHANCEMENT by exept
authorClaus Gittinger <cg@exept.de>
Thu, 06 Aug 2020 08:37:56 +0200
changeset 4709 1d9dcc6348ee
parent 4708 527bda38efd8
child 4710 acb9573fa8e7
#UI_ENHANCEMENT by exept class: Explainer class comment/format in: #documentation
Explainer.st
--- 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)).
     ].