# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 897418297 -7200
# Node ID 07e8c17563a2c03029bdd3c1185b5272a396bdf8
# Parent  2d6a4c91c4bd1a1eea13f3d0dbb476d83d386d1e
*** empty log message ***

diff -r 2d6a4c91c4bd -r 07e8c17563a2 TerminalView.st
--- a/TerminalView.st	Tue Jun 09 20:40:47 1998 +0200
+++ b/TerminalView.st	Tue Jun 09 20:51:37 1998 +0200
@@ -21,6 +21,7 @@
 
     [start with:]
         VT52TerminalView openShell
+        VT100TerminalView openShell
 "
 ! !
 
@@ -504,23 +505,25 @@
     l := aCollection size.
     idx := 1.
     [idx <= l] whileTrue:[
-        currentTree isNil ifTrue:[
-            idx2 := aCollection indexOfAny:escapeLeadingChars startingAt:idx.
-            idx2 == 0 ifTrue:[
-                self replaceAllAtCursor:(aCollection copyFrom:idx).
-                self makeCursorVisibleAndShowCursor:wasOn.
-                ^ self
-            ].
-            self replaceAllAtCursor:(aCollection copyFrom:idx to:idx2-1).
-            idx := idx2.
-        ].
+"/        currentTree isNil ifTrue:[
+"/            idx2 := aCollection indexOfAny:escapeLeadingChars startingAt:idx.
+"/            idx2 == 0 ifTrue:[
+"/                self replaceAllAtCursor:(aCollection copyFrom:idx).
+"/                self makeCursorVisibleAndShowCursor:wasOn.
+"/                ^ self
+"/            ].
+"/            self replaceAllAtCursor:(aCollection copyFrom:idx to:idx2-1).
+"/            idx := idx2.
+"/        ].
         self nextPut:(aCollection at:idx).
         idx := idx + 1.
     ].
 
     self makeCursorVisibleAndShowCursor:wasOn.
 
-    "Modified: / 9.6.1998 / 20:39:54 / cg"
+    "VT52TerminalView openShell"
+
+    "Modified: / 9.6.1998 / 20:46:29 / cg"
 ! !
 
 !TerminalView methodsFor:'queries'!
@@ -543,5 +546,5 @@
 !TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.5 1998-06-09 18:40:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.6 1998-06-09 18:51:31 cg Exp $'
 ! !
diff -r 2d6a4c91c4bd -r 07e8c17563a2 VT52TerminalView.st
--- 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 $'
 ! !