--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/VT52TerminalView.st	Tue Jun 09 14:33:37 1998 +0200
@@ -0,0 +1,75 @@
+TerminalView subclass:#VT52TerminalView
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Views-TerminalViews'
+!
+
+!VT52TerminalView class methodsFor:'documentation'!
+
+documentation
+"
+    VT52 terminal
+
+    [start with:]
+        VT52TerminalView openDummy
+"
+
+! !
+
+!VT52TerminalView methodsFor:'defaults'!
+
+vt52Codes
+    ^ #(
+         ( '\eA'  #doCursorUp    )
+         ( '\eB'  #doCursorDown  )
+         ( '\eC'  #doCursorLeft  )
+         ( '\eD'  #doCursorRight )
+         ( '\eH'  #doCursorHome  )
+         ( '\r'   #doCursorReturn  )
+         ( '\n'   #doCursorNewLine  )
+         ( '\b'   #doBackspace  )
+       )
+!
+
+vt52KeyCodes
+    ^ IdentityDictionary withKeysAndValues:
+        #(
+             #CursorUp    '\eA'
+             #CursorDown  '\eB'
+             #CursorLeft  '\eC'
+             #CursorRight '\eD'
+             #Home        '\eH'
+             #Escape      '\e'
+             #Backspace   '\b'
+             #Return      '\r'
+             #Delete      '\0377'
+         )
+! !
+
+!VT52TerminalView methodsFor:'initialization'!
+
+initialize
+    super initialize.
+    self escapeSequences:(self vt52Codes)
+
+
+!
+
+initializeEscapeSequences
+    self escapeSequences:(self vt52Codes)
+
+
+!
+
+initializeKeyboardSequences
+    kbdSequences := (self vt52KeyCodes)
+
+
+! !
+
+!VT52TerminalView class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libwidg2/VT52TerminalView.st,v 1.1 1998-06-09 12:33:37 cg Exp $'
+! !