--- a/VT100TerminalView.st	Tue May 23 16:16:29 2017 +0200
+++ b/VT100TerminalView.st	Tue May 30 13:59:44 2017 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1998 by eXept Software AG
               All Rights Reserved
@@ -174,13 +172,13 @@
 
     rgb := #(
                 #( 0 0 0 )      "/ black                        fg: ESC[30m / bg: ESC[40m
-                #(170 0 0)      "/ dark red
+                #(170 0 0)      "/ dark red                         ESC[31m / bg: ESC[41m
                 #(0 170 0)      "/ dark green
                 #(170 85 0)     "/ dark yellow
                 #(0 0 170)      "/ dark blue
                 #(170 0 170)    "/ dark magenta
                 #(0 170 170 )   "/ dark cyan
-                #(170 170 170)  "/ dark white eg. light grey).
+                #(170 170 170)  "/ dark white eg. light grey).      ESC[37m / bg: ESC[47m
 
                 #( 85 85 85 )   "/ bright black eg. darkGray    fg: ESC[90m / bg: ESC[100m  
                 #(255 85 85)    "/ bright red
@@ -189,12 +187,14 @@
                 #(85 85 255)    "/ bright blue
                 #(255 85 255)   "/ bright magenta
                 #(85 255 255 )  "/ bright cyan
-                #(255 255 255)  "/ white 
+                #(255 255 255)  "/ white                            ESC[97m / bg: ESC[107m
     ).
 
     ^ Color 
         perform: #'redByte:greenByte:blueByte:' 
         withArguments:(rgb at:(idx + (bright ifTrue:[8] ifFalse:[0]))).
+
+    "Modified (comment): / 30-05-2017 / 08:48:49 / cg"
 !
 
 vt100AlternativeKeyCodes
@@ -321,7 +321,8 @@
 !
 
 displayMode:p1
-    "Set the current display mode (emphasis) as specified by param 1."
+    "ESC-[-<param1>-m 
+     Set the current display mode (emphasis) as specified by param 1."
 
 "/    self endEntry.    -- not needed (does not affect characters on screen or buffered or cursor position
     p1 == 0 ifTrue:[
@@ -477,8 +478,9 @@
     "/ ESC-[-any-m  -> normal
     self normal.
 
-    "Created: / 10.6.1998 / 15:01:16 / cg"
-    "Modified: / 5.5.1999 / 00:53:15 / cg"
+    "Created: / 10-06-1998 / 15:01:16 / cg"
+    "Modified: / 05-05-1999 / 00:53:15 / cg"
+    "Modified (comment): / 30-05-2017 / 08:56:51 / cg"
 !
 
 doClearDisplay:arg
@@ -1101,27 +1103,31 @@
     ].
 
     char == $c ifTrue:[
-        "/ terminal-type query 3
+        "/ ESC[c - terminal-type query 3
         self reportTerminalType.
         ^ #sequenceComplete
     ].
     char == $d ifTrue:[
+        "/ ESC[d                           
         self endEntry.
         self moveToLine.
         ^ #sequenceComplete
     ].
     char == $n ifTrue: [
+        "/ ESC[n                           
         self report.
         ^ #sequenceComplete
     ].
     char == $m ifTrue: [
-        "/ character attributes (SGR)
+        "/ ESC[m                           - character attributes (SGR)
+        self endEntry.
         1 to:currentParam do:[:pI |
             self displayMode:(self getParameter:pI withDefault:0).
         ].
         ^ #sequenceComplete
     ].
     char == $r ifTrue: [
+        "/ ESC[r
         self endEntry.
         self resetDefaults.
         ^ #sequenceComplete
@@ -1137,6 +1143,8 @@
         ^ #sequenceComplete
     ].
     ^ #unknown
+
+    "Modified: / 30-05-2017 / 09:24:50 / cg"
 !
 
 processStateGotESC:char