--- a/VT100TerminalView.st	Tue Sep 24 15:45:21 2002 +0200
+++ b/VT100TerminalView.st	Wed Sep 25 10:27:33 2002 +0200
@@ -329,10 +329,14 @@
 move
     "Move to the locations indicated by the first and second parameters."
 
+    | row column |
+
+    row := (self getParameter:1 withDefault:1).
+    column := (self getParameter:2 withDefault:1).
     Debug ifTrue:[
-        Transcript show:'move to '; show:(self getParameter:2 withDefault:1); show:'/'; showCR:(self getParameter:1 withDefault:1).
-    ].
-    self moveToX:(self getParameter:2 withDefault:0) y:(self getParameter:1 withDefault:0).
+        Transcript show:'move to column/row:'; show:column; show:'/'; showCR:row.
+    ].    
+    self moveToX:column y:row.
 
     "Created: / 10.6.1998 / 14:40:01 / cg"
     "Modified: / 20.6.1998 / 18:49:12 / cg"
@@ -695,8 +699,8 @@
         ^ #sequenceComplete
     ].
     char == $J ifTrue: [
-        "/ ESC[0J                         - Clear screen from beginning 
-        "/ ESC[1J                         - Clear screen to end 
+        "/ ESC[0J                         - Clear screen to end 
+        "/ ESC[1J                         - Clear screen from beginning 
         "/ ESC[2J                         - Clear entire screen and home cursor
         self endEntry.
         self doClearDisplay:(self getParameter:1 withDefault:0).
@@ -803,13 +807,13 @@
         ^ #sequenceComplete
     ].
     char == $M ifTrue:[
-        "/ ESC-M
+        "/ ESC-M cursor up
         self endEntry.
         self doCursorUp:1.
         ^ #sequenceComplete
     ].
     char == $D ifTrue:[
-        "/ ESC-D
+        "/ ESC-D Index cursor down one line in same column
         self endEntry.
         self doCursorDown:1.
         ^ #sequenceComplete
@@ -817,6 +821,8 @@
     char == $E ifTrue:[
         "/ ESC-E
         "/ TODO add_lines
+        self endEntry.
+        self cursorReturn.
         ^ #sequenceComplete
     ].
     (char == $Z) ifTrue:[
@@ -891,5 +897,5 @@
 !VT100TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.39 2002-09-19 13:39:48 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.40 2002-09-25 08:27:33 penk Exp $'
 ! !