--- a/ProcessMonitorV2.st	Mon May 09 10:05:33 2016 +0200
+++ b/ProcessMonitorV2.st	Mon May 09 10:06:06 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2003 by eXept Software AG
 	      All Rights Reserved
@@ -3495,7 +3493,7 @@
 
     aProcess := processItem processInstance.
     aProcess isNil ifTrue:[
-	^ self.
+        ^ self.
     ].
 
     processItem processId:aProcess id.
@@ -3510,13 +3508,13 @@
     running := (state == #run and:[aProcess == Processor interruptedProcess]).
 
     stateColor := (state == #run)
-			ifTrue:[ Color green darkened ]
-			ifFalse:[
-			    (state == #debug or:[state == #stopped])
-				ifTrue:[ Color red ]
-				ifFalse:[ Color black ]].
-
-    processItem processState:(state asString colorizeAllWith:stateColor).
+                        ifTrue:[ Color green darkened ]
+                        ifFalse:[
+                            (state == #debug or:[state == #stopped])
+                                ifTrue:[ Color red ]
+                                ifFalse:[ Color black ]].
+
+    processItem processState:(state asString withColor:stateColor).
     processItem processActive:(self getActiveStringFor:aProcess running:running).
 
 "/    processItem processBlocked:(aProcess interruptsDisabled).
@@ -3528,23 +3526,23 @@
 
     con := aProcess suspendedContext.
     con isNil ifTrue:[
-	aProcess == Processor activeProcess ifTrue:[
-	    con := thisContext
-	]
+        aProcess == Processor activeProcess ifTrue:[
+            con := thisContext
+        ]
     ].
     showWhere value ifTrue:[
-	processItem processWhere:(self getWhereStringFor:con running:running).
+        processItem processWhere:(self getWhereStringFor:con running:running).
     ].
     processItem processCurrentSegment:(self getCurrentSegmentStringFor:con).
     processItem processSwitch:(aProcess numberOfStackBoundaryHits).
     showApplication value ifTrue:[
-	processItem processApplication:(self getApplicationStringFor:aProcess)
+        processItem processApplication:(self getApplicationStringFor:aProcess)
     ].
     showWindowTitle value ifTrue:[
-	processItem processWindowTitle:(self getWindowTitleFor:aProcess)
+        processItem processWindowTitle:(self getWindowTitleFor:aProcess)
     ].
     showInstrumentation value ifTrue:[
-	processItem processInstrumentation:(self getInstrumentationStringFor:aProcess)
+        processItem processInstrumentation:(self getInstrumentationStringFor:aProcess)
     ].
 
     "Modified: / 17-08-2011 / 11:04:32 / cg"