--- a/VT100TerminalView.st	Tue May 04 02:44:49 1999 +0200
+++ b/VT100TerminalView.st	Wed May 05 01:54:25 1999 +0200
@@ -32,10 +32,20 @@
              #BackSpace   '\b'
              #Return      '\r'
              #Delete      '\0177'
+
+             #F1          '\eOP'
+             #F2          '\eOQ'
+             #F3          '\eOR'
+             #F4          '\eOS'
+             #F5          '\eOt'
+             #F6          '\eOu'
+             #F7          '\eOv'
+             #F8          '\eOl'
+             #F9          '\eOw'
          )
 
     "Created: / 10.6.1998 / 15:13:01 / cg"
-    "Modified: / 20.6.1998 / 17:36:33 / cg"
+    "Modified: / 5.5.1999 / 00:50:04 / cg"
 ! !
 
 !VT100TerminalView methodsFor:'functions'!
@@ -97,8 +107,12 @@
 displayMode: anInteger
     "Set the current display mode."
 
+    |p1|
+
+    p1 := parameters at:1.
+
 "/    self endEntry.
-    (parameters at:1) == 1 ifTrue:[
+    p1 == 1 ifTrue:[
         "/ ESC-[-1-m  -> bold
 
         "/ workaround: windows bold fonts are
@@ -111,8 +125,20 @@
         ].
         ^ self.
     ].
-    (parameters at:1) == 7 ifTrue:[
-        "/ ESC-[-7-m  -> revers
+    p1 == 4 ifTrue:[
+        "/ ESC-[-4-m  -> underline
+
+        self underline.
+        ^ self.
+    ].
+    p1 == 5 ifTrue:[
+        "/ ESC-[-5-m  -> blink
+
+        self color:Color blue.
+        ^ self.
+    ].
+    p1 == 7 ifTrue:[
+        "/ ESC-[-7-m  -> reverse
 
         self reverse.
         ^ self.
@@ -122,7 +148,7 @@
     self normal.
 
     "Created: / 10.6.1998 / 15:01:16 / cg"
-    "Modified: / 26.3.1999 / 14:31:53 / cg"
+    "Modified: / 5.5.1999 / 00:53:15 / cg"
 !
 
 doClearDisplay
@@ -567,5 +593,5 @@
 !VT100TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.24 1999-04-26 14:43:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.25 1999-05-04 23:54:25 cg Exp $'
 ! !