#DOCUMENTATION by cg
authorClaus Gittinger <cg@exept.de>
Thu, 14 Feb 2019 21:56:44 +0100
changeset 18592 9f291f8e0ba7
parent 18591 5ebe254f5515
child 18593 26507bc67fde
#DOCUMENTATION by cg class: DebugView comment/format in: #addBreakpoint
DebugView.st
--- a/DebugView.st	Thu Feb 14 15:48:59 2019 +0100
+++ b/DebugView.st	Thu Feb 14 21:56:44 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -6655,7 +6657,7 @@
 !DebugView methodsFor:'menu & button actions-breakpoints'!
 
 addBreakpoint
-    "add a breakpoint on the selected contexts method - if any"
+    "add a breakpoint on the selected context's method - if any"
 
     |implementorClass method|
 
@@ -6676,7 +6678,8 @@
     contextView middleButtonMenu disable:#addBreakpoint.
     contextView middleButtonMenu enable:#removeBreakpoint.
 
-    "Modified: / 13.1.1998 / 00:24:47 / cg"
+    "Modified: / 13-01-1998 / 00:24:47 / cg"
+    "Modified (comment): / 14-02-2019 / 16:48:28 / Claus Gittinger"
 !
 
 allowBreakPointsInDebugger
@@ -7940,7 +7943,7 @@
                 ]
             ].
 
-            s := Text streamContents:[:s | aContext printWithSeparator:' » ' on:s ].
+            s := Text streamContents:[:s | aContext printWithSeparator:' » ' on:s ].
             "/ s infoPrintCR.
             RememberedCallChain notNil ifTrue:[
                 (RememberedCallChain includesIdentical:aContext) ifTrue:[
@@ -10164,7 +10167,7 @@
 
 printConditionOn:aStream
     ignoredSendingClassAndSelectors notEmptyOrNil ifTrue:[
-        aStream nextPutAll:(' if called from %1 » %2'
+        aStream nextPutAll:(' if called from %1 » %2'
                                 bindWith:ignoredSendingClassAndSelectors first first
                                 with:ignoredSendingClassAndSelectors first second).
         ^ self.