--- 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'!