--- 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.