--- a/DebugView.st Wed Jul 26 17:09:46 2017 +0200
+++ b/DebugView.st Wed Jul 26 17:35:18 2017 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -657,7 +659,7 @@
aDebugger mayProceed:mayProceed.
aDebugger setLabelFor:aString in:Processor activeProcess.
aDebugger enter:aContext select:nil.
- thisContext fullPrintAll.
+ "/ thisContext fullPrintAll.
^ nil.
"
@@ -9706,7 +9708,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.