--- a/OSProcessMonitor.st	Tue Sep 03 09:44:51 2019 +0200
+++ b/OSProcessMonitor.st	Tue Sep 03 09:46:46 2019 +0200
@@ -16,7 +16,7 @@
 "{ NameSpace: Smalltalk }"
 
 SystemStatusMonitor subclass:#OSProcessMonitor
-	instanceVariableNames:'processes'
+	instanceVariableNames:'processes showTime'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Monitors-ST/X'
@@ -195,7 +195,9 @@
         ].
         processes notNil ifTrue:[
             list := OrderedCollection new:(processes size + numberOfHeadlines).
-            list add:'Time: ',(Time now printString).        
+            showTime == true ifTrue:[
+                list add:'Time: ',(Time now printString).
+            ].
             list add:self titleLine.
             list add:(String new:(self titleLine size+20) withAll:$-).
 
@@ -328,7 +330,7 @@
 !OSProcessMonitor methodsFor:'queries'!
 
 numberOfHeadlines
-    ^ 3
+    ^ 2 + (showTime == true ifTrue:1 ifFalse:0)
 
     "Modified: / 29-10-2018 / 15:24:14 / Claus Gittinger"
 ! !