--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/VT100TerminalView.st	Tue Jun 09 20:51:55 1998 +0200
@@ -0,0 +1,49 @@
+VT52TerminalView subclass:#VT100TerminalView
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Views-TerminalViews'
+!
+
+
+!VT100TerminalView methodsFor:'defaults'!
+
+vt100Codes
+    ^ #(
+         ( '\eD'   #doCursorDown  )
+         ( '\eM'   #doCursorUp  )
+
+         ( '\e[A'  #doCursorUp    )
+         ( '\e[B'  #doCursorLeft  )
+         ( '\e[C'  #doCursorRight )
+         ( '\e[D'  #doCursorDown  )
+
+         ( '\e[H'  #doCursorHome  )
+         ( '\e[2J' #doClearToEnd  )
+         ( '\e[J'  #doClearAll  )
+         ( '\e[K'  #doClearLines  )
+         ( '\e[r'  #doResetDefaults  )
+
+         ( '\r'   #doCursorReturn  )
+         ( '\n'   #doCursorNewLine  )
+         ( '\b'   #doBackspace  )
+       )
+
+    "Created: / 9.6.1998 / 20:45:16 / cg"
+    "Modified: / 9.6.1998 / 20:50:55 / cg"
+! !
+
+!VT100TerminalView methodsFor:'initialization'!
+
+initializeEscapeSequences
+    self escapeSequences:(self vt100Codes)
+
+    "Modified: / 9.6.1998 / 20:49:21 / cg"
+    "Created: / 9.6.1998 / 20:49:35 / cg"
+! !
+
+!VT100TerminalView class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.1 1998-06-09 18:51:55 cg Exp $'
+! !