DebugView.st
changeset 17601 79fab5be96bb
parent 17566 7871bff67791
child 17632 8b7e10435a11
--- 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.