DebugView.st
changeset 16535 71fe67678cae
parent 16501 c0c0c5382c15
child 16571 cf319f2e56d0
child 16580 46f802d45b1a
--- a/DebugView.st	Tue May 10 23:33:43 2016 +0200
+++ b/DebugView.st	Wed May 11 01:29:13 2016 +0200
@@ -9439,43 +9439,43 @@
 
 printConditionOn:aStream
     ignoredSendingClassAndSelectors notEmptyOrNil ifTrue:[
-	aStream nextPutAll:(' if called from %1 >> %2'
-				bindWith:ignoredSendingClassAndSelectors first first
-				with:ignoredSendingClassAndSelectors first second).
-	^ self.
+        aStream nextPutAll:(' if called from %1 » %2'
+                                bindWith:ignoredSendingClassAndSelectors first first
+                                with:ignoredSendingClassAndSelectors first second).
+        ^ self.
     ].
     ignoredProcesses notEmptyOrNil ifTrue:[
-	aStream nextPutAll:(' in %1 processes (%2)'
-				bindWith:ignoredProcesses size
-				with:((ignoredProcesses collect:[:each | each name] as:OrderedCollection) asStringWith:', ')).
-	^ self.
+        aStream nextPutAll:(' in %1 processes (%2)'
+                                bindWith:ignoredProcesses size
+                                with:((ignoredProcesses collect:[:each | each name] as:OrderedCollection) asStringWith:', ')).
+        ^ self.
     ].
     ignoredReceiverClasses notNil ifTrue:[
-	aStream nextPutAll:(' for %1 classes (%2)'
-			    bindWith:ignoredReceiverClasses size
-			    with:((ignoredReceiverClasses collect:[:each | each name] as:OrderedCollection) asStringWith:', ')).
-	^ self.
+        aStream nextPutAll:(' for %1 classes (%2)'
+                            bindWith:ignoredReceiverClasses size
+                            with:((ignoredReceiverClasses collect:[:each | each name] as:OrderedCollection) asStringWith:', ')).
+        ^ self.
     ].
     ignoreUntilShiftKeyPressed == true ifTrue:[
-	aStream nextPutAll:' until shiftKey pressed'.
-	^ self.
+        aStream nextPutAll:' until shiftKey pressed'.
+        ^ self.
     ].
     ignoreEndTime notNil ifTrue:[
-	aStream nextPutAll:' until '.
-	ignoreEndTime printOn:aStream.
-	^ self.
+        aStream nextPutAll:' until '.
+        ignoreEndTime printOn:aStream.
+        ^ self.
     ].
     (ignoreCount notNil) ifTrue:[
-	(ignoreCount > 0) ifTrue:[
-	    aStream nextPutAll:' for '.
-	    ignoreCount printOn:aStream.
-	    ^ self.
-	].
-	(ignoreCount < 0) ifTrue:[
-	    aStream nextPutAll:' forEver'.
-	    ^ self.
-	].
-	aStream nextPutAll:' no longer'.
+        (ignoreCount > 0) ifTrue:[
+            aStream nextPutAll:' for '.
+            ignoreCount printOn:aStream.
+            ^ self.
+        ].
+        (ignoreCount < 0) ifTrue:[
+            aStream nextPutAll:' forEver'.
+            ^ self.
+        ].
+        aStream nextPutAll:' no longer'.
     ].
 ! !