--- a/EventMonitor.st	Fri Feb 10 20:42:28 2017 +0100
+++ b/EventMonitor.st	Fri Feb 10 22:31:05 2017 +0100
@@ -328,6 +328,8 @@
     start with:
         EventMonitorView open
     and watch the output on xterm.
+
+    This is one of the oldest apps inside ST/X. Don't look too deep into the code...
 "
 ! !
 
@@ -458,10 +460,22 @@
     y printOn:outputStream.
     outputStream nextPutAll:' button:'.
     button printOn:outputStream.
+    self sensor shiftDown ifTrue:[
+        outputStream nextPutAll:' +shift'.
+    ].    
+    self sensor ctrlDown ifTrue:[
+        outputStream nextPutAll:' +ctrl'.
+    ].    
+    self sensor altDown ifTrue:[
+        outputStream nextPutAll:' +alt'.
+    ].    
+    self sensor metaDown ifTrue:[
+        outputStream nextPutAll:' +meta'.
+    ].    
     outputStream cr.
     outputStream flush.
 
-    "Modified: / 04-10-2006 / 13:08:43 / cg"
+    "Modified: / 10-02-2017 / 21:21:48 / cg"
 !
 
 buttonRelease:button x:x y:y