--- a/VT52TerminalView.st	Tue Jun 09 20:40:47 1998 +0200
+++ b/VT52TerminalView.st	Tue Jun 09 20:51:37 1998 +0200
@@ -22,14 +22,17 @@
 vt52Codes
     ^ #(
          ( '\eA'  #doCursorUp    )
-         ( '\eB'  #doCursorDown  )
-         ( '\eC'  #doCursorLeft  )
-         ( '\eD'  #doCursorRight )
+         ( '\eB'  #doCursorLeft  )
+         ( '\eC'  #doCursorRight  )
+         ( '\eD'  #doCursorDown )
          ( '\eH'  #doCursorHome  )
+         ( '\eJ'  #doClearToEnd  )
          ( '\r'   #doCursorReturn  )
          ( '\n'   #doCursorNewLine  )
          ( '\b'   #doBackspace  )
        )
+
+    "Modified: / 9.6.1998 / 20:47:50 / cg"
 !
 
 vt52KeyCodes
@@ -71,5 +74,5 @@
 !VT52TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/VT52TerminalView.st,v 1.2 1998-06-09 13:52:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/VT52TerminalView.st,v 1.3 1998-06-09 18:51:37 cg Exp $'
 ! !