--- a/VT100TerminalView.st	Wed Aug 05 16:56:52 1998 +0200
+++ b/VT100TerminalView.st	Wed Aug 05 17:16:02 1998 +0200
@@ -355,7 +355,8 @@
         char == $( ifTrue: [ 
             "/ ESC-(
             "/ todo: set-charset 0 ...
-            ^ self doNothing
+            state := #gotCSI3.
+            ^ self
         ].
         char == $) ifTrue: [ 
             "/ ESC-(
@@ -529,6 +530,14 @@
         ^ self doNothing
     ].
 
+    state == #gotCSI3 ifTrue:[
+        "/ Currently, we are in ESC-(-? state.  
+        "/ Decide what to do on the basis of the parameter char.
+
+        "/ currently not supported
+        ^ self doNothing.
+    ].
+
     state == #gotXTERMCSI ifTrue:[
         "/ Currently, we are in ESC-] state.  
         "/ Decide what to do on the basis of the parameter char.
@@ -551,5 +560,5 @@
 !VT100TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.21 1998-07-28 10:06:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.22 1998-08-05 15:16:02 cg Exp $'
 ! !