Explainer.st
changeset 4268 79d5c1eaa723
parent 4210 a4e4e763773e
child 4269 fb59cef471ec
--- a/Explainer.st	Fri May 18 17:57:14 2018 +0200
+++ b/Explainer.st	Thu May 24 14:58:38 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
               All Rights Reserved
@@ -271,7 +273,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:[
@@ -2698,7 +2700,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)).
     ].
 
@@ -2785,7 +2787,7 @@
 
 thisOrNewBrowserInto:aTwoArgBlock
     "if I am invoked by a browser, 
-     invoke the twoArgBlock withit and an #newBuffer arg.
+     invoke the twoArgBlock with it and a #newBuffer arg.
      Otherwise, create a new (invisible) browser and pass it to the block
      with a #newBrowser arg."
      
@@ -2803,6 +2805,8 @@
         ^ aTwoArgBlock value:app value:#newBuffer
     ].        
     ^ aTwoArgBlock value:(browserClass basicNew) value:#newBrowser
+
+    "Modified (comment): / 24-05-2018 / 13:30:26 / Claus Gittinger"
 ! !
 
 !Explainer::ActionWithInfo class methodsFor:'instance creation'!